如何在VBA中避免布尔值本地化，生成正确的SQL语句？

问题根源 #

法语系统环境下，VBA将布尔值True本地化转换为法语的Vrai，直接拼接到SQL语句中导致语法错误。以下是几种可行的修复方案：

方案1：直接返回固定字符串"True"/"False" #

修改IsFloorAccessible函数，放弃返回布尔类型，直接返回符合SQL要求的英文布尔字符串，彻底规避本地化转换：

Public Function IsFloorAccessible() As String
    If ManageSpaces.FloorAccessible.Value = "Yes" Then
        IsFloorAccessible = "True"
    Else
        IsFloorAccessible = "False"
    End If
End Function

方案2：用数字1/0替代布尔值 #

多数数据库支持用1表示真、0表示假，这种方式完全不受本地化影响：

Public Function IsFloorAccessible() As Integer
    IsFloorAccessible = IIf(ManageSpaces.FloorAccessible.Value = "Yes", 1, 0)
End Function

拼接后的SQL会变为SET [Floor Accessible] = 1，兼容性更强。

方案3：在SQL拼接时手动转换布尔值 #

如果不想修改原函数的返回类型，可在拼接SQL时对布尔值做判断，强制转换为英文字符串：

Private Function GetUpdateFloorAccessibilityCommand() As String
    Dim accessibleStatus As Boolean
    accessibleStatus = IsFloorAccessible()
    Dim sqlBoolStr As String
    sqlBoolStr = IIf(accessibleStatus, "True", "False")
    
    GetUpdateFloorAccessibilityCommand = "UPDATE Properties_FloorTraits SET [Floor Accessible] = " & sqlBoolStr & " " & _
                      "WHERE [Property ID] = '" & ManageSpaces.Id & "' AND [Floor] = " & ManageSpaces.Floors(ManageSpaces.FloorIdx, 1) & ";"
End Function

方案4：使用参数化查询（推荐） #

直接拼接字符串存在SQL注入风险，参数化查询能同时解决本地化和安全问题，是更规范的实现方式：

Private Sub ExecuteFloorAccessibilityUpdate()
    Dim conn As ADODB.Connection
    Set conn = New ADODB.Connection
    conn.Open "你的数据库连接字符串" '替换为实际连接串
    
    Dim cmd As ADODB.Command
    Set cmd = New ADODB.Command
    cmd.ActiveConnection = conn
    cmd.CommandText = "UPDATE Properties_FloorTraits SET [Floor Accessible] = ? WHERE [Property ID] = ? AND [Floor] = ?;"
    
    '绑定参数，自动处理数据类型与本地化
    cmd.Parameters.Append cmd.CreateParameter("Accessible", adBoolean, adParamInput, , IsFloorAccessible())
    cmd.Parameters.Append cmd.CreateParameter("PropID", adVarChar, adParamInput, 50, ManageSpaces.Id)
    cmd.Parameters.Append cmd.CreateParameter("Floor", adInteger, adParamInput, , ManageSpaces.Floors(ManageSpaces.FloorIdx, 1))
    
    cmd.Execute
    conn.Close
End Sub

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