我將一個access db轉換為ODBC后端，我需要將dbSeeChanges添加到一行代碼中，但是當我添加代碼時，在登錄螢屏上又出現了一個錯誤 Err 3001 Invalid Argument
這是我使用的代碼，我絕對不是專業的程式員，我只是想教自己如何撰寫代碼，我在四處修補。
這是我使用的代碼，我絕對不是一個專業的編碼員，我只是想教自己如何編碼，我正在修補。
Private Sub cmdLogin_Click()
On Error GoTo cmdLogin_ClickErr
If Len(Me.txtUserName) = 9 And Len(Me. txtPassword) = 1 Then
TempVars.Add "UserName", "Developer"。
TempVars.Add "密碼", "1".
TempVars.Add "Admin", "-1"。
Else
Dim rs As 記錄集
Set rs = CurrentDb.OpenRecordset("Select * From TLKPeople Where Username = '"/span> & Me.txtUserName & " And Password = '" & Me.txtPassword & "' ", dbSeeChanges)
If Not rs.EOF Then
TempVars.Add "UserName", rs！UserName.Value
TempVars.Add "Password", rs!Password.Value
TempVars.Add "Admin", rs!Admin.Value
TempVars.Add "ReadOnly", rs!ReadOnly.Value
TempVars.Add "StdUser", rs!STDUser.Value
TempVars.Add "OpsUser", rs!OpsUser.Value
Else[/span].
MsgBox "您的登錄失敗！", vbOKOnly, "登錄失敗"。
Exit Sub
End If
End If
End Sub
uj5u.com熱心網友回復：
Password是Access SQL的一個保留字，所以：
Set rs = CurrentDb. OpenRecordset("Select * From TLKPeople Where Username = '" & Me.txtUserName & " And [Password] = '" & Me.txtPassword & "'", dbOpenDynaset, dbSeeChanges)
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/314452.html
標籤：
下一篇：為什么"PrevActiveClass?WinActivateahk_class%PrevActiveClass%`不作業？