如何在 MS-ACCESS 中执行按位运算

Question

在 MSACCESS 内部，我想在查询的 WHERE 子句中使用相对简单的按位运算，如下所示：

SELECT *
FROM Table1
WHERE Column1 (some operator) 8 = 0

这将：

• 返回 Column1 没有设置第 4 位的行，例如 0， 1, 2, ..., 7（所有第 4 位都清零）和 16（即 00010000b）
• 排除 Column1 为 8、9、 10、...、15 等

PS：按位运算符与布尔运算不同吗？

Answer 1

您可以：

WHERE (((column\(2^b)) mod 2) = 1)

编辑：（其中 b 是要测试的特定位）

OR 在 Access 中不可用，除非您设置 ANSI 模式。

Answer 2

如果您可以在 ANSI-92 查询模式（例如，通过更改 Access UI 查询模式或使用 ADO classic 或 ADO.NET 连接到它），使用 BAND 运算符。

以下代码示例将其打印到“立即”窗口：

8 AND 7: -1 
8 BAND 7: 0 

第一种情况 (AND) 将两个数字视为 True 值，因此 True AND True 给出 -1 (True)。我认为 BAND 方法正是您所追求的。

Public Sub BitwiseAndQuery()
    'the db engine treats numbers as booleans with AND '
    Debug.Print "8 AND 7: "; _
        CurrentDb.OpenRecordset("SELECT 8 AND 7")(0)

    'ADO includes BAND for bitwise AND '
    Dim rs As Object
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open "SELECT (8 BAND 7)", CurrentProject.Connection
    Debug.Print "8 BAND 7:"; rs(0)
    rs.Close
    Set rs = Nothing
End Sub

Answer 3

在 VBA 中，您可以将布尔运算符应用于数字以执行按位运算

(13 AND 8) = 0

，但是在 SQL 中，这不起作用。但是，您可以编写一个在查询中调用的 VBA 函数。