INSERCAO DE DADOS NUMA TABELA NO ACCESS
Caros estou com um problima de inserção de dados no access. Sei que o assunto é tolo, mas já rodei a internet e não consegui verificar o erro : Erro de sintaxe INSERT INTO. Preciso de urgencia de uma ajuda dos amigos. Já verifiquei diversos tipos de conexão e o erro é sempre o mesmo. Porém, a conexão com o access está perfeito. Por favor alguém me ajude? Programo em outros linguagens mas em VB.net não tenho experiencia e como dito não estou conseguindo resolver o problema.
Esse código vai num botão de cadastrar e dar erro na linha [Ô] dr = cmd.ExecuteReader()[Ô]
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim sSQL = [Ô]INSERT into USER (user, pwd ) values (?,?)[Ô]
Dim cmd As New System.Data.OleDb.OleDbCommand(sSQL, conn)
cmd.Parameters.AddWithValue(1, Trim(TextBox1.Text))
cmd.Parameters.AddWithValue(2, Trim(TextBox2.Text))
Dim dr As System.Data.OleDb.OleDbDataReader
conn.Open()
dr = cmd.ExecuteReader()
End Sub
Essa conexão está no form.
Private Sub Registro_Load(sender As Object, e As EventArgs) Handles Me.Load
conn = New OleDb.OleDbConnection
conn.ConnectionString = [Ô]Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Users\paulocarica\Documents\bancoTeste.mdb[Ô]
End Sub
Esse código vai num botão de cadastrar e dar erro na linha [Ô] dr = cmd.ExecuteReader()[Ô]
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim sSQL = [Ô]INSERT into USER (user, pwd ) values (?,?)[Ô]
Dim cmd As New System.Data.OleDb.OleDbCommand(sSQL, conn)
cmd.Parameters.AddWithValue(1, Trim(TextBox1.Text))
cmd.Parameters.AddWithValue(2, Trim(TextBox2.Text))
Dim dr As System.Data.OleDb.OleDbDataReader
conn.Open()
dr = cmd.ExecuteReader()
End Sub
Essa conexão está no form.
Private Sub Registro_Load(sender As Object, e As EventArgs) Handles Me.Load
conn = New OleDb.OleDbConnection
conn.ConnectionString = [Ô]Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Users\paulocarica\Documents\bancoTeste.mdb[Ô]
End Sub
[Ô]User[Ô] é palavra reservada, experimente colocar entre colchetes:
Dim sSQL = [Ô]INSERT into USER ([user], pwd ) values (?,?)[Ô]
Tópico encerrado , respostas não são mais permitidas