2 respostas neste tópico

[FREITAS]

Boa noite,

Preciso a valiosa ajuda de vocês porque estou terminando um programa Controle de Estoque em Visual Studio 2008 mas está dando um erro que já tem 3 dias que estou tentando resolvê-lo e não consigo. Podem me ajudar.
A mensagem de erro é:

erro de sintaxe na instrução INSERT INTO

Essa mensagem aparece assim que clico em confirmar após tentar inserir um novo produto no meu controle de estoque.

O Código é esse:

If

vmodo = "I" Then

Dim cs As String = My.Settings.EstoqueConnectionString

Dim conect As New OleDb.OleDbConnection
conect.ConnectionString = cs

Try
conect.Open()

Dim selcom As New OleDb.OleDbCommand
selcom.Connection = conect
selcom.CommandText =
"INSERT INTO tb_Estoque ( empenho, data_empenho, notas_fiscais, data_nota_fiscal, cod_materiais_produtos, materiais_produtos, unidade, data_de_entrada, entradas, requisicoes, data_de_saida, saidas, departamento_requisitante, supervisao_requisitante )" & _

"VALUES ('" & txtEmpenho.Text & "', '" & txtData_empenho.Text & "', " & txtNotas_fiscais.Text & _

", '" & txtData_nota_fiscal.Text & "', " & txtCod_materiais_produtos.Text & ", '" & (txtMateriais_produtos.Text & Space(120)).Substring(0, 120) & "','" & txtUnidade.Text & _

"', '" & txtData_de_entrada.Text & "', " & txtEntradas.Text & ", " & txtRequisicoes.Text & " ,'" & txtData_de_saida.Text & "', " & txtsaidas.Text & _

", '" & txtDepartamento_requisitante.Text & "', '" & txtSupervisao_requisitante.Text & " ' &)"

If selcom.ExecuteNonQuery() Then
MsgBox(
"tem includo com sucesso")

Else
MsgBox(
"Erro tem no includo")

End If
conect.Close()

Catch ex As Exception
MessageBox.Show(
"Erro de gravao de dados" & vbCrLf & ex.Message, "ERRO", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try
desab_campos()
carrega_Estoque()

Desde já muito obrigado

Freitas

[thyago_trajano]

Perceba que em campos que não sejam do tipo Número, deve SEMPRE estar com o valor entre aspas...no sua instrução SQL tá cheia de erros...perceba:

	"INSERT INTO tb_Estoque ( empenho, data_empenho, notas_fiscais, data_nota_fiscal, cod_materiais_produtos, materiais_produtos, unidade, data_de_entrada, entradas, requisicoes, data_de_saida, saidas, departamento_requisitante, supervisao_requisitante )" & _
	"VALUES ('" & txtEmpenho.Text & "', '" & txtData_empenho.Text & "', " & txtNotas_fiscais.Text & _
	", '" & txtData_nota_fiscal.Text & "', " & txtCod_materiais_produtos.Text & ", '" & (txtMateriais_produtos.Text & Space(120)).Substring(0, 120) & "','" & txtUnidade.Text & _
	"', '" & txtData_de_entrada.Text & "', " & txtEntradas.Text & ", " & txtRequisicoes.Text & " ,'" & txtData_de_saida.Text & "', " & txtsaidas.Text & _
	", '" & txtDepartamento_requisitante.Text & "', '" & txtSupervisao_requisitante.Text & " ' &)"
	

Entre txtNotas_fiscais.Text ão tem aspas...tem um "&" no final que não serve de nada...o mais correto seria:

	"INSERT INTO tb_Estoque ( empenho, data_empenho, notas_fiscais, data_nota_fiscal, cod_materiais_produtos, materiais_produtos, unidade, data_de_entrada, entradas, requisicoes, data_de_saida, saidas, departamento_requisitante, supervisao_requisitante )" & _
	"VALUES ('" & txtEmpenho.Text & "', '" & txtData_empenho.Text & "', '" & txtNotas_fiscais.Text & "'" &  _
	", '" & txtData_nota_fiscal.Text & "', '" & txtCod_materiais_produtos.Text & "', '" & (txtMateriais_produtos.Text & Space(120)).Substring(0, 120) & "','" & txtUnidade.Text & "'" & _
	", '" & txtData_de_entrada.Text & "', '" & txtEntradas.Text & "', '" & txtRequisicoes.Text & "' ,'" & txtData_de_saida.Text & "', '" & txtsaidas.Text & _
	"', '" & txtDepartamento_requisitante.Text & "', '" & txtSupervisao_requisitante.Text & "')"
	

abraços
Thyago Trajano

[FREITAS]

Bom dia,

Obrigado, problema solucionado.

Te agradeço muito.

FREITAS