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

　2006-02-27 21:09:30　来源：WEB开发网　　　

核心提示：SubForm1_Load()DimdbAsDatabaseDimdsAsSnapshotDimiNumAsInteger'总笔数DimwsqlAsString'SQL字串wsql="SelectCount(*)fromAuthorsWhereAU_ID>10"Setdb=Op

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而已！->