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

SubForm1_Load()
DimdbAsDatabase
DimdsAsSnapshot
DimiNumAsInteger总笔数
DimwsqlAsStringSQL字串

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

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