1 reply to this topic

[bobsap]

Estou utilizando o acess 2003 como bd. Ao clicar em inserir no programa o seguinte erro é mostrado

 

Run timer erro '-2147217900 (80040e14)

Erro de sintaxe na instrução INSERT INTO.

 

nome do BD: cinema

tabela filme, sala, sessao

 

Nao estou conseguindo achar este erro no insert '-' se alguem puder me ajudar ficarei muito grato 

 

codigo da conexao com o bd e insercao na tabela

Dim cnnComando As ADODB.Command
                  Dim rs As ADODB.Recordset
                  Dim cnnTeste As ADODB.Connection
                  Set cnnComando = New ADODB.Command
                  Set rs = New ADODB.Recordset
                  Set cnnTeste = New ADODB.Connection
                  With cnnTeste
                    .Mode = adModeReadWrite
                    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                    "Data Source=E:\Programa Teste\Programa Cinema\Cinema.mdb"
                    .Open
                End With
                      With cnnComando
                     .ActiveConnection = cnnTeste
                     .CommandType = adCmdText                                
                     .CommandText = "INSERT INTO sala " & _
                                    "(cod, tamanho, lotacao)" & _
                                    "VALUES '('" & _
                                    txtCodigo.Text & "','" & _
                                    txtTamanho.Text & "','" & _
                                    txtLotacao.Text & _
                                    "');"
                                      cnnComando.Execute
                End With
                Set cnnComando = Nothing
End Sub

[Danilomaru]

seu CommandText está retornando isso:

I

NSERT INTO sala (cod, tamanho, lotacao)VALUES '('bbbb','aaa','cccc'); 

onde aaa,bbb,ccc são os texts dos TextBox. Pelo que vi tem umas aspas a mais ai.. Tente assim:

CommandText = "INSERT INTO sala " & _ "(cod, tamanho, lotacao)" & _ "VALUES ('" & _ txtCodigo.Text & "','" & _ txtTamanho.Text & "','" & _ txtLotacao.Text & _ "');" cnnComando.Execute