erro em INSERT... alguém sabe onde está??


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: erro em INSERT... alguém sabe onde está??

lu_sandman

CAMPINAS
SP - BRASIL

Postada em 22/01/2008 12:02 hs

negativo.. ainda continua dando o mesmo erro... com recordsert ou sem...

ssbarbosa
não registrado

Postada em 22/01/2008 12:40 hs

fazendo assim da para ter uma visão melhor

dim str as string

          str = ""
    str = str & " INSERT INTO tabCliente "
    str = str & "( "
    str = str & " campo1, "
    str = str & " campo2, "
    str = str & " campo3, "
    str = str & " campo4, "
    str = str & " campo5, "
    str = str & " campo6, "
    str = str & " campo7, "
    str = str & " campo8, "
    str = str & " campo9, "
    str = str & " campo10, "
    str = str & " campo11, "
    str = str & " campo12, "
    str = str & " campo13, "
    str = str & " campo14, "
    str = str & " campo15, "
    str = str & " campo16, "
    str = str & " campo17, "
    str = str & " campo18"
    str = str & " ) "
    str = str & " values "
    str = str & " ( "
    str = str & "'" & text1.text & "'" & ","  ''virgula no finall
    str = str & "'" & text2.text & "'" & ","  ''virgula no finall
    str = str & "'" & text3.text & "'" & ","  ''virgula no finall
    str = str & "'" & text4.text & "'" & ","  ''virgula no finall
    str = str & "'" & text5.text & "'" & ","  ''virgula no finall
    str = str & "'" & text6.text & "'" & ","  ''virgula no finall
    str = str & "'" & text7.text & "'" & ","  ''virgula no finall
    str = str & "'" & text8.text & "'" & ","  ''virgula no finall
    str = str & "'" & text9.text & "'" & ","  ''virgula no finall
    str = str & "'" & text10.text & "'" & ","  ''virgula no finall
    str = str & "'" & text11.text & "'" & ","  ''virgula no finall
    str = str & "'" & text12.text & "'" & ","  ''virgula no finall
    str = str & "'" & text13.text & "'" & ","  ''virgula no finall
    str = str & "'" & text14.text & "'" & ","  ''virgula no finall
    str = str & "'" & text15.text & "'" & ","  ''virgula no finall
    str = str & "'" & text16.text & "'" & ","  ''virgula no finall
    str = str & "'" & text17.text & "'" & ","  ''virgula no finall
    str = str & "'" & text18.text & "'"
    str = str & " );"
          Conn.execute str



    'fecha a conexão com o banco de dados
    Conn.Close

    Espero que ajude

lu_sandman

CAMPINAS
SP - BRASIL

ENUNCIADA !

Postada em 22/01/2008 14:27 hs

valeu ssbarbosa... sua sintaxe ficou bem melhor de se ler mesmo.. obrigado... mas o problema ainda persiste... continua aparecendo o mesmo erro de sintaxe.

com outras instruções o problema não acontece...

ghost_jlp

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 22/01/2008 16:00 hs

vc não pode testar fazendo a inclusão em 1 campo apenas? Depois em 3, 8 e assim por diante... para podermos saber se é a qtde de campos...

ssbarbosa
não registrado

ENUNCIADA !

Postada em 22/01/2008 16:06 hs

Lu_Sandman - Agora eh tentativa e erro 8-)

Acho que os campos  date passar o text para o campo formatando a data e depois passando para a query
ex:.

dim DtaEmi as date
gblInt as double

      Sql = ""
   Sql = Sql & "INSERT INTO "
   Sql = Sql & " Conjunto "
   Sql = Sql & "("
   Sql = Sql & " ConjCod, "
   Sql = Sql & " ConjDtaIni, "
   Sql = Sql & " ConjSit "
   Sql = Sql & " )"

   Sql = Sql & " Values ("
   Sql = Sql & "'" & txtCod.Text & "'" & ","  ''virgula no finall
   DtaEmi = Format(txtDtaIni.Text, "yyyy/mm/dd")
   If DtaEmi = "" Then
      DtaEmi = Format(Date, "yyyy/mm/dd")
   End If
   Sql = Sql & "'" & DtaEmi & "'" & "," ''virgula no finall
   gblInt = "0"
   Sql = Sql & "'" & gblInt & "'" & "," ''virgula no finall
   Sql = Sql & "'" & "ATIVO" & "'"
   Sql = Sql & ");"
   Dbs.Execute Sql

Espero que funcione...

lu_sandman

CAMPINAS
SP - BRASIL

ENUNCIADA !

Postada em 22/01/2008 16:23 hs

vou tentar adicionar campo a campo, como o ghost sugeriu... porque essa mesa instrução com menos campos funciona que é uma blz... vou tentar agora de campo em campo para ver se pode ser isso... amanhã eu posto o resultado...

valeu galera, obrigado pela força

luciano

Página(s): 2/5 « ANTERIOR PRÓXIMA »

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR