[分享]文章《有关 JET SQL “位与”等位操作》

zhuyiwen

    经测试,在 JET 4.0 (Access 2000 及以后版本中) 支持 BAND (Binary AND) / BOR (Binary OR) / BXOR (Binary XOR) / BNOT (Binary NOT) 操作。但 不 能用于 ACCESS 查询。可以通过 ADO 语句调用。



例：

1. Function TestBand()
   
   
2.     Dim rs As New ADODB.Recordset
   
   
3.     Dim strSql As String
   
   
4. 
   
   
5.     strSql = "SELECT c2, (c2 BAND 2) As MyResult FROM cc;"
   
   
6.     rs.Open strSql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
   
7. 
   
   
8.     Do While Not rs.EOF
   
   
9.         Debug.Print rs!c2, rs!MyResult
   
   
10.         rs.MoveNext
    
    
11.     Loop
    
    
12. 
    
    
13.     rs.Close
    
    
14.     Set rs = Nothing
    
    
15. End Function

复制代码

运行结果：

1             0

2             2

3             2

4             0

5             0

6             2

7             2

8             0

9             0



可是, 未找到任何正式的文档说明.



2004.08.10

ui

不错，深层次！值！

zhuyiwen

还支持 BNOT (Binary NOT)

tmtony

不错，学到一招。

sweetduck

深奥。。。