ms-access 本地化和默认布尔值

Question

我们的访问客户端即时生成 SQL 插入、更新和删除指令，并在 MS-SQL Server 上发送。大多数用户拥有 Access 2007 的运行时版本，少数用户使用完整的 MS-Access 版本（2003 或 2007）。今天早上，我们国外的一位新用户使用 Access 2003 的法语/完整版本，无法更新包含以下内容的数据：布尔字段。

在法语版 Access 中，这些字段似乎填充了“Vrai/Faux”而不是“True/False”值。通过安装2007 access运行时解决了该问题。

但我想找到一个永久的解决方案，我可以从某个地方读取正在使用的 Access 的本地化版本，并将本地化的 True/False 值“翻译”为标准 True/False。我已经检查了计算机的区域设置但没有成功，所以它在其他地方。有什么想法吗？

编辑：按照 JohnFX 的提议，可以使用这个简单的函数有效地将本地 True/False 转换为通用 True/False：

Function xBoolean(xLocalBooleanValue) as Boolean
if cint(xLocalBooleanValue) = -1 Then
    xBoolean = True
endif
if cint(xLocalBooleanValue) = 0 Then
    xBoolean = False
endif
end function

编辑：按照 @David 的评论，我更改了最喜欢的解决方案。他的提议比我的聪明。

编辑：我通过读取记录集中字段的值来获取 Vrai/Faux 值：

? debug.print screen.activeForm.recordset.fields(myBooleanField).value 
Vrai

Answer 1

在所有情况下，无论本地化或数据库格式如何，True 都不是 FALSE 或 NOT 0。

因此，如果您将 True 的所有测试替换为 NOT 0，将 False 的所有测试替换为 =0，那么您就避免了 Access 关键字的本地化问题（令我惊讶的是，VBA 以及 Jet 和 Access 表达式服务不会但仍然理解 True/False），以及数据库引擎用于存储布尔值的任何约定。

一般来说，您的数据访问层应该为您抽象出来。根据我的经验，ODBC 和 ADO 都会自动执行此操作，因此您可以使用您知道的布尔值，并且它会以透明的方式为您处理。

我仍然对这个问题感到困惑，因为它听起来像是显示/格式问题，但对 True 和 False 使用 NOT 0 和 =0 可以在所有情况下完全避免该问题。

编辑：关于编辑为菲利普问题的函数：

是否有理由将函数的参数隐式定义为变体？你是这个意思吗？如果传递的是 Null，则第一个 CInt() 会出错，因为 CInt() 不能接受 Null。

另外，还有一个逻辑问题，在 VBA 中，除 0 之外的任何数字都应该返回 True。这也是完全冗余的代码。这更简单，并且在所有情况下都返回正确的结果：

  Function xBoolean(xLocalBooleanValue As Vriant) as Boolean
    If CInt(xLocalBooleanValue) <> 0 Then
       xBoolean = True
    End If
  End Function

或者，更简洁：

  Function xBoolean(xLocalBooleanValue As Variant) as Boolean
    xBoolean = (CInt(xLocalBooleanValue) <> 0)
  End Function

处理参数中传递的空值：

  Function xBoolean(xLocalBooleanValue As Variant) as Boolean
    xBoolean = (CInt(Nz(xLocalBooleanValue, 0)) <> 0)
  End Function

我不确定这在您当前使用它的上下文中是否必要，但我总是讨厌在其中编写代码我可以想象一种情况，它会出错——即使我知道它在当前上下文中无法中断，你永远不知道它最终会在哪里被使用，所以如果你预期可以处理的情况，你应该处理它。

过早优化？

不——它是在武器上加一个安全锁，以防止其被滥用。

（另一方面，如果处理预期错误需要比函数开始时更多的代码行，我会三思而后行）

Answer 2

您是否考虑过在更新和删除查询中使用 -1/0（Access 对于布尔值很奇怪）而不是 true/false？

你知道，数学是通用语言。

另外，为了避免对 UI 进行过多本地化，为什么不在 UI 上使用复选框而不是布尔值文本字段呢？

Answer 3

简单的：

Function xBoolean(bool As Variant) As Boolean
    xBoolean = Abs(Nz(bool, 0))
End Function