VB主要處理的是MDB格式的數據庫，但就在這方面，它就偏偏出了差錯，先看看下例：

Dim db As Database Dim rs As Recordset Set db = OpenDatabase(App.Path & "\zzr.mdb") Set rs = db.OpenRecordset("test") Debug.Print rs.RecordCount

　　此例假設在應用程序目錄下有一個名為"zzr.mdb"的數據庫，而且它里邊有一個名為"test"的表，此程序的目的就是求出該表中的記錄的總數。此處用到的是"表"對象的RecordCount屬性，這樣用在一般性況下是正確的，但并不能保證在所有的情況下都能得出正確的結果，比如說表中的數據量很大，或者是數據庫受到過什么損害等等。如果碰到這種情況，我們可以換一個角度來處理。請看下面的程序：

　

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即為正解結果，這種方法的思路是從表的開始處一直順序走到結尾，就可以"數"出表中到底有多少條記錄。這種方法看起來很笨，但是它卻是一個相當準確的方法，大家不防可以試一下。
　　再看筆者的說法：

　　先看上面一行程序：Debug.Print rs.RecordCount，VB5在讀取數據表時并非一次性將全部記錄均讀入內存（想想看如果有一個表，里面有一百萬個記錄甚至一億個或更多，要想全部讀入內存，你的機器能承受得了嗎？），只是先讀入一部分（在下認為這是VB的優異這處），recordset對象并非表的全部記錄，只是已讀入內存的部分，故用rs.recordcount得到的不是表的記錄總數。

　　再看上面程序的改良部份：

Do While Not rs.EOF() Num = Num + 1 rs.MoveNext Loop Debug.Print Num

　　在下用十萬個記錄的表對上面這段程序做了個測試，結果花了六分半鐘（intel 166,32M內存），如此的等待，閣下有耐心無？請看在下的對策： 
　　 假設數據表已打開，用

　　rs.Recordset.MoveLast '將指針移到表的最后一筆記錄
　　debug.print rs.Recordset.RecordCount
　　即可得出正確結果。

　　或者用下一種方法亦可

　　rs.Recordset.MoveLast
　　debug.print rs.Recordset.AbsolutePosition+1
　　'調用絕對位置,因vb的第一筆記錄是由零算起，故要+1。

希望與更多計算機等級考試的網友交流，請進入計算機等級考試論壇

更多信息請訪問：考試吧計算機等級考試欄目