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

1、精品ACCESS 數(shù)據(jù)庫和 VB 的連接Edited by Ryan 20131 、 建立 Access 數(shù)據(jù)庫2 、 啟動 VB ，建立標(biāo)準(zhǔn)EXE圖 13 、 添加 ActiveX控件鼠標(biāo)指向任意VB 控件，單擊右鍵，選擇“部件（O ）”，出現(xiàn)圖3 所示界面感謝下載載精品圖 2圖 3感謝下載載精品選擇部件“ Microsoft ADO Data Control 6.0 (OLEDB)”，出現(xiàn)如圖4 所示控件圖 44 、添加控件Adodc感謝下載載精品圖 54 、 在控件 Adodc上添加數(shù)據(jù)源鼠標(biāo)指向控件Adodc1，單擊右鍵，選擇“ADODC屬性”，彈出如圖7 所示界面圖 6感謝下載載精品

2、圖 7單擊“生成(U). . . ”，彈出如圖8 所示界面圖 8選擇“ Microsoft Jet 4.0 OLE DB Provider”，單擊“下一步(N) >>”，彈出如圖9 所示界面感謝下載載精品圖 9單擊“ . . .”，添加數(shù)據(jù)源（第一步所建Access數(shù)據(jù)庫），如圖 10 所示圖 10單擊“測試連接（T）”，出現(xiàn)提示框，如圖11 所示圖 11感謝下載載精品之后點擊“確定” ，退回到如圖12 所示界面圖 12單擊“記錄源” ，彈出如圖13 所示界面圖 13在“命令類型” 下，選擇 “1 - adCmdText”，在“命令文本（SQL ）”下，輸入“ Select* fr

3、om test1 ”，最后單擊“應(yīng)用” ，“確定”即可之后，進(jìn)入程序書寫部分感謝下載載精品程序部分需要注意接頭形式及簡單例子如下：Private Sub Command1_Click()VB 按鈕控件Dim mydb As New ADODB.Connection定義新的數(shù)據(jù)庫連接mydb.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:read databasetest1test1.mdb"數(shù)據(jù)庫絕對路徑Dim rs As New ADODB.Recordset定義數(shù)據(jù)庫的一個對象mydb.Open打開數(shù)據(jù)庫rs.Open "select * from test1", mydb, 3, 3打開數(shù)據(jù)庫中的表test1For i = 1 To 1! For 循環(huán)控制選擇哪一行rs.MoveNextNext iMe.Text1.T ext = rs.Fields(1).Value讀取指定行中的哪個數(shù)據(jù)給文本框rs.Upd