資源描述：
《使用VB訪(fǎng)問(wèn)ACESS數(shù)據(jù)庫(kù).ppt》由會(huì)員上傳分享，免費(fèi)在線(xiàn)閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫(kù)。
1、使用VB訪(fǎng)問(wèn)ACESS數(shù)據(jù)庫(kù)杭十一中信息技術(shù)備課組黃玉芬VB與數(shù)據(jù)庫(kù)連接方式VisualBasic提供了比較豐富的數(shù)據(jù)訪(fǎng)問(wèn)技術(shù)，如ADO、DAO、RDO等，其中ADO(ActiveXDataObjects，ActiveX數(shù)據(jù)對(duì)象）是微軟公司提供的一種應(yīng)用程序訪(fǎng)問(wèn)數(shù)據(jù)庫(kù)的編程接口。它能完成DAO、RDO所有的功能。引入ADO庫(kù)定義文件在VB程序中使用ADO對(duì)象，必須先為當(dāng)前工程引用ADO的對(duì)象庫(kù)。方法：執(zhí)行“工程”菜單中“引用”命令，彈出“引用”對(duì)話(huà)框，如圖所示。選擇該選項(xiàng)（不同環(huán)境下ADO的版本號(hào)可能不同）單擊“確定”通過(guò)AD0從中國(guó)985高校數(shù)據(jù)庫(kù)文件“U
2、niversities.accdb”中獲取表“universities”中的數(shù)據(jù)，并將985高校的名稱(chēng)和所在地顯示在列表框中#1DimconnAsNewADODB.Connection#2conn.ConnectionString=“provider=microsoft.ace.oledb.12.0;datasource=”+App.Path+“Universities.accdb“#3conn.Open#4DimrsAsNewADODB.Recordset#5setrs.ActiveConnection=conn#6rs.Open"select*from
3、universities"#7i=0#8DoWhileNotrs.EOF#9i=i+1#10List1.AddItemrs.Fields(1)+""+rs.Fields(2)#11rs.MoveNext#12Loop#13List1.additem"共有"+Str(i)+"記錄"#14rs.Close#15conn.Close#1DimconnAsNewADODB.Connection‘定義連接數(shù)據(jù)庫(kù)的對(duì)象#2conn.ConnectionString=“provider=microsoft.ace.oledb.12.0;datasource=”+App.P
4、ath+“Universities.accdb“‘確定連接的數(shù)據(jù)庫(kù)#3conn.Open‘打開(kāi)數(shù)據(jù)庫(kù)的連接#15conn.Close‘關(guān)閉數(shù)據(jù)庫(kù)的連接#4DimrsAsNewADODB.Recordset‘創(chuàng)建記錄集#5setrs.ActiveConnection=conn‘設(shè)置記錄集的連接屬性#6rs.Open“select*fromuniversities“‘打開(kāi)記錄集#14rs.Close‘關(guān)閉記錄集#7i=0‘統(tǒng)計(jì)記錄數(shù)#8DoWhileNotrs.EOF‘EOF取值為true時(shí)表示已經(jīng)到達(dá)記錄集的結(jié)尾，否則為false#9i=i+1#10List
5、1.AddItemrs.Fields(“高校名稱(chēng)”)+""+rs.Fields(2)#11rs.MoveNext‘把當(dāng)前記錄指針移動(dòng)到下一條記錄#12Loop#13List1.additem"共有"+Str(i)+"記錄“#10List1.AddItemrs.Fields(“高校名稱(chēng)”)+""+rs.Fields(2)Rs.fields(字段序號(hào))，其中字段序號(hào)從0開(kāi)始編號(hào)Rs.fields(“字段名稱(chēng)”)Fields集合返回當(dāng)前記錄某個(gè)字段的數(shù)據(jù)有一下兩種方法使用VBAD0訪(fǎng)問(wèn)ACESS數(shù)據(jù)庫(kù)的一般流程#1DimconnAsNewADODB.Connect
6、ion#2conn.ConnectionString=“provider=microsoft.ace.oledb.12.0;datasource=”+App.Path+“Universities.accdb“#3conn.Open#4DimrsAsNewADODB.Recordset#5setrs.ActiveConnection=conn#6rs.Open"select*fromuniversities"#7i=0#8DoWhileNotrs.EOF#9i=i+1#10List1.AddItemrs.Fields(1)+""+rs.Fields(2)#1
7、1rs.MoveNext#12Loop#13List1.additem"共有"+Str(i)+"記錄"#14rs.Close#15conn.Close#1定義連接數(shù)據(jù)的對(duì)象#2確定連接的數(shù)據(jù)庫(kù)#3打開(kāi)到數(shù)據(jù)庫(kù)的連接#4創(chuàng)建記錄集#5設(shè)置記錄集的連接屬性#6打開(kāi)記錄集#7#8#9#10數(shù)據(jù)庫(kù)記錄的訪(fǎng)問(wèn)與讀取等操作#11#12#13#14關(guān)閉記錄集#15關(guān)閉到數(shù)據(jù)庫(kù)的連接
