Jump to content
Fórum Script Brasil
  • 0

Erro De Sixtaxe


Guest Bizonho
 Share

Question

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

Link to comment
Share on other sites

2 answers to this question

Recommended Posts

  • 0
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 & "')")

Link to comment
Share on other sites

  • 0
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.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Forum Statistics

    • Total Topics
      149.8k
    • Total Posts
      646.6k
×
×
  • Create New...