Venus AUEB Forum

Code: Select all

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim con As New OleDbConnection()
            con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\My Documents\db.mdb;"
            Dim com As New OleDbCommand("select * from login", con)
            Dim adapter As New OleDbDataAdapter(com)
            Dim builder As New OleDbCommandBuilder(adapter)
            con.Open()
            Dim data As New DataSet()
            adapter.Fill(data, "login")
            Dim orow As DataRow = data.Tables(0).NewRow
            orow.Item(0) = txtname.Text
            orow.Item(1) = txtpwd.Text
            data.Tables(0).Rows.Add(orow)
            adapter.Update(data, "login")
            MsgBox("User " & txtname.Text & " added in the database.", MsgBoxStyle.Information, "User addition completed succesfully.")
            txtname.Text = ""
            txtpwd.Text = ""
            Exit Sub
            con.Close()
        Catch e1 As Exception
            MsgBox(e1.ToString)
        End Try
    End Sub

Code: Select all

System.Data.OleDb.OleDbException: Syntax error in INSERT INTO statement.
   at System.Data.Common.DbDataAdapter.Update(DataRow[] dataRows, DataTableMapping tableMapping)
   at System.Data.Common.DbDataAdapter.Update(DataSet dataSet, String srcTable)
   at WindowsApplication19.Form1.Button1_Click(Object sender, EventArgs e) 
   in D:\My Documents\Visual Studio Projects\WindowsApplication19\Form1.vb:line 105