VB處理數(shù)據(jù)庫時求數(shù)據(jù)表記錄總數(shù)的最佳方法
作者：深圳寶安原來電子有限公司
倪堅(jiān)明
---- ---- VB主要處理的是MDB格式的數(shù)據(jù)庫，但就在這方面，它就偏偏出了差錯，先看看下例：
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(App.Path & "\zzr.mdb")
Set rs = db.OpenRecordset("test")
Debug.Print rs.RecordCount
---- ---- 此例假設(shè)在應(yīng)用程序目錄下有一個名為"zzr.mdb"的數(shù)據(jù)庫，而且它里邊有一個名為"test"的表，此程序的目的就是求出該表中的記錄的總數(shù)。此處用到的是"表"對象的RecordCount屬性，這樣用在一般性況下是正確的，但并不能保證在所有的情況下都能得出正確的結(jié)果，比如說表中的數(shù)據(jù)量很大，或者是數(shù)據(jù)庫受到過什么損害等等。如果碰到這種情況，我們可以換一個角度來處理。請看下面的程序：
Dim db As Database
Dim rs As Recordset
Dim Num As Long
Set db = OpenDatabase(App.Path & "\zzr.mdb")
Set rs = db.OpenRecordset("test")
Num = 0
rs.MoveFirst
Do While Not rs.EOF()
Num = Num + 1
rs.MoveNext
Loop
Debug.Print Num
---- ---- 這樣，最后得到的Num即為正解結(jié)果，這種方法的思路是從表的開始處一直順序走到結(jié)尾，就可以"數(shù)"出表中到底有多少條記錄。這種方法看起來很笨，但是它卻是一個相當(dāng)準(zhǔn)確的方法，大家不防可以試一下。
---- 再看筆者的說法：
---- 先看上面一行程序：Debug.Print rs.RecordCount，VB5在讀取數(shù)據(jù)表時并非一次性將全部記錄均讀入內(nèi)存（想想看如果有一個表，里面有一百萬個記錄甚至一億個或更多，要想全部讀入內(nèi)存，你的機(jī)器能承受得了嗎？），只是先讀入一部分（在下認(rèn)為這是VB的優(yōu)異這處），recordset對象并非表的全部記錄，只是已讀入內(nèi)存的部分，故用rs.recordcount得到的不是表的記錄總數(shù)。 “頁“ Pagesize
---- 再看上面程序的改良部份：
Do While Not rs.EOF()
Num = Num + 1
rs.MoveNext
Loop
Debug.Print Num
---- 在下用十萬個記錄的表對上面這段程序做了個測試，結(jié)果花了六分半鐘（intel 166,32M內(nèi)存），如此的等待，閣下有耐心無？請看在下的對策：
---- 假設(shè)數(shù)據(jù)表已打開，用
rs.Recordset.MoveLast '將指針移到表的最后一筆記錄
debug.print rs.Recordset.RecordCount
即可得出正確結(jié)果。
或者用下一種方法亦可
rs.Recordset.MoveLast
debug.print rs.Recordset.AbsolutePosition+1
'調(diào)用絕對位置,因vb的第一筆記錄是由零算起，故要+1。
