二級VB課堂：求數(shù)據(jù)表記錄總數(shù)的最佳方法

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

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

　

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ù)"出表中到底有多少條記錄。這種方法看起來很笨，但是它卻是一個(gè)相當(dāng)準(zhǔn)確的方法，大家不防可以試一下。
　　再看筆者的說法：

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

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

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

　　在下用十萬個(gè)記錄的表對上面這段程序做了個(gè)測試，結(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。

希望與更多計(jì)算機(jī)等級考試的網(wǎng)友交流，請進(jìn)入計(jì)算機(jī)等級考試論壇

更多信息請?jiān)L問：考試吧計(jì)算機(jī)等級考試欄目