首页 > > 程序设计 > VB >

在抓取资料库之资料前先计算资料总笔数

2008-02-23 07:01:58来源：互联网阅读 ()

Sub Form1_Load()
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 启动时自动执行

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有