Programming Forums > Application Development > Visual Basic .NET

TheFuture · Apr 18th, 2008, 10:40 AM

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

 vb Syntax (Toggle Plain Text) 
        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
        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	#1
TheFuture Newbie Join Date: Apr 2008 Posts: 1 Rep Power: 0	Problems updating access database 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 vb Syntax (Toggle Plain Text) 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 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 Last edited by Ancient Dragon; Apr 18th, 2008 at 5:04 PM. Reason: add code tags

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
MYOB Database Access Driver	MiKuS	PHP	1	Oct 31st, 2007 11:05 PM
searching an access database?	designXperts.net	Visual Basic .NET	12	Nov 27th, 2005 5:03 PM
How to connect with VB to an Access database on another computer	iown714	Visual Basic	5	Aug 4th, 2005 10:23 AM
java and MS Access database	borceivanovski	Java	0	Apr 26th, 2005 4:28 PM
problem with JDBC for talking to Microsoft Access database using a Java Applet	captainK	Java	4	Mar 20th, 2005 11:01 AM

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Programming Forums > Application Development > Visual Basic .NET

Problems updating access database