Access 2003 table, unable to insert new records. There are four fields:
1) UserID - AutoNum - Primary Key
2) First - Text
3) Last - Text
4) Email - Text
When debugging, it catches an exception when I call the OleDbDataAdapter.Update method and kicks out the following error: "Syntax Error in INSERT INTO Statement"
Any ideas?
~Melagan
______
"It's never too late to become what you might have been.
1) UserID - AutoNum - Primary Key
2) First - Text
3) Last - Text
4) Email - Text
When debugging, it catches an exception when I call the OleDbDataAdapter.Update method and kicks out the following error: "Syntax Error in INSERT INTO Statement"
Any ideas?
Code:
Sub page_load(ByVal sender As Object, ByVal e As EventArgs)
'Instantiate DataSet
Dim ds As New DataSet("myDataSet")
Try
'Define Connection Object
Dim myConn As New OleDbConnection(ConfigurationManager.ConnectionStrings("Conn").ConnectionString)
'Create an adapter to get records from database
Dim objCmd As New OleDbDataAdapter("SELECT * FROM tblRegistery", myConn)
'Define each column to map
Dim dcmUserID As New DataColumnMapping("UserID", "UserID")
Dim dcmFirst As New DataColumnMapping("First", "First")
Dim dcmLast As New DataColumnMapping("Last", "Last")
Dim dcmEmail As New DataColumnMapping("Email", "Email")
'Define table containing column mappings
Dim dtmRegistery As New DataTableMapping("tblRegistery", "table")
dtmRegistery.ColumnMappings.Add(dcmUserID)
dtmRegistery.ColumnMappings.Add(dcmFirst)
dtmRegistery.ColumnMappings.Add(dcmLast)
dtmRegistery.ColumnMappings.Add(dcmEmail)
'Activate mapping mechanism
objCmd.TableMappings.Add(dtmRegistery)
'Fill DataSet
objCmd.Fill(ds)
'Create command builder to create SQL instructions
Dim objAuto As New OleDbCommandBuilder(objCmd)
'Insert new record into DataSet
Dim dr As DataRow = ds.Tables(0).NewRow
dr("First") = "Jason"
dr("Last") = "Kinsey"
dr("Email") = "jkinsey@nat.com"
ds.Tables(0).Rows.Add(dr)
'Insert changes to database
objCmd.Update(ds.GetChanges())
'Align in-memory changes with datasource
ds.AcceptChanges()
Response.Write("Record inserted successfully.")
Catch ex As Exception
ds.RejectChanges()
Response.Write(ex.Message)
End Try
End Sub
~Melagan
______
"It's never too late to become what you might have been.