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

文章出处：网络转载 作者：未知　发布时间：2006-07-28 收藏到QQ书签

SubForm1_Load()
DimdbAsDatabase
DimdsAsSnapshot
DimiNumAsInteger'总笔数
DimwsqlAsString'SQL字串

wsql="SelectCount(*)fromAuthorsWhereAU_ID>10"
Setdb=OpenDatabase("c:\vb\biblio.mdb")
Setds=db.CreateSnapshot(wsql)
iNum=ds(0)
MsgBox"总笔数为" Str$(iNum)
EndSub

怎么样，是不是一样呢，只差在一个是ADO，一个是DAO而已！->