"J. Babe" <babe_jt@hotmail.com> wrote in message
news:8b32873e.0307281146.29acbe13@posting.google.com...
> I am updating an Access 2000 database using ASP.NET. I pass a
> datatable to a function in a DLL that updates the database with a
> DataAdapter. When I run the program it crashes when updating and gives
> the error: "Syntax Error in INSERT INTO Statement". I'm wondering what
> I can do to fix it.
>
> Private Sub SaveWork()
> 'Create an instance of a class to perform DB operations....
> Dim objWork as new Work()
> Dim dr As DataRow
> Dim dtUpdate As New DataTable()
> 'return template for blank row
> dtUpdate = objWork.GetAllWork(True)
> dr = dtUpdate.NewRow
> With dr 'set info in the datatable with values in textbox
> fields
> .Item("PersonID") = CInt(Session("PersonID"))
> .Item("ProjectID") = intProjectID
> .Item("Position") = txtPosition.Text.Trim
> .Item("Sector") = txtSector.Text.Trim
> .Item("Hours") = dblHours
> .Item("Description") = txtDescription.Text
> .Item("Date") = strDate
> .Item("Temp") = True
> End With
> dtUpdate.Rows.Add(dr) 'Adding the new record to the datatable
> objWork.SaveWork(dtUpdate, intProjectID)
> End Sub
>
>
> The function in the Work.vb class....
>
> Public Function SaveWork(ByVal dtUpdate As DataTable, ByVal
> ProjectID As Integer) As Boolean
> OpenDB()
> Dim da As New OleDbDataAdapter("SELECT * FROM WorkLog", con)
> Dim cb As New OleDbCommandBuilder(da)
> da.InsertCommand = cb.GetInsertCommand
> da.Update(dtUpdate) '!!!!!!!!!!!!!!Crashes on this
> line!!!!!!!!!!!!!!
> CloseDB()
> Return True
> End Function