经测试,在 JET 4.0 (Access 2000 及以后版本中) 支持 BAND(Binary AND) / BOR(Binary OR) / BXOR(Binary XOR) 操作。但不能用于 ACCESS 查询。可以通过 ADO 语句调用。
例:
Function TestBand()
Dim rs As New ADODB.Recordset
Dim strSql As String
strSql = "SELECT c2, (c2 BAND 2) As MyResult FROM cc;"
rs.Open strSql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Do While Not rs.EOF
Debug.Print rs!c2, rs!MyResult
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Function
运行结果:
1 0
2 2
3 2
4 0
5 0
6 2
7 2
8 0
9 0
可是, 未找到任何正式的文档说明.