高中信息技術(shù)選修1：算法與程序設(shè)計(jì) 本章小結(jié) 全市獲獎(jiǎng)

VB訪問(wèn)Access數(shù)據(jù)庫(kù)執(zhí)教人：瞿如珍杭州市艮山中學(xué)2017年4月14日算法與程序設(shè)計(jì)第三節(jié)算法在數(shù)據(jù)庫(kù)管理中的應(yīng)用VB訪問(wèn)數(shù)據(jù)庫(kù)通過(guò)ADO對(duì)象連接數(shù)據(jù)庫(kù)通過(guò)Recordset對(duì)象獲取數(shù)據(jù)表中的數(shù)據(jù)創(chuàng)建一個(gè)到數(shù)據(jù)庫(kù)的ADO連接打開(kāi)數(shù)據(jù)庫(kù)連接創(chuàng)建ADO記錄集從記錄集提取您需要的數(shù)據(jù)關(guān)閉記錄集關(guān)閉連接VB程序訪問(wèn)數(shù)據(jù)庫(kù)的步驟是：設(shè)置可引用ADO類庫(kù)MicrosoftActiveXDataObjects2.0LibraryMicrosoftActiveXDataObjects2.6Library菜單：[工程]→[引用…]一、ADO訪問(wèn)Access數(shù)據(jù)庫(kù)ADO(ActiveXDataObjects，ActiveX數(shù)據(jù)對(duì)象）是Microsoft提出的應(yīng)用程序接口（API）用以實(shí)現(xiàn)訪問(wèn)關(guān)系或非關(guān)系數(shù)據(jù)庫(kù)中的數(shù)據(jù)。該接口包含了多個(gè)對(duì)象，其中Connection對(duì)象用于與數(shù)據(jù)庫(kù)建立連接，在建立連接后，可以通過(guò)Recordset對(duì)象獲取數(shù)據(jù)表中的數(shù)據(jù)。事件事件描述事件數(shù)據(jù)ConnectionClose指示ADO要與OLEDB數(shù)據(jù)源斷開(kāi)連接。無(wú)。ConnectionOpen指示ADO正在連接到OLEDB數(shù)據(jù)源。如果客戶端提供，則為連接到數(shù)據(jù)源所用的連接字符串。RecordsetOpen指示ADO正在打開(kāi)遠(yuǎn)程服務(wù)器上的記錄集。僅適用于三層方案。打開(kāi)記錄集的源（通常為行返回的命令文本）。二、使用Connection對(duì)象連接數(shù)據(jù)庫(kù)Connection對(duì)象也稱為連接對(duì)象，是應(yīng)用程序和數(shù)據(jù)庫(kù)之間的橋梁，是用來(lái)與指定數(shù)據(jù)源創(chuàng)建連接的對(duì)象。在對(duì)數(shù)據(jù)源進(jìn)行操作之前，必須先與數(shù)據(jù)源建立連接。在使用Connection建立數(shù)據(jù)庫(kù)連接時(shí)，需要設(shè)置ConnectionString屬性的值（獲取或設(shè)置用于打開(kāi)數(shù)據(jù)庫(kù)的字符串）以及指定連接數(shù)據(jù)庫(kù)所使用的驅(qū)動(dòng)程序、數(shù)據(jù)庫(kù)名稱、用戶名和密碼等。Connection對(duì)象的主要作用是打開(kāi)與數(shù)據(jù)源的連接具有Open、Close等方法。Open方法建立到數(shù)據(jù)源的物理連接。使用Close方法將其斷開(kāi)。二、使用Connection對(duì)象連接數(shù)據(jù)庫(kù)DimconnAsNewADODB.Connection'定義并新建ADO對(duì)象實(shí)例conn.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;DATASource="&App.Path&"\Contacts.accdb“conn.Open‘打開(kāi)實(shí)例conn與數(shù)據(jù)庫(kù)連接conn.Close‘關(guān)閉實(shí)例conn與數(shù)據(jù)庫(kù)連接數(shù)據(jù)實(shí)例對(duì)象名定義為conn，并設(shè)置conn的連接字符串三、通過(guò)Recordset對(duì)象獲取數(shù)據(jù)庫(kù)中的數(shù)Recordset對(duì)象。使用ADO時(shí)，通過(guò)Recordset對(duì)象可以對(duì)幾乎所有數(shù)據(jù)進(jìn)行操作。所有Recordset（行）和字段（列）進(jìn)行構(gòu)造。由于提供者所支持的功能不同，某些Recordset方法或?qū)傩杂锌赡軣o(wú)效。Recordset對(duì)象可以通過(guò)ActiveConnection屬性來(lái)連接Connection對(duì)象。在用Recordset對(duì)象從數(shù)據(jù)庫(kù)獲取數(shù)據(jù)時(shí)，要設(shè)置ActiveConnection屬性值。

Setrs.ActiveConnection=conn‘實(shí)例rs與Connection對(duì)象conn建立關(guān)聯(lián)在rs與conn建立關(guān)聯(lián)后，可以用Recordset對(duì)象Open方法獲取數(shù)據(jù)表中的數(shù)據(jù)。rs.Open“select*FROMinfo"'打開(kāi)記錄集打開(kāi)Recordset時(shí)，當(dāng)前記錄位于第一個(gè)記錄（如果有），并且BOF和EOF屬性被設(shè)置為False。如果沒(méi)有記錄，BOF和EOF屬性設(shè)置是True。field對(duì)象又稱字段對(duì)象，是recordset的子對(duì)象。通過(guò)field對(duì)象可以動(dòng)態(tài)獲得字段的相關(guān)信息。fields集合中的每一個(gè)元素都是一個(gè)field對(duì)象，一個(gè)field對(duì)象，對(duì)應(yīng)的事recordset數(shù)據(jù)集合中的一個(gè)，也就是一個(gè)字段。rs.Fields(0)返回當(dāng)前記錄中的第一個(gè)字段。Recordset對(duì)象的fields集合Label3.Caption=rs.Fields("fName")Label4.Caption=rs.Fields("eMail")打開(kāi)Recordset時(shí)，當(dāng)前記錄位于第一個(gè)記錄（如果有），并且BOF和EOF屬性被設(shè)置為False。如果沒(méi)有記錄，BOF和EOF屬性設(shè)置是True。DimconnAsNewADODB.Connection'定義并新建ADO對(duì)象實(shí)例

DimrsAsNewADODB.Recordsetconn.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;DATASource="&App.Path&"\Contacts.accdb"conn.Open'打開(kāi)連接

Setrs.ActiveConnection=connrs.Open“select*frominfo"'打開(kāi)記錄集

Label3.Caption=rs.Fields("fName")Label4.Caption=rs.Fields("eMail")rs.Closeconn.CloseSetrs=NothingSetconn=NothingVB訪問(wèn)數(shù)據(jù)庫(kù)實(shí)例：Rs.Close是關(guān)閉Recordset（數(shù)據(jù)集）SetRs=Nothing是釋放對(duì)象

Rs.Close之后還可以Rs.open

但SetRs=Nothing