I'm keep getting this error message when I try to update to my database. It's an access database and I thought I everything right because I can view all the records but when I try to update it I get this message.
Syntax error (missing operator) in query expression '((ID = ?) AND ((? = 1 AND First Name IS NULL) OR (First Name = ?)) AND ((? = 1 AND Last Name IS NULL) OR (Last Name = ?)) AND ((? = 1 AND Address IS NULL) OR (Address = ?)) AND ((? = 1 AND City IS NULL) OR (City = ?)) AND ((? = 1 AND State IS NULL) OR (St'.
Here is where I make the connection.
rivate Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
con.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source = C:\AddressBook1.mdb"
con.Open()
sql = "SELECT * FROM tblContacts"
da = New OleDb.OleDbDataAdapter(sql, con)
da.Fill(ds, "AddressBook")
con.Close()
MaxRows = ds.Tables("AddressBook").Rows.Count
inc = -1
End Sub
Here is the code for my update button.
Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
If inc <> -1 Then
Dim cb As New OleDb.OleDbCommandBuilder(da)
ds.Tables("AddressBook").Rows(inc).Item(1) = firstTextBox.Text
ds.Tables("AddressBook").Rows(inc).Item(2) = lastTextBox.Text
ds.Tables("AddressBook").Rows(inc).Item(3) = addressTextBox.Text
ds.Tables("AddressBook").Rows(inc).Item(4) = cityTextBox.Text
ds.Tables("AddressBook").Rows(inc).Item(5) = stateTextBox.Text
ds.Tables("AddressBook").Rows(inc).Item(6) = zipTextBox.Text
ds.Tables("AddressBook").Rows(inc).Item(7) = phoneTextBox.Text
ds.Tables("AddressBook").Rows(inc).Item(8) = cellTextBox.Text
ds.Tables("AddressBook").Rows(inc).Item(9) = emailTextBox.Text
ds.Tables("AddressBook").Rows(inc).Item(10) = birthdayTextBox.Text
da.Update(ds, "AddressBook")
MsgBox("Data updated")
Else
MsgBox("No Records Yet")
End If
End Sub
SOMEONE HELP PLEASE! I've been trying to figure this out for two days and this assignment it due tonight. thanks
Apr 18th, 2008, 10:40 AM
Similar Threads
Linear Mode
