使用DLookup查询用户时如何实现大小写敏感的密码比对

Access默认文本匹配规则为大小写不敏感，直接将密码判断写在DLookup条件中无法识别英文字母大小写差异，可通过「拆分查询+VBA层精确比对」的方式实现需求，具体方案如下：

实现逻辑 #

• 第一步：仅以用户名为条件，通过DLookup查询对应用户的存储密码，不在数据库查询阶段做密码匹配
• 第二步：在VBA代码层面通过二进制比较规则做密码比对，绕开Access默认的大小写不敏感规则，实现精确校验
• 额外优化：对输入内容的单引号做转义处理，避免特殊字符导致查询报错、SQL注入风险

可直接复用的代码 #

Dim storedPassword As Variant
Dim inputUser As String
Dim inputPwd As String

' 读取表单输入值，处理空值、去除首尾空格
inputUser = Trim(Nz(Me.Userbox.Value, ""))
inputPwd = Nz(Me.Passbox.Value, "")

' 基础非空校验
If Len(inputUser) = 0 Then
    MsgBox "请输入用户名", vbExclamation
    Me.Userbox.SetFocus
    Exit Sub
End If

' 仅根据用户名查询数据库中存储的密码
storedPassword = DLookup( _
    "password", _
    "UserID", _
    "UserName='" & Replace(inputUser, "'", "''") & "'" _
)

If IsNull(storedPassword) Then
    ' 用户不存在场景，统一提示避免泄露用户名存在性
    MsgBox "用户名或密码错误", vbCritical
    Me.Passbox.SetFocus
Else
    ' 二进制级比对，严格区分大小写，完全匹配才返回0
    If StrComp(CStr(storedPassword), inputPwd, vbBinaryCompare) = 0 Then
        ' 校验通过，写后续登录成功逻辑
        MsgBox "登录成功", vbInformation
    Else
        MsgBox "用户名或密码错误", vbCritical
        Me.Passbox.SetFocus
    End If
End If

关键说明 #

• StrComp函数的第三个参数传vbBinaryCompare（常量值为0）时，会按照字符的ASCII编码做逐位精确比对，大写、小写字母因编码值不同会被判定为不匹配，完全满足密码大小写敏感的校验要求。
• 不推荐直接在DLookup条件中内嵌StrComp做密码比对，该方式需要对密码输入值同样做单引号转义，代码冗余度更高，拆分查询逻辑的可维护性更好。

内容的提问来源于stack exchange，提问作者walid761