Insert Into

[Guest - victor -]

O VB FALA QUE ESTÁ DANDO ERRO NA INSTRUÇÃO INSERT INTO, ALGUÉM PODE ME AJUDAR ???

Private Sub cmdgravarp_Click()

Set OP = New ADODB.Command

With OP

.ActiveConnection = CN

.CommandText = "insert into PEDIDOS (NOMECLIENTE,ATENDENTE,DATA,FORMAPAG,PARCELA,OBS CHEQUE,DATA CHEQUE,total) values ('" & txtnome.Text & "','" & txtatend.Text & "','" & txtdata.Text & "','" & txtformapag.Text & "','" & txtparcela.Text & "','" & txtobs.Text & "','" & txtdatac.Text & "','" & txttotal.Text & "');"

.Execute

End With

Set OP = Nothing

MsgBox "Registro incluso com sucesso!", vbInformation, "Atenção"

End Sub

[Graymalkin]

Verifique os tipos dos campos e como você está inserindo-os. Acredito que o campo "total" seja um campo do tipo Double (ou qualquer outro tipo Numérico), portanto não se deve utilizar ' (aspas simples) para delimitar o valor que ficará nesse campo.

Abraços,

Graymalkin

[William Rodrigues]

Brother !!!

Acredito que o campo "total" seja um campo do tipo Double

Também acredito que seja isso

Abraços,

William Rodrigues