VB SQL UPDATE 命令返回错误“运行时错误 424：需要对象。”

Question

这是代码：

Dim tr As Transactions
Set tr = New Transactions

Dim ID As Integer
Dim name As String, username As String, password As String, activate As String

name = cmbName.Value
ID = tr.GetUserID(name)

If (AccountActivated = True) Then
    username = txtUsername.Value
    password = txtPassword.Value
    MsgBox name & " " & username & " " & password
    activate = "Yes"
Else
    username = ""
    password = ""
    activate = "No"
End If

tr.UpdateAccount name, username, password, activate 'ERROR HERE: Object required

---

这是我正在调用的函数：

 Public Function UpdateAccount(ByVal name As String, ByVal username As String, ByVal password As String, ByVal activation As String)
        Call connectDB
        sSQL = "update User set Username = '" & username & "', Password = '" & password & "', AccountActivated = '" & activation & "' where Name = '" & name & "'"
        MsgBox sSQL
        db.Execute sSQL
 End Function

Answer 1

为什么在这里使用“db”而在另一个问题上使用“CurrentDb”？始终使用显式选项进行编码。

为什么是function，改为sub，我不记得这是否会导致问题。

但最重要的是，不要使用从文本框中输入的文本来构建 sql 字符串，这很容易成为 SQL 注入的受害者，请使用参数。