AutoCAD 3DMAX C语言 Pro/E UG JAVA编程 PHP编程 Maya动画 Matlab应用 Android
Photoshop Word Excel flash VB编程 VC编程 Coreldraw SolidWorks A Designer Unity3D
 首页 > VB编程

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

51自学网 2016-08-19 http://www.51zixue.net
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 制作透明的表单 (Form)  下一篇:Visual Basic程序启动时,自动判断 Access 资料库是否损毁并自动修复