erro no insert into

[Marcelo Sanches 0]

Olá, sou novo no forum e estou com alguns problemas na execução do meu código.Estou tentando inserir dados em uma tabela, porém acusa o seguinte erro:Run-time error '-2147217900(80040e14)':Erro de sintaxe na instrução INSERT INTOO código é o seguinte:Private Sub gravar_dados()Dim cnncomando As New ADODB.CommandDim vconfmsg As IntegerDim verro As Boolean vconfmsg = vbExclamation + vbOKOnly + vbSystemModal verro = False If txtnome.Text = Empty Then MsgBox "O campo NOME não foi preenchido!", vconfmsg, "Erro!" verro = True End If If txtmae.Text = Empty Then MsgBox "O campo MÃE não foi preenchido!", vconfmsg, "Erro!" verro = True End If If verro Then Exit Sub Screen.MousePointer = vbHourglass With cnncomando .ActiveConnection = cnncadint .CommandType = adCmdText If (vinclusao = True) Then .CommandText = "INSERT INTO servidor " & "(cod, nome, end, telefone, " & "rg, data_nasc, mae, pai, obs) VALUES ('" & txtcodigo.Text & "','" & txtnome.Text & "','" & txtend.Text & "','" & txttelefone.Text & "','" & txtrg.Text & "','" & txtdata_nasc.Text & "','" & txtmae.Text & "','" & txtpai.Text & "','" & txtobs.Text & "');" Else .CommandText = "UPDATE servidor SET " & "nome='" & txtnome.Text & "'," & "end='" & txtend.Text & "'," & "telefone='" & txttelefone.Text & "'," & "rg='" & txtrg.Text & "'," & "data_nasc='" & txtdata_nasc.Text & "'," & "mae='" & txtmae.Text & "'," & "pai='" & txtpai.Text & "'," & "obs='" & txtobs.Text & "' " & "WHERE cod=" & txtcodigo.Text & ";" End If .Execute End WithAlguém pode me ajudar?Grato

[Fillipe 0]

se você disser qual a linha que fika selecionada quando o erro ocorre, fika mais fácil.

 

mas primeiro tente tirar as aspas q estão nos campos numéricos:

 

.CommandText = "INSERT INTO servidor (cod, nome, end, telefone, rg, data_nasc, mae, pai, obs) VALUES (" & txtcodigo.Text & ",'" & txtnome.Text & "','" & txtend.Text & "'," & txttelefone.Text & "," & txtrg.Text & "," & txtdata_nasc.Text & ",'" & txtmae.Text & "','" & txtpai.Text & "','" & txtobs.Text & "')"

[Marcelo Sanches 0]

Tirei as aspas dos campos numéricos mas o erro continuou. Quanto a linha que fica selecionada é a seguinte:

 

.Execute

 

Valeu pela dica das aspas!!!

[Marcelo Sanches 0]

A linha q fica selecionada é a seguinte:

 

With cnncomando

.ActiveConnection = cnncadint

.CommandType = adCmdText

If (vinclusao = True) Then

.CommandText = "INSERT INTO servidor " & "(cod, nome, end, telefone, " & "rg, data_nasc, mae, pai, obs) VALUES ('" & txtcodigo.Text & "','" & txtnome.Text & "','" & txtend.Text & "','" & txttelefone.Text & "','" & txtrg.Text & "','" & txtdata_nasc.Text & "','" & txtmae.Text & "','" & txtpai.Text & "','" & txtobs.Text & "');"

Else

.CommandText = "UPDATE servidor SET " & "nome='" & txtnome.Text & "'," & "end='" & txtend.Text & "'," & "telefone='" & txttelefone.Text & "'," & "rg='" & txtrg.Text & "'," & "data_nasc='" & txtdata_nasc.Text & "'," & "mae='" & txtmae.Text & "'," & "pai='" & txtpai.Text & "'," & "obs='" & txtobs.Text & "' " & "WHERE cod=" & txtcodigo.Text & ";"

End If

.Execute

End With

 

valeu!

[eriva_br 7]

veja este artigo, talvez possa te ajudar:

http://www.mcdbabrasil.com.br/modules.php?...=article&sid=92

[Marcelo Sanches 0]

Consegui!O problema era o tamanho das caixas de texto que estavam diferentes do BD.Valeu pessoal!!