VB中用ADODC控件連接ACCESS數(shù)據(jù)庫(kù)

1、VB中用ADODC控件連接ACCESS數(shù)據(jù)庫(kù)教程2010-03-27 10:15:57 閱讀346評(píng)論0 字號(hào)：大中小 訂閱今天告訴大家VB連接數(shù)據(jù)庫(kù)的方法，我知道的有兩種：一種是在adodcl的屬性里設(shè)置數(shù)據(jù)庫(kù)文件的路徑，這種方法的 優(yōu)點(diǎn)是簡(jiǎn)單易操作，缺點(diǎn)是,當(dāng)源文件換了地方后，要重新設(shè)置數(shù) 據(jù)庫(kù)的路徑,否則連接不上數(shù)據(jù)庫(kù)了。一種是用代碼設(shè)置數(shù)據(jù)庫(kù)的路徑，這種方法的優(yōu)點(diǎn)就是只要源文 件和數(shù)據(jù)庫(kù)在同一文件夾下，無(wú)論移動(dòng)到哪里都能連接上。如果沒(méi)有建立好數(shù)據(jù)庫(kù)的話，先建立一個(gè)數(shù)據(jù)庫(kù)，然后建立一個(gè)表 比如我們建的表名為message,然后把里面的字段名稱(chēng)和數(shù)據(jù)類(lèi) 型都按自己的需要設(shè)置好然后保存就可以

2、了 .打開(kāi)Microsoft Visual Basic6.0我用的是 VB6.0,在需要調(diào)用數(shù)據(jù)庫(kù)的窗體上加入一個(gè) adodc控件,默認(rèn)名稱(chēng)為:Adodc1.默認(rèn)的 情況下工具欄里是沒(méi)有這個(gè)控件的，可以打開(kāi)工程-部件(快捷鍵 CTRL+T),去掉只顯示選定項(xiàng)的勾，然后勾上Microsoft ADO Data Control(OLEDB),然后確定，工具欄就會(huì)多了一個(gè)adodc的控件。 第一種方法，設(shè)置adodc1的屬以連接數(shù)據(jù)庫(kù).在adodc1控件上右鍵-Adodc屬性-使用連接字符串-生成-Microsoft Jet 4.0 OLE DB Provider-下一步-選擇或輸入數(shù)據(jù)庫(kù)名稱(chēng)-找到

3、要連 接的數(shù)據(jù)庫(kù)后，確定然后記錄源設(shè)置屬性.如果要把內(nèi)容提交到數(shù)據(jù)庫(kù)一般使用adCmdTable.表選擇要連接的表。設(shè)置完畢后就可以了 .如果我們想把內(nèi)容提交到數(shù)據(jù)庫(kù).舉個(gè)例子.在窗體建立一個(gè)文本框,設(shè)置屬性中的DataSource為adodcl DataField為要連接的數(shù)據(jù)庫(kù)的字段名。如果數(shù)據(jù)庫(kù)中有字段，會(huì)讓你選擇。設(shè)置好后在窗體加一個(gè)添加記錄和一個(gè)提交的按鈕，設(shè)置代碼：Private Sub Comma nd1_Click()Adodcl. Recordset.Update'保存Adodc1.Refresh '刷新End Sub添加按鈕代碼:Private Sub Co

4、mma nd2_Click()Adodc1. Recordset.AddNew '添加新紀(jì)錄Adodc1 .Recordset("姓名 ”).Value = Text1.TextEnd Sub第二種方法:在窗體添加Adodc控件一個(gè)text控件一個(gè)添加記錄按鈕一個(gè)提交按鈕在窗體設(shè)置代碼:Private Sub Form_Load()Adodc1.C onn ecti on Stri ng ="Provider=Microsoft .J et.OLEDB.4.0;Data Source=" + App.Path+ "db1.mdb;Persist

5、Security Info=False"'設(shè)置數(shù)據(jù)庫(kù)路徑Adodc1.Comma ndType = adCmdText ' 設(shè)置記錄源Adodc1.RecordSource = "select * from message"'連接數(shù)據(jù)庫(kù)的message表文件Set Textl.DataSource = Adodcltextl.DataField ="姓名"End Sub添加記錄按鈕代碼：Private Sub Comma nd1_Click()Adodcl. Recordset.AddNew '添加新紀(jì)錄End

6、Sub提交代碼：Private Sub Comma nd2_Click()Adodcl. Recordset.Update'保存Adodcl.Refresh '刷新End Sub好了連接方法講完了，我都在機(jī)子上測(cè)試過(guò)了 ，因該沒(méi)有什么問(wèn)題 的。如果有問(wèn)題請(qǐng)多看幾遍，或看些別人寫(xiě)的程序代碼，會(huì)有很 大進(jìn)步的，我的VB也不好,高手莫笑。好了我再給大家?guī)讉€(gè)查詢數(shù)據(jù)庫(kù)常用的代碼：首記錄按鈕的代碼：Private Sub sjl_Click()Adodcl .R ecordset.MoveFirstEnd Sub上一條記錄按鈕代碼：Private Sub up_Click()Adodc1

7、.Recordset.MovePreviousIf Adodc1 .R ecordset.BOF The nAdodc1 .R ecordset.MoveFirstEnd IfEnd Sub下一條記錄代碼：Private Sub down_Click()Adodc1.Recordset.MoveNextIf Adodc1 .R ecordset.EOF The nAdodc1.Recordset.MoveLastEnd IfEnd Sub末記錄代碼：Private Sub mjl_Click()Adodc1.Recordset.MoveLastEnd Sub刪除記錄代碼：Private Sub Comma nd3_Click()Adodcl. Recordset.DeleteAdodcI.Record