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