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

1、傳播優(yōu)秀Word版文檔 ，希望對(duì)您有幫助，可雙擊去除！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所示界面圖2傳播優(yōu)秀Word版文檔 ，希望對(duì)您有幫助，可雙擊去除！圖3選擇部件“Microsoft ADO Data Control 6.0 (OLEDB)”，出現(xiàn)如圖4所示控件圖4傳播優(yōu)秀Word版文檔 ，希望對(duì)您有幫助，可雙擊去除！4、添加控件Adodc圖54、 在控件Adodc上添加數(shù)據(jù)源鼠標(biāo)指向控件Adodc1，單擊右

2、鍵，選擇“ADODC 屬性”，彈出如圖7所示界面圖6傳播優(yōu)秀Word版文檔 ，希望對(duì)您有幫助，可雙擊去除！圖7單擊“生成 (U). . .”，彈出如圖8所示界面圖8選擇“Microsoft Jet 4.0 OLE DB Provider”，單擊“下一步 (N) ”，彈出如圖9所示界面?zhèn)鞑?yōu)秀Word版文檔 ，希望對(duì)您有幫助，可雙擊去除！圖9單擊“. . .”，添加數(shù)據(jù)源（第一步所建Access 數(shù)據(jù)庫(kù)），如圖10所示圖10單擊“測(cè)試連接（T）”，出現(xiàn)提示框，如圖11所示圖11之后點(diǎn)擊“確定”，退回到如圖12所示界面?zhèn)鞑?yōu)秀Word版文檔 ，希望對(duì)您有幫助，可雙擊去除！圖12單擊“記錄源”，彈出

3、如圖13所示界面圖13在“命令類型”下，選擇“1 - adCmdText”，在“命令文本 （SQL）”下，輸入“Select * from test1”，最后單擊“應(yīng)用”，“確定”即可之后，進(jìn)入程序書寫部分程序部分需要注意接頭形式及簡(jiǎn)單例子如下：Private Sub Command1_Click() VB按鈕控件Dim mydb As New ADODB.Connection 定義新的數(shù)據(jù)庫(kù)連接mydb.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:read databasetest1test1.mdb 數(shù)據(jù)庫(kù)絕對(duì)路徑Dim rs As New ADODB.Recordset 定義數(shù)據(jù)庫(kù)的一個(gè)對(duì)象mydb.Open 打開數(shù)據(jù)庫(kù)rs.Open select * from test1, mydb, 3, 3 打開數(shù)據(jù)庫(kù)中的表test1傳播優(yōu)秀Word版文檔 ，希望對(duì)您有幫助，可雙擊去除！For i = 1 To 1 ! For循環(huán)控制選擇哪一行rs.MoveNextNext iMe.Text1.Text = rs.Fields