I can't get this update to work. This is the error I get.
Syntax error (missing operator) in query expression
VB.NET Code:
Private cnxnString As String = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\SPECTRUM\YMCA\db1.mdb") Private cnxn As New System.Data.OleDb.OleDbConnection(cnxnString) Private sql As New System.Data.OleDb.OleDbCommand Private myDataAdapter As New System.Data.OleDb.OleDbDataAdapter("SELECT * FROM [DEDUPED]", cnxn) Private myDataAdapter2 As System.Data.OleDb.OleDbDataAdapter Private cmdBuilder As New System.Data.OleDb.OleDbCommandBuilder(myDataAdapter) Private tblDEDUPED As New DataTable Private tblCOMBINED As New DataTable Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Cursor = Cursors.WaitCursor myDataAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey myDataAdapter.Fill(tblDEDUPED) Dim myUnitID As String = Nothing Dim myUpdateSQL As String = Nothing myDataAdapter.UpdateCommand = cmdBuilder.GetUpdateCommand For Each dbRow As DataRow In tblDEDUPED.Rows myUnitID = dbRow.Item("UNIT ID") myDataAdapter2 = New System.Data.OleDb.OleDbDataAdapter("SELECT * FROM [COMBINED] WHERE [UNIT ID] = '" & myUnitID & "'", cnxn) myDataAdapter2.Fill(tblCOMBINED) For j As Integer = 0 To tblCOMBINED.Rows.Count - 1 dbRow.Item("NAME1") = "TEST" Next j myDataAdapter.Update(tblDEDUPED) tblCOMBINED.Clear() Next myDataAdapter.Dispose() myDataAdapter2.Dispose() cnxn.Close() cnxn.Dispose() Me.Cursor = Cursors.Default MsgBox("DONE!") End Sub


Reply With Quote
