參數化的SQL UPDATE語句

Question

我見過很多參數化SQL查詢的例子，但遇到了幾個問題。

我知道我不是哈希密碼，所以請不要這樣。

以下是我的代碼：

cmd.CommandText = "UPDATE users SET username=@uName, pwd=@pWord, role=@uRole, actuser=@uActive WHERE ID=" & recordID 
cmd.Parameters.AddWithValue("@uName", tbUsername.Text) 
cmd.Parameters.AddWithValue("@pWord", tbPassword1.Text) 
cmd.Parameters.AddWithValue("@uRole", cbRole.SelectedItem) 
cmd.Parameters.AddWithValue("@uActive", isActive) 

我得到的錯誤是：

「標準表達式中數據類型不匹配」 我不明白爲什麼，因爲在代碼嘗試運行時，數據庫中的所有內容都是「短字符串」，除了「執行器」設置爲「是/否」並且「isActive」設置爲「是」之外。我已驗證表列標題是準確的，我不知道爲什麼這不起作用。

此格式似乎與INSERT語句一起使用，但不是UPDATE語句......但我無法在此刻確認。

任何幫助，將不勝感激。

編輯：

更新的代碼具有相同的錯誤。

Dim isActive As Boolean = False 
    If cbxActive.CheckState = CheckState.Checked Then 
     isActive = "True" 
    End If 

    cmd.CommandText = "UPDATE users SET username=@uName, pwd=@pWord, role=@uRole, actuser=@uActive WHERE ID=@ID" 
    cmd.Parameters.AddWithValue("@uName", tbUsername.Text) 
    cmd.Parameters.AddWithValue("@pWord", tbPassword1.Text) 
    cmd.Parameters.AddWithValue("@uRole", cbRole.SelectedItem.ToString()) 
    cmd.Parameters.AddWithValue("@uActive", If(isActive, "Yes", "No")) 
    cmd.Parameters.AddWithValue("@ID", recordID) 

    myConnection.Open() 
    Try 
     cmd.ExecuteNonQuery() 
    Catch ex As OleDb.OleDbException 
     MsgBox(ex.Message) 
     Exit Sub 
    End Try` 

SelectedItem正在從組合框的集合返回一個字符串。

這是我的數據庫結構。 Link to Picture of Access DB structure

這是另一種結構圖。 enter image description here

Answer 1

當然，我們只能猜測isActive和cbRole.SelectedItem中的內容，但我們肯定知道其中的一個，如果不是兩者，就會導致您的問題。

具體而言，只有在使用直接匹配類型時，纔可以使用AddWithValue。否則你需要精確設置這樣的參數數據類型

Dim p As New OleDbParameter(@pName, OleDbType.SomeType) 
p.Value = [your value] 
cmd.Parameters.Add(p) 

在你的情況下，這2行可能是[scratch]！有問題

cmd.Parameters.AddWithValue("@uRole", cbRole.SelectedItem) 
cmd.Parameters.AddWithValue("@uActive", isActive) 

第一行返回的對象可以是任何東西（只有你知道）。怎麼用它做

' If selected item is string 
cmd.Parameters.AddWithValue("@uRole", cbRole.SelectedItem.ToString()) 
' If selected item is integer 
cmd.Parameters.AddWithValue("@uRole", CInt(cbRole.SelectedItem)) 
' If selected item is complex object in which you use property 
Dim val As Integer = DirectCast(cbRole.SelectedItem, MyObjectType).SomeIntProperty 
cmd.Parameters.AddWithValue("@uRole", val) 

' If your value 'isActive' is boolean and you keep Yes/No in DB, you need this 
cmd.Parameters.AddWithValue("@uActive", if(isActive, "Yes", "No")) 
' and opposite 
cmd.Parameters.AddWithValue("@uActive", if(isActive = "Yes", 1, 0)) 
' you have to be careful here. In .NET false=0, all else <> 0. so, if your business logic needs True=1, all else <> 1, you need to convert correspondingly 

而最後一件事 - 爲什麼不參數...WHERE ID=" & recordID...？做同樣的事情

cmd.CommandText = ". . . . . WHERE ID= @id" 
cmd.Parameters.AddWithValue("@id", recordID)