Error when adding a record

[ZeroEffect]

I am trying to add a record to my access database for the application I am building. I can connect and display data from the DB but when use my code to add a row I get this error. "Syntax error in INSERT INTO statement." My ID row is auto incrementing this might be the problem. The code I using is posted below. Thanks for your help.

 

ZeroEffect

 

 

   Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

       Dim cb As New OleDb.OleDbCommandBuilder(daEvents)
       Dim dsNewRow As DataRow

       dsNewRow = dsEvents.Tables("events").NewRow()

       dsNewRow.Item("ID") = vbNull 'This is Auto incrementing in Access, Possible issue here
       dsNewRow.Item("EventName") = tbEventName.Text
       dsNewRow.Item("Command") = tbCommand.Text
       dsNewRow.Item("Time") = dtpTime.Text
       dsNewRow.Item("Days") = strSu & strM & strT & strW & strR & strF & strSa

       dsEvents.Tables("events").Rows.Add(dsNewRow)

       daEvents.Update(dsEvents, "events")

       MsgBox("New Record added to the Database")

   End Sub

[pendragon]

I always set the Auto Inc. field to -1 when adding a record, not sure if this will fix your problem but worth a try

[ZeroEffect]

I tried this and I still get the same result. but with a little more research I found that my column labeled "Time" is a labeld with a reserved word. I changed it from "Time" to "RunTime" and everything worked. Here is a link to reserved works.

 

http://www.xlinesoft.com/asprunnerpro/articles/sql_access_odbc_reserved_keywords.htm

 

Thanks for your help. I am now working on getting the ID column to update in my DataGridView. It looks like all I have to do is reload the Data from the file.

 

And Now I have another issue. When I delete a row I get this error,

 

"Deleted row information cannot be accessed through the row."

 

This only happens when the row being deleted is NOT the last row.

 

Any thoughts on this?

 

Here is my Code for deleteing and where the error is happening.

 

Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click

Dim cb As New OleDb.OleDbCommandBuilder(daEvents)

dsEvents.Tables("events").Rows(DataGridView.CurrentRow.Index).Delete()

dsEvents.AcceptChanges()

daEvents.Update(dsEvents, "events")

'DataGridView.DataSource = dsEvents.Tables("events")

 

End Sub

 

Here is where the debug stops

 

Private Sub DataGridView_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView.SelectionChanged

If blnFormClosing = False Then

resetCB()

tbEventName.Text = dsEvents.Tables("Events").Rows(DataGridView.CurrentRow.Index).Item("EventName")

tbCommand.Text = dsEvents.Tables("Events").Rows(DataGridView.CurrentRow.Index).Item("Command")

dtpTime.Text = dsEvents.Tables("Events").Rows(DataGridView.CurrentRow.Index).Item("RunTime")

 

Days(dsEvents.Tables("Events").Rows(DataGridView.CurrentRow.Index).Item("Days"))

 

End If

End Sub

 

Thanks

 

ZeroEffect

Edited August 4, 2008 by ZeroEffect