Erro ao inserir no banco de dados(iniciante vb6)

[alexmcsilva 0]

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

[cryNando 0]

"INSERT INTO sala (cod, tamanho, lotacao) VALUES ('" txtCodigo.Text & "','" & txtTamanho.Text & "','" & txtLotacao.Text & "')"

 

Sem o ; e na mesma linha '-' ( não que isso fosse o problema ) .

[KhaosDoctor 242]

Remova o ";" da instrução da Query, veja se funciona.

[alexmcsilva 0]

nao funcionou Khaos Doctor, deu o mesmo erro : /

[KhaosDoctor 242]

Dê um print no seu command.CommandText e poste aqui

[itlpps 109]

Acho que tem uma aspas a mais aqui

"VALUES '('" & _

[alexmcsilva 0]

Ta ai o print

 

 

 

 

 

 

[itlpps 109]

kkk não é esse tipo de print, mas vamos lá..

 

seu CommandText está retornando isso:

INSERT 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

E teste de novo.

[alexmcsilva 0]

kkk não é esse tipo de print, mas vamos lá..

 

seu CommandText está retornando isso:

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

onde aaa,bbb,ccc são os texts dos TextBox.

 

Pelo que vi tem uma aspas a mais

 

Troque de:

"VALUES '('" & _

para:

"VALUES ('" & _

E teste de novo.

Resolvido!!! Fiz o que vc disse e deu certo

 

Muito obrigado itlpps e khaos doctor :)

 

obs: de que print você esta falando intao? rsrs

[itlpps 109]

obs: de que print você esta falando intao? rsrs

 

 

Comando print.

Jogar na tela a sua string, para ver como ela está por completa. :natallaugh:

[alexmcsilva 0]

 

Comando print.

Jogar na tela a sua string, para ver como ela está por completa. :natallaugh:

ahh ta entendi rsrs, nao sei usar esse comando ainda rsrs vou testar isso ai, desculpa a noobisse kkkkkkkk

 

valew