Dim db As Database
Dim ds As Snapshot
Dim iNum As Integer '总笔数
Dim wsql As String 'SQL字串
wsql = "Select Count (*) from Authors Where AU_ID > 10"
Set db = OpenDatabase("c:\VB\biblio.mdb")
Set ds = db.CreateSnapshot(wsql)
iNum = ds(0)
MsgBox "总笔数为 " Str$(iNum)
End Sub
怎么样，是不是一样呢，只差在一个是 ADO，一个是 DAO 而已！
上一篇： Visual Basic程序启动时，自动判断 Access 资料库是否损毁并自动修复
下一篇： 让 Visual Basic程序在 Windows 启动时自动执行
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
