none
Nao estou conseguindo fechar o Append RRS feed

  • Pergunta

  • Boa noite, estou tentando fechar a conexao abaixo usando o append mas nao estou conseguindo, alguem pode me ajudar no executacomando?

    Dim cmd As New SqlCommand

            Dim comando As New StringBuilder

            comando.Append("INSERT INTO Fixa (")
            comando.Append("RazaoSocial, Cnpj, Consultor, ")
            comando.Append("Familia, Quantidade, Produto, ")
            comando.Append("Valor, DataElaboracao, DataFranquia, ")
            comando.Append("Status, DataInstalacao, TempoContrato, ")
            comando.Append("insert into Fixa (RazaoSocial, Cnpj, Consultor, Familia, ")
            comando.Append("Quantidade, Produto, Valor, DataElaboracao, DataFranquia, Status, DataInstalacao, ")
            comando.Append("TempoContrato, Pendencia, DataPendencia, DataRespPendencia, DataEnvioOi, DataOs, ")
            comando.Append("NumeroOs, Circuito, TerminalVinculo, PendenciaFae, IdContrato, Mes, Ciclo, ValorP, Recebido, ")
            comando.Append("Motivo, StatusAtivacao, NomeCampanha, PendenciaSuporte, DataAtivacao ) values ")
            comando.Append("('" & razaoSocial_fixa & "', '" & cnpj_fixa & "', '" & consultor_fixa & "', '" & familia_fixa & "', ")
            comando.Append("'" & quantidade_fixa & "', '" & produto_fixa & "', '" & valor_fixa & "', '" & dataElaboracao_fixa & "', ")
            comando.Append("'" & dataFranquia_fixa & "', '" & status_fixa & "', '" & dataFranquia_fixa & "', ")
            comando.Append("'" & tempoContrato_fixa & "', '" & pendencia_fixa & "', '" & dataPendencia_fixa & "', ")
            comando.Append("'" & dataRespPendencia_fixa & "', '" & dataEnvioOi_fixa & "', '" & Convert.ToDateTime(dataOs_fixa).ToString("dd/MM/yyyy") & "', ")
            comando.Append("'" & numeroOs_fixa & "', '" & circuito_fixa & "', '" & terminalVinculo_fixa & "', ")
            comando.Append("'" & pendenciaFae_fixa & "', '" & idContrato_Fixa & "', 'AAA', '0', '0', 'NÃO', ")
            comando.Append("'OK', 'OK', '" & _nome_campanha & "', 'PENDENCIA', '01/01/2001') ")

            Dim clBD As New clBanco()
            clBD.ExecutaComando()

    terça-feira, 14 de maio de 2013 23:14

Todas as Respostas

  • Olá Wander,

    Seu comando tem coisas sobrando (duplicada): (veja abaixo)

    Veja que o que está em negrito, você repete novamente depois... pos isso não funciona... tem duas vezes a instrução INSERT no comando. Acho que no resto está ok. Se tretirar esta parte em negrito acredito que irá funcionar.

    Att,

    comando.Append("INSERT INTO Fixa (")
            comando.Append("RazaoSocial, Cnpj, Consultor, ")
            comando.Append("Familia, Quantidade, Produto, ")
            comando.Append("Valor, DataElaboracao, DataFranquia, ")
            comando.Append("Status, DataInstalacao, TempoContrato, ")
            comando.Append("insert into Fixa (RazaoSocial, Cnpj, Consultor, Familia, ")
            comando.Append("Quantidade, Produto, Valor, DataElaboracao, DataFranquia, Status, DataInstalacao, ")
            comando.Append("TempoContrato, Pendencia, DataPendencia, DataRespPendencia, DataEnvioOi, DataOs, ")
            comando.Append("NumeroOs, Circuito, TerminalVinculo, PendenciaFae, IdContrato, Mes, Ciclo, ValorP, Recebido, ")
            comando.Append("Motivo, StatusAtivacao, NomeCampanha, PendenciaSuporte, DataAtivacao ) values ")
            comando.Append("('" & razaoSocial_fixa & "', '" & cnpj_fixa & "', '" & consultor_fixa & "', '" & familia_fixa & "', ")
            comando.Append("'" & quantidade_fixa & "', '" & produto_fixa & "', '" & valor_fixa & "', '" & dataElaboracao_fixa & "', ")
            comando.Append("'" & dataFranquia_fixa & "', '" & status_fixa & "', '" & dataFranquia_fixa & "', ")
            comando.Append("'" & tempoContrato_fixa & "', '" & pendencia_fixa & "', '" & dataPendencia_fixa & "', ")
            comando.Append("'" & dataRespPendencia_fixa & "', '" & dataEnvioOi_fixa & "', '" & Convert.ToDateTime(dataOs_fixa).ToString("dd/MM/yyyy") & "', ")
            comando.Append("'" & numeroOs_fixa & "', '" & circuito_fixa & "', '" & terminalVinculo_fixa & "', ")
            comando.Append("'" & pendenciaFae_fixa & "', '" & idContrato_Fixa & "', 'AAA', '0', '0', 'NÃO', ")
            comando.Append("'OK', 'OK', '" & _nome_campanha & "', 'PENDENCIA', '01/01/2001') ")


    Fabio Rosa.

    quarta-feira, 15 de maio de 2013 12:40