0

Hello Everyone,

I am very new to VB and currently using VB Express 2008 to create a simple program. However, I am running into a syntax error on my update code. I have done some research on the web but cannot find a common thread. I am hoping some of the experts could take a look and help me understand where I am going wrong with the syntax.

Code:

Public Shared Function UpdateAcctUsers(ByVal oldusermaint As UserMaint, ByVal newusermaint As UserMaint) As Boolean
        Dim connection As OleDbConnection = FINDB.GetConnection()
        Dim updateStatement As String _
            = "UPDATE tblValidUsers SET " _
            & "IST = @NewIST, " _
            & "BS = @NewBS, " _
            & "CIS = @NewCIS, " _
            & "CBS = @NewCBS, " _
            & "LCIS = @NewLCIS, " _
            & "LCBS = @NewLCBS, " _
            & "RF = @NewRF, " _
            & "CF = @NewCF, " _
            & "FEAM = @NewFEAM, " _
            & "IC = @NewIC, " _
            & "STD = @NewSTD, " _
            & "PF = @NewPF, " _
            & "CS = @NewCS, " _
            & "WHERE fldUser = @OldfldUser " _
            & "AND IST = @OldIST " _
            & "AND BS = @OldBS " _
            & "AND CIS = @OldCIS " _
            & "AND CBS = @OldCBS " _
            & "AND LCIS = @OldLCIS " _
            & "AND LCBS = @OldLCBS " _
            & "AND RF = @OldRF " _
            & "AND CF = @OldCF " _
            & "AND FEAM = @OldFEAM " _
            & "AND IC = @OldIC " _
            & "AND STD = @OldSTD " _
            & "AND PF = @OldPF " _
            & "AND CS = @OldCS "
        Dim updateCommand As New OleDbCommand(updateStatement, connection)
        updateCommand.Parameters.AddWithValue("@NewIST", newusermaint.IST)
        updateCommand.Parameters.AddWithValue("@NewBS", newusermaint.BS)
        updateCommand.Parameters.AddWithValue("@NewCIS", newusermaint.CIS)
        updateCommand.Parameters.AddWithValue("@NewCBS", newusermaint.CBS)
        updateCommand.Parameters.AddWithValue("@NewLCIS", newusermaint.LCIS)
        updateCommand.Parameters.AddWithValue("@NewLCBS", newusermaint.LCBS)
        updateCommand.Parameters.AddWithValue("@NewRF", newusermaint.RF)
        updateCommand.Parameters.AddWithValue("@NewCF", newusermaint.CF)
        updateCommand.Parameters.AddWithValue("@NewFEAM", newusermaint.FEAM)
        updateCommand.Parameters.AddWithValue("@NewIC", newusermaint.IC)
        updateCommand.Parameters.AddWithValue("@NewSTD", newusermaint.STD)
        updateCommand.Parameters.AddWithValue("@NewPF", newusermaint.PF)
        updateCommand.Parameters.AddWithValue("@NewCS", newusermaint.CS)
        updateCommand.Parameters.AddWithValue("@OldfldUser", oldusermaint.fldUser)
        updateCommand.Parameters.AddWithValue("@OldIST", oldusermaint.IST)
        updateCommand.Parameters.AddWithValue("@OldBS", oldusermaint.BS)
        updateCommand.Parameters.AddWithValue("@OldCIS", oldusermaint.CIS)
        updateCommand.Parameters.AddWithValue("@OldCBS", oldusermaint.CBS)
        updateCommand.Parameters.AddWithValue("@OldLCIS", oldusermaint.LCIS)
        updateCommand.Parameters.AddWithValue("@OldLCBS", oldusermaint.LCBS)
        updateCommand.Parameters.AddWithValue("@OldRF", oldusermaint.RF)
        updateCommand.Parameters.AddWithValue("@OldCF", oldusermaint.CF)
        updateCommand.Parameters.AddWithValue("@OldFEAM", oldusermaint.FEAM)
        updateCommand.Parameters.AddWithValue("@OldIC", oldusermaint.IC)
        updateCommand.Parameters.AddWithValue("@OldSTD", oldusermaint.STD)
        updateCommand.Parameters.AddWithValue("@OldPF", oldusermaint.PF)
        updateCommand.Parameters.AddWithValue("@OldCS", oldusermaint.CS)
        Try
            connection.Open()
            Dim count As Integer = updateCommand.ExecuteNonQuery
            If count > 0 Then
                Return True
            Else
                Return False
            End If
        Catch ex As Exception
            Throw ex
        Finally
            connection.Close()
        End Try
    End Function

Thanks in advance for your help!

Brad

2
Contributors
2
Replies
3
Views
9 Years
Discussion Span
Last Post by witternb
0

one problem is the comma before the WHERE.

Replace

& "CS = @NewCS, " _
            & "WHERE fldUser = @OldfldUser " _

by

& "CS = @NewCS  " _
            & "WHERE fldUser = @OldfldUser " _

If more syntax errors please post back

This question has already been answered. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.