vb連接access數(shù)據(jù)庫(kù)及數(shù)據(jù)讀寫操作

1、ACCESS數(shù)據(jù)庫(kù)和VB的連接Edited by Ryan 20131、建立Access數(shù)據(jù)庫(kù)2、啟動(dòng) VB，建立標(biāo)準(zhǔn) EXE圖13、添加ActiveX控件鼠標(biāo)指向任意 VB控件，單擊右鍵，選擇“部件（O）”，岀現(xiàn)圖3所示界面至件I趾I辭丨可卸內(nèi)釦2J £v- fil 4 朿fc sF弓撫囪；叵I SB，岀現(xiàn)如圖4所示控件部件LivipClcl 1.0 疳|蘇KiCTSioft icc«es BirC-sli Coirol 9.0Mim與ft 如I D曲“ Conrrcl 5 D OLirtdHi cratfift Ctlendltr Contrcl 12. 0 CkutE

2、-. 0 (CIZDB)Hicr"江I C«ra» Cintrol 6.0NicrxMl CninCqjWtqI S 0Fliarooft Dtt« Bmd List Controls E.C Nirrginft Dststir: d. CgntFr-l S 0 OlIJlp)NicrEfi DtioLi st Contrcls &. 0 CUKE .Rimoft DfttcB'epsitcr Ctnire 6： 0jDL IZnicTMPft DTS 83|< Hi J>VicrEcft AXO Dl1 CintiroL 6

3、.0 (OLEDB)C. HBIOff 5 *i iy s i siiMSIOD：. CCX| 誦宇取消 | 應(yīng)用辺圖3選擇部件“ Microsoft ADO Data Con trol 6.0 (OLEDB)4、添加控件 Adodc圖54、在控件Adodc上添加數(shù)據(jù)源鼠標(biāo)指向控件 Adodcl，單擊右鍵，選擇“ ADODC屬性"，彈岀如圖7所示界面遐用 身械證記錄涯威色宇徘I其換性ILJ：圖7單擊“生成(U). . ”，彈岀如圖8所示界面，單擊“下一步(N) >>，彈岀如圖9所示界面圖8選擇 “Microsoft Jet 4.0 OLE DB Provider圖9單擊“

4、.”，添加數(shù)據(jù)源（第一步所建 Access數(shù)據(jù)庫(kù)），如圖10所示圖10單擊“測(cè)試連接（T）”，岀現(xiàn)提示框，如圖11所示圖11之后點(diǎn)擊“確定”，退回到如圖12所示界面圖12單擊“記錄源”，彈岀如圖13所示界面圖13在“命令類型”下，選擇1 - adCmdText ”，在“命令文本(SQL ) ”下，輸入“Select * from testl ” 最后單擊“應(yīng)用”，“確定”即可之后，進(jìn)入程序書寫部分程序部分需要注意接頭形式及簡(jiǎn)單例子如下：Private Sub Command1_Click()VB 按鈕控件Dim mydb As New ADODB.Co nn ecti on定義新的數(shù)據(jù)庫(kù)連接mydb.Co nn ectio nStri ng= "P rovider=Microsoft.Jet.OLEDB.4.O;Data Source=D:readdatabasetest1test1.mdb"數(shù)據(jù)庫(kù)絕對(duì)路徑Dim rs As New ADODB.Recordset定義數(shù)據(jù)庫(kù)的一個(gè)對(duì)象mydb.Ope n打開數(shù)據(jù)庫(kù)rs.Ope n "select * from testl", mydb, 3, 3打開數(shù)據(jù)庫(kù)中的表testlFor i = 1 To 1! For 循環(huán)控制選擇哪一行rs.MoveNextNext