VB作為一個(gè)高效快捷的開(kāi)發(fā)工具而言，在數(shù)據(jù)庫(kù)開(kāi)發(fā)上有著很好的表現(xiàn)。但是，對(duì)于很多初學(xué)者而言，入門時(shí)經(jīng)常會(huì)看一些并非高效且封裝得更加多的代碼作為學(xué)習(xí)參考（如那種用什么控件、數(shù)據(jù)捆綁之類的范例代碼），導(dǎo)致很多多初學(xué)者想深入時(shí)會(huì)更加茫然。其實(shí)，曾經(jīng)很多用VB開(kāi)發(fā)的數(shù)據(jù)庫(kù)商用軟件都不會(huì)用那種方法，因?yàn)楸撞『芏?#xff0c;效率也不高。先總結(jié)一下為什么說(shuō)用數(shù)據(jù)控件效率不高。首先，作為數(shù)據(jù)庫(kù)操作的對(duì)象而言，是不需要有用戶界面的，完全可以在后來(lái)默默的查詢數(shù)據(jù)供開(kāi)發(fā)者在代碼里任意使用，而控件，其實(shí)就是一個(gè)用窗口封裝的代碼模塊，里面除了對(duì)接數(shù)據(jù)查詢功能，還花了不少代碼去搞窗口消息的處理和重繪之類的，當(dāng)然除了浪費(fèi)內(nèi)存，還浪費(fèi)CPU去處理那些窗口代碼，與單純的無(wú)界面后臺(tái)操作數(shù)據(jù)庫(kù)的方式而言，控件的效率肯定要打折扣，還有一個(gè)問(wèn)題就是多窗口使用同一個(gè)數(shù)據(jù)庫(kù)時(shí)，處理起來(lái)也很麻煩。再說(shuō)說(shuō)那種捆綁數(shù)據(jù)自動(dòng)顯示的弊病和問(wèn)題吧。首先因?yàn)槔壛藬?shù)據(jù)源的控件都是自行去分析捆綁記錄集的字段、類型、數(shù)據(jù)條數(shù)等，并根據(jù)數(shù)據(jù)源的觸發(fā)事件將其需要顯示的信息自動(dòng)顯示在數(shù)據(jù)表或輸入框中，那么就意味著這些控件都有通過(guò)消息或管道進(jìn)行偵聽(tīng)監(jiān)控才觸發(fā)的這些更新過(guò)程，這無(wú)形中又會(huì)浪費(fèi)很多內(nèi)存資源和CPU資源，效率肯定也會(huì)下降。再者就是靈活性差，因?yàn)樗歉鶕?jù)記錄集查詢出來(lái)的內(nèi)容變化整體輸出或單條輸出，而不是通過(guò)代碼控制處理，碰到些想合并表格或做點(diǎn)表格表達(dá)式運(yùn)算處理就有心無(wú)力了。所以，通常專業(yè)的商用軟件很少有人會(huì)用這種數(shù)據(jù)控件或數(shù)據(jù)捆綁技術(shù)作為數(shù)據(jù)庫(kù)操作的核心處理模式。那么我所謂的專業(yè)的商用軟件具體用的是什么技術(shù)去實(shí)現(xiàn)這種數(shù)據(jù)庫(kù)操作的呢？其實(shí)對(duì)于看了眾多案例的初學(xué)者來(lái)說(shuō)應(yīng)該也可能見(jiàn)過(guò)，就是使用 ADO 對(duì)象，全稱是 Microsoft?ActiveX Data Objects，在VB引用里可以找到，不過(guò)你可能找到的有很多版本，如：

具體選哪一個(gè)呢，其實(shí)都可以，保險(xiǎn)點(diǎn)選個(gè)最低版本都兼容，當(dāng)你勾選了一個(gè)ADO對(duì)象后選確定，然后點(diǎn)擊“對(duì)象瀏覽器”按鈕，然后再點(diǎn)開(kāi)對(duì)象下拉列表，就可以看到一個(gè)新的對(duì)象 ADODB在你的工程中了，如：

這時(shí)我們可以鼠標(biāo)右鍵點(diǎn)擊Form1窗口，在彈出的菜單選“查看代碼”編輯些初始代碼。

而在編寫(xiě)代碼前，我先介紹一下 ADO 對(duì)象，ADO 對(duì)象主要是負(fù)責(zé)與數(shù)據(jù)引擎對(duì)接的一個(gè)公共接口。其中比較常用的有兩個(gè)部分，一個(gè)是鏈接對(duì)象 ADODB.Connection 和記錄集 ADODB.Recordset，然后我再分別介紹一下這兩個(gè)對(duì)象的一些功能和常用的方法與屬性：

ADODB.Connection 對(duì)象

負(fù)責(zé)鏈接目標(biāo)數(shù)據(jù)庫(kù)（可以指定服務(wù)器、用戶賬號(hào)、密碼、數(shù)據(jù)庫(kù)名稱、數(shù)據(jù)庫(kù)文件地址等等信息與指定數(shù)據(jù)庫(kù)連接），還可以直接在已連接數(shù)據(jù)庫(kù)的對(duì)象上調(diào)用 Execute 方法執(zhí)行 SQL 語(yǔ)句。

常用的方法有：Open、Execute、Close，常用的屬性有：State

ADODB.Connection.Open 方法用來(lái)連接數(shù)據(jù)庫(kù)
ADODB.Connection.Execute 方法用來(lái)在已連接的數(shù)據(jù)庫(kù)執(zhí)行 SQL 語(yǔ)句
ADODB.Connection.Close 方法可以關(guān)閉已連接的數(shù)據(jù)庫(kù)
ADODB.Connection.State 屬性可以讀取當(dāng)前的連接狀態(tài)
當(dāng)然，ADODB.Connection 還有其它很多方法、屬性與事件，不過(guò)通常不常用，上面這些通常的程序夠用了，如果想深入了解別的屬性或方法，可以看看 VS6 的 MSDN 說(shuō)明。

?

ADODB.Recordset?對(duì)象

負(fù)責(zé)利用以連接好的 ADODB.Connection 對(duì)查詢出來(lái)的數(shù)據(jù)進(jìn)行進(jìn)一步的處理，所以 ADODB.Recordset 在使用是需要關(guān)聯(lián) ADODB.Connection 對(duì)象一起使用。

常用的方法有：Open、MoveNext、Move、Close，常用的屬性有：RecordCount、Fields、EOF等。

當(dāng)然像 AddNew、UpdateBatch、MoveFirst、MoveLast、MovePrevious、Delete 等等也是比較常用的，只是如果玩 SQL 語(yǔ)句進(jìn)行創(chuàng)建、查詢、插入、刪除等操作，這些方法屬性等都很少用到。

ADODB.Recordset.Open 指定 ADODB.Connection 對(duì)象查詢指定的 SQL語(yǔ)句
ADODB.Recordset.MoveNext 將當(dāng)前記錄向下移動(dòng)一條
ADODB.Recordset.Move 將當(dāng)前記錄向上或向下移動(dòng)到指定的條數(shù)，可以輸入負(fù)數(shù)或正數(shù)
ADODB.Recordset.Close 關(guān)閉查詢結(jié)果
ADODB.Recordset.RecordCount 取得已查詢的數(shù)據(jù)條數(shù)（要得到數(shù)據(jù)條數(shù)不建議使用該屬性，可以用SQL語(yǔ)句的Count聚合函數(shù)統(tǒng)計(jì)出數(shù)據(jù)結(jié)果，效率會(huì)更高）
ADODB.Recordset.Fields 取得已查詢的出的字段信息，包含字段名稱、類型、數(shù)據(jù)等都可以讀取或設(shè)置
ADODB.Recordset.EOF 可以在死循環(huán)里判斷是否移動(dòng)到了數(shù)據(jù)結(jié)尾以結(jié)束死循環(huán)
?

有了這兩個(gè)對(duì)象后基本上就可以對(duì)數(shù)據(jù)庫(kù)進(jìn)行任何操作了，之后的關(guān)鍵就是去了解 SQL 語(yǔ)句了，不同的數(shù)據(jù)庫(kù)在 SQL 語(yǔ)句的使用上會(huì)略有不同，但也是大同小異的，如 ACCESS的日期類型和MS SQLServer 的日期類型就有少許區(qū)別，ACCESS是用 #2019-12-06# 來(lái)指定日期，而 MS SQLServer 是用 '2019-12-06' 來(lái)指定日期等大同小異的區(qū)別。

現(xiàn)在我們可以來(lái)看看具體的使用案例了：

由于我們之前在工程里引用的 ADO 對(duì)象，所以我們可以在窗口代碼里直接定義Connection與Recordset類型的變量，如：

Private Sub Form_Load()Dim conn As ConnectionDim rs As RecordsetEnd Sub

但是，VB的對(duì)象使用是需要初始化的，所以我們還需要為這兩個(gè)對(duì)象變量進(jìn)行初始化，過(guò)程如下：

Private Sub Form_Load()Dim conn As Connection ' 定義數(shù)據(jù)連接對(duì)象變量Dim rs As Recordset ' 定義記錄集對(duì)象變量Set conn = New Connection ' 初始化數(shù)據(jù)連接對(duì)象Set rs = New Recordset ' 初始化記錄集對(duì)象變量End Sub

接著我們需要先鏈接數(shù)據(jù)庫(kù)，然后才能對(duì)數(shù)據(jù)庫(kù)進(jìn)行創(chuàng)建、查詢、修改、插入、刪除等操作，所以我們先來(lái)了解一下如何鏈接數(shù)據(jù)庫(kù)。鏈接數(shù)據(jù)庫(kù)之前有介紹，我們可以通過(guò)?Connection 的 Open 方法來(lái)連接數(shù)據(jù)庫(kù)，具體格式是：

對(duì)象.Open 字符串類型的連接語(yǔ)句，例如我們嘗試鏈接一個(gè)存放在 d:\1.mdb 的 ACCESS 數(shù)據(jù)庫(kù)，我們可以這樣進(jìn)行連接：

Private Sub Form_Load()Dim conn As Connection ' 定義數(shù)據(jù)連接對(duì)象變量Dim rs As Recordset ' 定義記錄集對(duì)象變量Set conn = New Connection ' 初始化數(shù)據(jù)連接對(duì)象Set rs = New Recordset ' 初始化記錄集對(duì)象變量' 連接 ACCESS 數(shù)據(jù)庫(kù)conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\1.mdb"End Sub

但是，即使使用了 Open 方法嘗試鏈接數(shù)據(jù)庫(kù)也未必就能鏈接成功，因?yàn)榭赡芪募灰馔庖苿?dòng)，文件被意外修改或是磁盤出現(xiàn)壞道什么的導(dǎo)致文件丟失，作為一個(gè)專業(yè)的軟件不可能讓一個(gè)不能確定的鏈接跑之后的程序的，所以需要對(duì)鏈接狀態(tài)進(jìn)行判斷，確認(rèn)鏈接狀態(tài)不是關(guān)閉后才繼續(xù)跑之后的程序，否則將提示錯(cuò)誤做重新鏈接或退出程序之類的處理，如：

Private Sub Form_Load()Dim conn As Connection ' 定義數(shù)據(jù)連接對(duì)象變量Dim rs As Recordset ' 定義記錄集對(duì)象變量Set conn = New Connection ' 初始化數(shù)據(jù)連接對(duì)象Set rs = New Recordset ' 初始化記錄集對(duì)象變量' 連接 ACCESS 數(shù)據(jù)庫(kù)conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\1.mdb"If conn.State = 0 ThenMsgBox "連接數(shù)據(jù)庫(kù)失敗，請(qǐng)您確定"EndEnd If' 已經(jīng)正常連接數(shù)據(jù)庫(kù)'...End Sub

在開(kāi)發(fā)這種 Open、Close 程序的時(shí)候，需要養(yǎng)成一個(gè)良好的習(xí)慣，就是當(dāng)你寫(xiě)了 Open 之后，接著就想著在哪先寫(xiě)好 Close 過(guò)程，如：

Private Sub Form_Load()Dim conn As Connection ' 定義數(shù)據(jù)連接對(duì)象變量Dim rs As Recordset ' 定義記錄集對(duì)象變量Set conn = New Connection ' 初始化數(shù)據(jù)連接對(duì)象Set rs = New Recordset ' 初始化記錄集對(duì)象變量' 連接 ACCESS 數(shù)據(jù)庫(kù)conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\1.mdb"If conn.State = 0 ThenMsgBox "連接數(shù)據(jù)庫(kù)失敗，請(qǐng)您確定"EndEnd If' 已經(jīng)正常連接數(shù)據(jù)庫(kù)'...' 完成所有數(shù)據(jù)操作關(guān)閉數(shù)據(jù)連接conn.Close End Sub

然后我們來(lái)進(jìn)一步說(shuō)一說(shuō)?Connection 的 Execute 方法，通常?Execute 方法都是用作那種不需要返回，只需要執(zhí)行一次SQL性操作的情況下使用，如：創(chuàng)建數(shù)據(jù)表、插入數(shù)據(jù)、修改數(shù)據(jù)、刪除數(shù)據(jù)時(shí)使用，所以，接下來(lái)我們嘗試在一個(gè)數(shù)據(jù)表中實(shí)現(xiàn)數(shù)據(jù)的插入、修改、刪除等操作。例如我們 d:\1.mdb ACCESS數(shù)據(jù)庫(kù)中有一個(gè)名為?user 的表，字段分別有 id、uid()、pwd、uname、sex，bd等，類型如圖：

然后我們嘗試插入一條數(shù)據(jù)，代碼如下：

Private Sub Form_Load()Dim conn As Connection ' 定義數(shù)據(jù)連接對(duì)象變量Dim rs As Recordset ' 定義記錄集對(duì)象變量Set conn = New Connection ' 初始化數(shù)據(jù)連接對(duì)象Set rs = New Recordset ' 初始化記錄集對(duì)象變量' 連接 ACCESS 數(shù)據(jù)庫(kù)conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\1.mdb"If conn.State = 0 ThenMsgBox "連接數(shù)據(jù)庫(kù)失敗，請(qǐng)您確定"EndEnd If' 已經(jīng)正常連接數(shù)據(jù)庫(kù)'---------- 插入數(shù)據(jù) ----------conn.Execute "INSERT INTO `user` (`uid`,`pwd`,`uname`,`sex`,`bd`) VALUES ('sk','123','人類',1,#2019-12-06#)"' 完成所有數(shù)據(jù)操作關(guān)閉數(shù)據(jù)連接conn.Close End Sub

然后我們先確保關(guān)掉 ACCESS 的情況下嘗試運(yùn)行程序，再用 ACCESS 打開(kāi)數(shù)據(jù)庫(kù)看看結(jié)果，發(fā)現(xiàn)數(shù)據(jù)已經(jīng)插入成功了：

但這時(shí)候我們會(huì)發(fā)現(xiàn)如果要同時(shí)插入多條數(shù)據(jù)SQL語(yǔ)句會(huì)很長(zhǎng)，這時(shí)候還是直接在 Execute 方法后放字符串會(huì)很難管理字符串，所以我們可以在程序開(kāi)頭多定義一個(gè)字符串變量出來(lái)專門存儲(chǔ)SQL語(yǔ)句，這樣使用起來(lái)代碼格式看起來(lái)會(huì)整潔很多：

Private Sub Form_Load()Dim conn As Connection ' 定義數(shù)據(jù)連接對(duì)象變量Dim rs As Recordset ' 定義記錄集對(duì)象變量Dim SQL As String ' 定義一個(gè)字符串變量用來(lái)存儲(chǔ) SQL 語(yǔ)句Set conn = New Connection ' 初始化數(shù)據(jù)連接對(duì)象Set rs = New Recordset ' 初始化記錄集對(duì)象變量' 設(shè)置數(shù)據(jù)庫(kù)連接語(yǔ)句SQL = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\1.mdb"' 連接 ACCESS 數(shù)據(jù)庫(kù)conn.Open SQLIf conn.State = 0 ThenMsgBox "連接數(shù)據(jù)庫(kù)失敗，請(qǐng)您確定"EndEnd If' 已經(jīng)正常連接數(shù)據(jù)庫(kù)'---------- 插入數(shù)據(jù) ----------SQL = "INSERT INTO `user` ("SQL = SQL & "`uid`,"SQL = SQL & "`pwd`,"SQL = SQL & "`uname`,"SQL = SQL & "`sex`,"SQL = SQL & "`bd`"SQL = SQL & ") VALUES "SQL = SQL & "('sk','123','人類',1,#2019-12-06#)"conn.Execute SQL' 完成所有數(shù)據(jù)操作關(guān)閉數(shù)據(jù)連接conn.Close End Sub

然后我們?cè)賴L試一下刪除所有數(shù)據(jù)

Private Sub Form_Load()Dim conn As Connection ' 定義數(shù)據(jù)連接對(duì)象變量Dim rs As Recordset ' 定義記錄集對(duì)象變量Dim SQL As String ' 定義一個(gè)字符串變量用來(lái)存儲(chǔ) SQL 語(yǔ)句Set conn = New Connection ' 初始化數(shù)據(jù)連接對(duì)象Set rs = New Recordset ' 初始化記錄集對(duì)象變量' 設(shè)置數(shù)據(jù)庫(kù)連接語(yǔ)句SQL = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\1.mdb"' 連接 ACCESS 數(shù)據(jù)庫(kù)conn.Open SQLIf conn.State = 0 ThenMsgBox "連接數(shù)據(jù)庫(kù)失敗，請(qǐng)您確定"EndEnd If' 已經(jīng)正常連接數(shù)據(jù)庫(kù)'---------- 刪除數(shù)據(jù) ----------SQL = "DELETE FROM `user`"conn.Execute SQL'---------- 插入數(shù)據(jù) ----------SQL = "INSERT INTO `user` ("SQL = SQL & "`uid`,"SQL = SQL & "`pwd`,"SQL = SQL & "`uname`,"SQL = SQL & "`sex`,"SQL = SQL & "`bd`"SQL = SQL & ") VALUES "SQL = SQL & "('sk','123','人類',1,#2019-12-06#)"conn.Execute SQL' 完成所有數(shù)據(jù)操作關(guān)閉數(shù)據(jù)連接conn.Close End Sub

這個(gè)時(shí)候我們?cè)龠\(yùn)行一次程序，會(huì)發(fā)現(xiàn)原先 ID 為 1 的數(shù)據(jù)變成了 ID 為 2 的數(shù)據(jù)，這是因?yàn)樵瓉?lái)添加的那條 ID 為 1 的數(shù)據(jù)在程序一運(yùn)行時(shí)就被無(wú)差別的清理掉了，然后這條?ID 為 2 數(shù)據(jù)是剛剛運(yùn)行的程序才插入進(jìn)去的。

然后我們?cè)賴L試著同時(shí)加幾條數(shù)據(jù)并嘗試修改某條數(shù)據(jù)看看：

Private Sub Form_Load()Dim conn As Connection ' 定義數(shù)據(jù)連接對(duì)象變量Dim rs As Recordset ' 定義記錄集對(duì)象變量Dim SQL As String ' 定義一個(gè)字符串變量用來(lái)存儲(chǔ) SQL 語(yǔ)句Dim SQL_INSERT As String ' 定義一個(gè)字符串變量用來(lái)存儲(chǔ) SQL INSERT 語(yǔ)句Set conn = New Connection ' 初始化數(shù)據(jù)連接對(duì)象Set rs = New Recordset ' 初始化記錄集對(duì)象變量' 設(shè)置數(shù)據(jù)庫(kù)連接語(yǔ)句SQL = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\1.mdb"' 連接 ACCESS 數(shù)據(jù)庫(kù)conn.Open SQLIf conn.State = 0 ThenMsgBox "連接數(shù)據(jù)庫(kù)失敗，請(qǐng)您確定"EndEnd If' 已經(jīng)正常連接數(shù)據(jù)庫(kù)'---------- 刪除數(shù)據(jù) ----------SQL = "DELETE FROM `user`"conn.Execute SQL'---------- 插入數(shù)據(jù) ----------SQL_INSERT = "INSERT INTO `user` (`uid`,`pwd`,`uname`,`sex`,`bd`) VALUES "SQL = SQL_INSERT & "('sk','123','人類',1,#2019-12-06#)"conn.Execute SQLSQL = SQL_INSERT & "('ii','111','測(cè)試1',0,#2019-12-06#)"conn.Execute SQLSQL = SQL_INSERT & "('jjj','222','測(cè)試2',0,#2019-12-06#)"conn.Execute SQLSQL = SQL_INSERT & "('kk','333','測(cè)試3',0,#2019-12-06#)"conn.Execute SQL'---------- 修改數(shù)據(jù) ----------' 指定條件為 UID 為 jjj 的數(shù)據(jù)，將其 uname 改為 TestUserName， sex 改為 1SQL = "UPDATE `user` SET `uname`='TestUserName',`sex`=1 WHERE `uid`='jjj';"conn.Execute SQL' 完成所有數(shù)據(jù)操作關(guān)閉數(shù)據(jù)連接conn.Close End Sub

然后可以發(fā)現(xiàn)數(shù)據(jù)庫(kù)添加了有4條數(shù)據(jù)， UID 為 jjj 的數(shù)據(jù) uname 變成了 TestUserName：

但老是這么用ACCESS來(lái)讀數(shù)據(jù)也不是個(gè)辦法，所以當(dāng)我們了解了刪除、插入、修改數(shù)據(jù)后，我們就來(lái)了解一下查詢數(shù)據(jù)的方法了，讓我們先按照步驟，先看看輸入一個(gè)查詢語(yǔ)句查詢數(shù)據(jù)表的過(guò)程代碼：

Private Sub Form_Load()Dim conn As Connection ' 定義數(shù)據(jù)連接對(duì)象變量Dim rs As Recordset ' 定義記錄集對(duì)象變量Dim SQL As String ' 定義一個(gè)字符串變量用來(lái)存儲(chǔ) SQL 語(yǔ)句Dim SQL_INSERT As String ' 定義一個(gè)字符串變量用來(lái)存儲(chǔ) SQL INSERT 語(yǔ)句Set conn = New Connection ' 初始化數(shù)據(jù)連接對(duì)象Set rs = New Recordset ' 初始化記錄集對(duì)象變量' 設(shè)置數(shù)據(jù)庫(kù)連接語(yǔ)句SQL = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\1.mdb"' 連接 ACCESS 數(shù)據(jù)庫(kù)conn.Open SQLIf conn.State = 0 ThenMsgBox "連接數(shù)據(jù)庫(kù)失敗，請(qǐng)您確定"EndEnd If' 已經(jīng)正常連接數(shù)據(jù)庫(kù)'---------- 刪除數(shù)據(jù) ----------SQL = "DELETE FROM `user`"conn.Execute SQL'---------- 插入數(shù)據(jù) ----------SQL_INSERT = "INSERT INTO `user` (`uid`,`pwd`,`uname`,`sex`,`bd`) VALUES "SQL = SQL_INSERT & "('sk','123','人類',1,#2019-12-06#)"conn.Execute SQLSQL = SQL_INSERT & "('ii','111','測(cè)試1',0,#2019-12-06#)"conn.Execute SQLSQL = SQL_INSERT & "('jjj','222','測(cè)試2',0,#2019-12-06#)"conn.Execute SQLSQL = SQL_INSERT & "('kk','333','測(cè)試3',0,#2019-12-06#)"conn.Execute SQL'---------- 修改數(shù)據(jù) ----------' 指定條件為 UID 為 jjj 的數(shù)據(jù)，將其 uname 改為 TestUserName， sex 改為 1SQL = "UPDATE `user` SET `uname`='TestUserName',`sex`=1 WHERE `uid`='jjj';"conn.Execute SQL'---------- 查詢數(shù)據(jù) ----------SQL = "SELECT * FROM `user`"rs.Open SQL, conn, adOpenStatic, adLockReadOnlyrs.Close' 完成所有數(shù)據(jù)操作關(guān)閉數(shù)據(jù)連接conn.Close End Sub

看到查詢語(yǔ)句部分很簡(jiǎn)單，就是記錄集 rs 指定數(shù)據(jù)連接對(duì)象 conn 用已設(shè)置好的?SQL 語(yǔ)句查詢并返回結(jié)果，然后記錄集 rs 把存入相關(guān)屬性或?qū)ο笾?#xff0c;如把字段相關(guān)的結(jié)果存入記錄集內(nèi)的?Fields 對(duì)象中，當(dāng)前是否是最后一條記錄存到 EOF 屬性中等等。所以這時(shí)候我們可以使用?RecordCount 屬性的讀取取得查詢到的數(shù)據(jù)條數(shù)，這樣就可以用 For 語(yǔ)句循環(huán)指定的次數(shù)，然后在每一次循環(huán)過(guò)程中向下移動(dòng)一下數(shù)據(jù)就可以讀取所有的數(shù)據(jù)并輸出出來(lái)，如：

Private Sub Form_Load()Dim conn As Connection ' 定義數(shù)據(jù)連接對(duì)象變量Dim rs As Recordset ' 定義記錄集對(duì)象變量Dim SQL As String ' 定義一個(gè)字符串變量用來(lái)存儲(chǔ) SQL 語(yǔ)句Dim SQL_INSERT As String ' 定義一個(gè)字符串變量用來(lái)存儲(chǔ) SQL INSERT 語(yǔ)句Dim i As Long ' 定義一個(gè)整數(shù)變量用作循環(huán)語(yǔ)句使用Dim str_out As String ' 定義一個(gè)字符串變量用作輸出文本用Set conn = New Connection ' 初始化數(shù)據(jù)連接對(duì)象Set rs = New Recordset ' 初始化記錄集對(duì)象變量' 設(shè)置數(shù)據(jù)庫(kù)連接語(yǔ)句SQL = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\1.mdb"' 連接 ACCESS 數(shù)據(jù)庫(kù)conn.Open SQLIf conn.State = 0 ThenMsgBox "連接數(shù)據(jù)庫(kù)失敗，請(qǐng)您確定"EndEnd If' 已經(jīng)正常連接數(shù)據(jù)庫(kù)'...'---------- 查詢數(shù)據(jù) ----------str_out = ""SQL = "SELECT * FROM `user`"rs.Open SQL, conn, adOpenStatic, adLockReadOnlyFor i = 1 To rs.RecordCountIf i > 1 Thenstr_out = str_out & vbCrLfEnd Ifstr_out = str_out & rs!id & vbTab & rs!uname & vbTab & rs!uid & vbTab & rs!pwdIf i < rs.RecordCount Then rs.MoveNextNext irs.Close' 完成所有數(shù)據(jù)操作關(guān)閉數(shù)據(jù)連接conn.CloseMsgBox str_out, 64, "數(shù)據(jù)"End End Sub

也可以用 Do loop 這類死循環(huán)通過(guò)讀取 EOF 屬性來(lái)讀取全部數(shù)據(jù)，如：

Private Sub Form_Load()Dim conn As Connection ' 定義數(shù)據(jù)連接對(duì)象變量Dim rs As Recordset ' 定義記錄集對(duì)象變量Dim SQL As String ' 定義一個(gè)字符串變量用來(lái)存儲(chǔ) SQL 語(yǔ)句Dim SQL_INSERT As String ' 定義一個(gè)字符串變量用來(lái)存儲(chǔ) SQL INSERT 語(yǔ)句Dim i As Long ' 定義一個(gè)整數(shù)變量用作循環(huán)語(yǔ)句使用Dim str_out As String ' 定義一個(gè)字符串變量用作輸出文本用Set conn = New Connection ' 初始化數(shù)據(jù)連接對(duì)象Set rs = New Recordset ' 初始化記錄集對(duì)象變量' 設(shè)置數(shù)據(jù)庫(kù)連接語(yǔ)句SQL = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\1.mdb"' 連接 ACCESS 數(shù)據(jù)庫(kù)conn.Open SQLIf conn.State = 0 ThenMsgBox "連接數(shù)據(jù)庫(kù)失敗，請(qǐng)您確定"EndEnd If' 已經(jīng)正常連接數(shù)據(jù)庫(kù)'...'---------- 查詢數(shù)據(jù) ----------str_out = ""SQL = "SELECT * FROM `user`"rs.Open SQL, conn, adOpenStatic, adLockReadOnlyi = 1Do While Not rs.EOFIf i > 1 Thenstr_out = str_out & vbCrLfEnd Ifstr_out = str_out & rs!id & vbTab & rs!uname & vbTab & rs!uid & vbTab & rs!pwdi = i + 1If Not rs.EOF Then rs.MoveNextLooprs.Close' 完成所有數(shù)據(jù)操作關(guān)閉數(shù)據(jù)連接conn.CloseMsgBox str_out, 64, "數(shù)據(jù)"End End Sub

好了，這里就基本上算是能夠插入、修改、刪除、讀取數(shù)據(jù)庫(kù)了，如果想把查詢的內(nèi)容放到數(shù)據(jù)表內(nèi)，可以用一些第三方表格控件來(lái)處理，通常都支持行列設(shè)置的，自己按行列設(shè)置表格數(shù)據(jù)，這樣靈活性會(huì)很高，對(duì)于一些復(fù)雜的第三方表格控件來(lái)說(shuō)，還支持合并表格，多表頭的處理，用這種方法讀寫(xiě)數(shù)據(jù)會(huì)快很多。

總結(jié)

以上是生活随笔為你收集整理的关于VB访问数据库的一些经验（献给VB初学者）的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。