Hello,

I am just picking back up ASP.net and I'm looking to pick up a project from college. I can't seem to fix this error and am not sure what it is. I was wondering if anyone could help me wit the error.

It say this: OleDbException was unhandled by user code, syntax error (missing operator) in query expression 'SupplierID=' with this line

 drSupplier = cmdSelectSup.ExecuteReader(). 

I can't figure it out. Here is the code for the page. Thanks for all the help in advance.

Imports System.Data
Imports System.Data.OleDb

Partial Class viewSuppInfo
    Inherits System.Web.UI.Page
    Public Sub readSupplier()
        Dim suppID = Session("SupplierID")

        Dim objConnection As OleDbConnection
        objConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Users\Tony V\Documents\Old Hard Drive Files\Visual Studio 2005\WebSites\leancorfinal\App_Data\LeanC.mdb")
        'objConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; DataSource= C:\Documents and Settings\Jackie Werle\My Documents\Visual Studio 2005\WebSites\WebSite1\App_Data\LeanC.mdb")

        objConnection.Open()
        Dim drSupplier As OleDbDataReader
        Dim SelectSupSql As String
        SelectSupSql = "Select SupplierName, Address, Country, City, State, Zip, ContactName, ContactPhone, ContactEmail, ContactFax, PlannerName, AfterHoursContact, BegShipHours, EndShippingHours from Supplier where SupplierID=" & suppID
        Dim cmdSelectSup As OleDbCommand

        cmdSelectSup = New OleDbCommand(SelectSupSql, objConnection)
        cmdSelectSup.Parameters.Add("SupplierName", OleDbType.VarChar)
        cmdSelectSup.Parameters.Add("Address", OleDbType.VarChar)
        cmdSelectSup.Parameters.Add("Country", OleDbType.VarChar)
        cmdSelectSup.Parameters.Add("City", OleDbType.VarChar)
        cmdSelectSup.Parameters.Add("State", OleDbType.VarChar)
        cmdSelectSup.Parameters.Add("Zip", OleDbType.VarChar)

        cmdSelectSup.Parameters.Add("ContactName", OleDbType.VarChar)
        cmdSelectSup.Parameters.Add("ContactPhone", OleDbType.VarChar)
        cmdSelectSup.Parameters.Add("ContactEmail", OleDbType.VarChar)
        cmdSelectSup.Parameters.Add("ContactFax", OleDbType.VarChar)

        cmdSelectSup.Parameters.Add("PlannerName", OleDbType.VarChar)
        cmdSelectSup.Parameters.Add("AfterHoursContact", OleDbType.VarChar)
        cmdSelectSup.Parameters.Add("BegShipHours", OleDbType.VarChar)
        cmdSelectSup.Parameters.Add("EndShippingHours", OleDbType.VarChar)

        drSupplier = cmdSelectSup.ExecuteReader()


        If drSupplier.Read() Then
            vspsuppName.Text = drSupplier("SupplierName")
            vspAddress.Text = drSupplier("Address")
            vspCountry.Text = drSupplier("Country")
            vspCity.Text = drSupplier("City")
            vspsuppState.Text = drSupplier("State")
            vspZipCode.Text = drSupplier("Zip")

            vspCtsName.Text = drSupplier("ContactName")
            vspctsPhone.Text = drSupplier("ContactPhone")
            vspctsEmail.Text = drSupplier("ContactEmail")
            vspctsFax.Text = drSupplier("ContactFax")

            vspplnrsName.Text = drSupplier("PlannerName")
            vspaHCTs.Text = drSupplier("AfterHoursContact")
            vspbSHs.Text = drSupplier("BegShipHours")
            vspeSHs.Text = drSupplier("EndShippingHours")
        End If


    End Sub

    Protected Sub upSupInfo_click(ByVal sender As Object, ByVal e As System.EventArgs) Handles upsupInfo.Click
        Dim suppID = Session("SupplierID")


        Dim objConnection As OleDbConnection
        objConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\cbatest\06SIS540\group5\leancor\App_Data\LeanC.mdb")
        'objConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; DataSource= C:\Documents and Settings\Jackie Werle\My Documents\Visual Studio 2005\WebSites\WebSite1\App_Data\LeanC.mdb")

        Dim cmdUpdateSup As OleDbCommand
        Dim UpdateSQL As String

        UpdateSQL = "Update Supplier set SupplierName=@SupplierName,Address=@Address,City= @City,State=@State,Zip=@Zip,ContactName=@ContactName,ContactPhone=@ContactPhone,ContactEmail=@ContactEmail,ContactFax=@ContactFax,PlannerName=@PlannerName,AfterHoursContact=@AfterHoursContact,BegShipHours=@BegShipHours,EndShippingHours=@EndShippingHours where SupplierID=" & suppID
        
        'Try
        cmdUpdateSup = New OleDbCommand(UpdateSQL, objConnection)
        cmdUpdateSup.Parameters.AddWithValue("@SupplierName", vspsuppName.Text)
        cmdUpdateSup.Parameters.AddWithValue("@Address", vspAddress.Text)
        cmdUpdateSup.Parameters.AddWithValue("@Country", vspCountry.Text)
        cmdUpdateSup.Parameters.AddWithValue("@City", vspCity.Text)
        cmdUpdateSup.Parameters.AddWithValue("@State", vspsuppState.Text)
        cmdUpdateSup.Parameters.AddWithValue("@Zip", vspZipCode.Text)

        cmdUpdateSup.Parameters.AddWithValue("@ContactName", vspCtsName.Text)
        cmdUpdateSup.Parameters.AddWithValue("@ContactPhone", vspctsPhone.Text)
        cmdUpdateSup.Parameters.AddWithValue("@ContactEmail", vspctsEmail.Text)
        cmdUpdateSup.Parameters.AddWithValue("@ContactFax", vspctsFax.Text)

        cmdUpdateSup.Parameters.AddWithValue("@PlannerName", vspplnrsName.Text)
        cmdUpdateSup.Parameters.AddWithValue("@AfterHoursContact", vspaHCTs.Text)
        cmdUpdateSup.Parameters.AddWithValue("@BegShipHours", vspbSHs.Text)
        cmdUpdateSup.Parameters.AddWithValue("@EndShippingHours", vspeSHs.Text)



        objConnection.Open()
        cmdUpdateSup.ExecuteNonQuery()

        'Catch ex As Exception

        'Finally
        objConnection.Close()

        'End Try
        Response.Redirect("supplier.aspx")

    End Sub
    Protected Sub page_load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim suppID = Session("SupplierID")
        supUpdateMessage.Text = "View and/or update the information for Supplier #" & suppID
        readSupplier()


    End Sub
    Protected Sub viewparts_click(ByVal sender As Object, ByVal e As System.EventArgs) Handles viewParts.Click
        Dim supID = Session("SupplierID")
        Session("SuppIDCode") = supID
        Response.Redirect("SupPart.aspx")
    End Sub
    Protected Sub connectCarriers_click(ByVal sender As Object, ByVal e As System.EventArgs) Handles connectCarriers.Click
        Dim supID = Session("SupplierID")
        Session("SuppIDCode") = supID
        Response.Redirect("CarrPrefs.aspx")
    End Sub
End Class

Thanks,

Tony