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

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

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

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

Setrs.ActiveConnection=connrs.Open“select*frominfo"'打開記錄集

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

Rs.Close之后還可以Rs.open

但SetRs=Nothing