Erro De Sixtaxe

[Guest Bizonho]

Oi pessoal !

Desculpe o pedido; mas não sei mais o que alterar nessa linha de intrução:

cn.Execute ("insert into estoque(cod,desc,qtd,custo,data)" _

& "values('" & strCODI & "','" & strDESCI & "','" & strQTDI & "','" & strCUI & "','" & strDAI & "')")

Toda vez que executo da Erro de sintaxe na intrução INSERT INTO

A chave primaria do banco é o campo "id" com AutoNumeração. Preciso coloca-lo na linha de intrução ?

Por favor me ajudem

Agradeço desde já a atenção

[Guest --Gesiel --]

Vamos lá. Na SQL, assegure-se que:

se cod for chave, strCODI não pode ser um valor duplicado.

se cod for IDENTITY (auto incremento), este campo não deve constar do INSERT.

verifique se o tamanho da STRING strDESCI não é maior que o campo desc.

verifique se o tamanho da STRING strDESCI não contém plics (aspas simples)

verifique se o tamanho do INTEIRO strQTDI não é maior que o tipo do campo qtd.

se o qtd for numeric, verifique se não está esquecendo de retirar os pontos e em seguida substituir a vírgula por ponto. Exemplo: 1.203,10 deve ser 1203.10

se a data for smalldatetime ou datetime, strDAI deve estar no formato AAAA-MM-DD. Exemplo: 31/12/2007 deve ser 2007-12-31

'trata o plics na string VB6

strDESCI = replace(strDESCI, "'", "''")

'trata o plics na string VB.NET

strDESCI = strDESCI.replace("'", "''")

'trata o tamanho do string VB 6

strDESCI = mid(strDESCI, 1, 30)

'trata o tamanho do string VB.NET

strDESCI = strDESCI.substring(1, 30)

'trata a falta de informação no campo numérico

strQTDI = cint(strQTDI)

etc...

cn.Execute ("insert into estoque(cod,desc,qtd,custo,data)" _

& "values('" & strCODI & "','" & strDESCI & "','" & strQTDI & "','" & strCUI & "','" & strDAI & "')")

[Guest Bizonho]

Oi Geisel !

Todos os campos estão definidos como texto no access. A chave do db é o campo "id" definido com AutoNumeração.

O comando do botão esta definido dessa forma :

vai = INCLUIR(Form4.txtCOD.Text, Form4.txtDES.Text, Form4.lblTE.Caption, Form4.txtCU.Text, Form4.txtDA.Text)

A função INCLUIR esta assim :

Public Function INCLUIR(ByVal strCODI As String, ByVal strDESCI As String, ByVal strQTDI As String, ByVal strCUI As String, ByVal strDAI As String) As Variant

'On Error Resume Next

cn.Execute ("insert into estoque(cod,desc,qtd,custo,data)" _

& "values('" & strCODI & "','" & strDESCI & "','" & strQTDI & "','" & strCUI & "','" & strDAI & "')")

INCLUIR = True

MsgBox "Produto cadastrado com sucesso !", vbOKOnly, "Cadastro"

Beep

Form4.txtCOD.Text = ""

Form4.txtDES.Text = ""

Form4.txtCU.Text = ""

Form4.txtDA.Text = ""

End Function

A string strQDI sempre é incluida com o valor "0" (zero); tentei executar a função com outro valor na strQDI mas mesmo assim o erro de sintaxe persiste.