--------VB主要处理的是MDB格式的数据库,但就在这方面,它就偏偏出了差错,先看看下例:
DimdbAsDatabase
DimrsAsRecordset
Setdb=OpenDatabase(App.Path&"zzr.mdb")
Setrs=db.OpenRecordset("test")
Debug.Printrs.RecordCount
--------此例假设在应用程序目录下有一个名为"zzr.mdb"的数据库,而且它里边有一个名为"test"的表,此程序的目的就是求出该表中的记录的总数。此处用到的是"表"对象的RecordCount属性,这样用在一般性况下是正确的,但并不能保证在所有的情况下都能得出正确的结果,比如说表中的数据量很大,或者是数据库受到过什么损害等等。如果碰到这种情况,我们可以换一个角度来处理。请看下面的程序:
DimdbAsDatabase
DimrsAsRecordset
DimNumAsLong
Setdb=OpenDatabase(App.Path&"zzr.mdb")
Setrs=db.OpenRecords...[ 查看全文 ]