Boa tarde! Estou desenvolvendo um programa em vb.net 2010 com banco de dados access 2007. Com cadastramento e consulta, o primeiro formulario com 2 textboxs, 1 pra nome e o outro pra rg e 1 button para inserir no banco de dados. Quando escrevo "sem espaços"(ex: TatianaRodrigues) ele insere sem problemas, mas quando dou espaço (ex: Tatiana Rodrigues) aparece uma mensagem dizendo: "Erro de sintaxe (operador faltando) na expressão de consulta 'Tatiana Rodrigues'".
Meu código:
Imports System.Data.OleDb
Public Class Cadastro
Private Function Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim con As New OleDb.OleDbConnection
Dim cmd As New OleDb.OleDbCommand
Dim gravou As Boolean
con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\BlackCERO\Documents\Vendas.accdb;Persist Security Info=False;"
cmd.Connection = con
cmd.CommandType = CommandType.Text
cmd.CommandText = "insert into vendas(Nome,Rg)values(" & TextBox1.Text & ", " & TextBox2.Text & ")"
cmd.Parameters.Add(New OleDb.OleDbParameter("Nome", OleDbType.VarChar, 50))
cmd.Parameters("Nome").Value = TextBox1.Text
cmd.Parameters.Add(New OleDb.OleDbParameter("Rg", OleDbType.Integer))
cmd.Parameters("Rg").Value = TextBox2.Text
Try
con.Open()
gravou = cmd.ExecuteNonQuery
cmd = New OleDb.OleDbCommand(cmd.CommandText, con)
Catch ex As Exception
MessageBox.Show(ex.Message, "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
con.Close()
End Try
Return gravou
End Function
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form1.Show()
End Sub
End Class
Alguém sabe me dizer como resolvo esse problema?? = /
Obrigado!
cic321
Membro Junior
Registrado
63 Mensagens
1 Curtida