Office中国论坛/Access中国论坛

标题: [分享]文章《有关 JET SQL “位与”等位操作》 [打印本页]
作者: zhuyiwen    时间: 2004-8-11 08:01
标题: [分享]文章《有关 JET SQL “位与”等位操作》
    经测试,在 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



  5.     strSql = "SELECT c2, (c2 BAND 2) As MyResult FROM cc;"

  6.     rs.Open strSql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic



  8.     Do While Not rs.EOF

  9.         Debug.Print rs!c2, rs!MyResult

  10.         rs.MoveNext

  11.     Loop



  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    时间: 2004-8-11 21:30
不错，深层次！值！
作者: zhuyiwen    时间: 2004-8-13 06:16
还支持 BNOT (Binary NOT)
作者: tmtony    时间: 2004-8-13 07:20
不错，学到一招。
作者: sweetduck    时间: 2004-8-13 18:32
深奥。。。



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3