|
|
Postada em 22/01/2008 10:21 hs
bom dia a todos... estou tentando fazer uma inserção em um bd access com a seguinte string abaixo: Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM tabela", Conn, , adLockOptimistic
Conn.Execute ("INSERT INTO tabCliente(campo1, campo2, campo3, campo4, campo5, campo6, campo7, campo8, campo9, campo10, campo11, campo12, campo13, campo14, campo15, campo16, campo17, campo18) values ('" & text1.text & "', '" & text2.text & "', '" & text3.text & "', '" & text4.text & "', '" & text5.text & "', '" & text6.text & "', '" & text7.text & "', '" & text8.text & "', '" & text9.text & "', '" & text10.text & "', '" & text11.text & "', '" & text12.text & "', '" & text13.text & "', '" & text14.text & "', '" & text15.text & "', '" & text16.text & "', '" & text17.text & "', '" & text18.text & "')")
'fecha a conexão com o banco de dados
rs.Close
Conn.Close
o problema é que a inserção não é executada e aparece a seguinte mensagem de erro: Run-time error '2147217900(80040e14)' já consultei no msdn sobre esse erro e não encontrei nada... uso o win xp sp2 e o mdac 2.8 instalado na máquina. alguém sabe o por que desse erro?? será que a string do insert está muito grande?? tem alguma coisa a ver isso?? se tiver como solucionar o problema?? desde já agradeço, luciano |
|
|
|
|
|
RARS
|
AMERICO BRASILIENSE
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 22/01/2008 10:40 hs
Por Favor..Lu_sandman Teria como vc postar o Err.Description desse erro? |
|
|
|
|
|
Postada em 22/01/2008 10:55 hs
Erro de sintaxe na instrução INSERT INTO |
|
|
|
|
|
Postada em 22/01/2008 11:03 hs
Conn.Execute ("INSERT INTO tabCliente(campo1, campo2, campo3, campo4, campo5, campo6, campo7, campo8, campo9, campo10, campo11, campo12, campo13, campo14, campo15, campo16, campo17, campo18) values ('" & text1.text & "', '" & text2.text & "', '" & text3.text & "', '" & text4.text & "', '" & text5.text & "', '" & text6.text & "', '" & text7.text & "', '" & text8.text & "', '" & text9.text & "', '" & text10.text & "', '" & text11.text & "', '" & text12.text & "', '" & text13.text & "', '" & text14.text & "', '" & text15.text & "', '" & text16.text & "', '" & text17.text & "', '" & text18.text & "');") a principio está faltando o ";" no final da instrução INSERT
|
|
|
|
|
|
Postada em 22/01/2008 11:43 hs
pois é.. não é isso não... tentei já com o ";" no final e aparece o mesmo erro... o problema é qu eeu uso a mesma instrução em outro processo e da tudo certo... será que é pela quantidade de campos na instrução?? |
|
|
|
Cardoso G
|
PATOS DE MINAS
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 22/01/2008 11:51 hs
luciano, primeiro que vc nao precisa de recordset pra fazer insert, e segundo que sua instrucao insert esta passando passando um parentese que nao existe, entao ficaria assim sem recordsets, so o execute ok. Conn.Execute "INSERT INTO tabCliente(campo1, campo2, campo3, campo4, campo5, campo6, campo7, campo8, campo9, campo10, campo11, campo12, campo13, campo14, campo15, campo16, campo17, campo18) values ('" & text1.Text & "', '" & text2.Text & "', '" & text3.Text & "', '" & text4.Text & "', '" & text5.Text & "', '" & text6.Text & "', '" & text7.Text & "', '" & text8.Text & "', '" & text9.Text & "', '" & text10.Text & "', '" & text11.Text & "', '" & text12.Text & "', '" & text13.Text & "', '" & text14.Text & "', '" & text15.Text & "', '" & text16.Text & "', '" & text17.Text & "', '" & text18.Text & "')"
|
|
|
|
|
