Ir para conteúdo
Fórum CódigoFonte.net
Entre para seguir isso  
FREITAS

Mensagem de Erro Visual Studio 2008

Recommended Posts

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
Entre para seguir isso  

×
×
  • Criar Novo...