vb連接access數(shù)據(jù)庫常用的方法兩種示例.docVIP

這里以鏈接access數(shù)據(jù)庫為例。第一部分是通過語句鏈接，第二部分是通過控件鏈接一、 通過語句鏈接數(shù)據(jù)庫，然后把相應(yīng)的數(shù)據(jù)賦值給某個文本框就行了。1.首先 定義幾個全局變量Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim constr As String2.給這些變量賦值，方便鏈接數(shù)據(jù)庫constr = Provider=Microsoft.Jet.OLEDB.4.0; & Data Source=D:EffectSolution科學效應(yīng)數(shù)據(jù)庫.mdb紅色部分寫你自己的數(shù)據(jù)庫路徑。3.打開數(shù)據(jù)庫cn.open constr打開表rs.open “select * from 效應(yīng)表 where id=5“，cn取字符串并賦值給相應(yīng)的文本Text1.text=rs.fields(“效應(yīng)和現(xiàn)象名稱”)Text2.text=rs.fields(“文字解說”)關(guān)閉表rs.close關(guān)閉數(shù)據(jù)庫cn.close注意，最后兩步驟一定要有，不然下次打開數(shù)據(jù)庫的時候會提示出錯的，這樣的話，在窗口上建立兩個文本框就夠了。但是，在此之前還有一步一定要做，點工程-引用-找到Microsoft ActiveX Data Object 2.6 ，如圖所示：顯示的結(jié)果如下圖所示：通過與效應(yīng)表對比發(fā)現(xiàn)顯示正確?？傮w代碼如下：Private Sub Form_Load()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim constr As Stringconstr = Provider=Microsoft.Jet.OLEDB.4.0; & _Data Source=D:EffectSolution科學效應(yīng)數(shù)據(jù)庫.mdb空格加短下劃線表示續(xù)行cn.open constrrs.open select * from 效應(yīng)表 where id =5, cnText1.Text = rs.fields(效應(yīng)和現(xiàn)象名稱)Text2.Text = rs.fields(文字解說)rs.Closecn.CloseEnd Sub二、通過ado控件鏈接數(shù)據(jù)庫，然后通過datagrid控件顯示數(shù)據(jù)庫中的相關(guān)表。過程示例：1.添加部件ado控件和datagrid控件，如圖所示：這樣工具欄里面會出現(xiàn)這樣兩個圖標（最下面）：2.把這兩個控件添加到你的form1里面，這個不用演示吧3.右擊你添加的adodc1控件，選最后一個然后點General里面的Use Connection String里面的那個Build，選擇microsoft JET 4.0 OLE DB Provider，選中之后點下一步；4.然后，點擊第一個項目右邊那個很多點的按鈕，找到自己的數(shù)據(jù)庫，選好之后點“打開“ 旁邊的文本框里面就有了數(shù)據(jù)路徑，像這樣：5.測試連接，成功了就行了6.點確定，顯示這樣一個界面：7.點右邊第三個RecordSource 按鈕，設(shè)置成如下情況cmdtext選擇1，然后輸入SQL語句，Select * from 效應(yīng)表（表名，必填）8.設(shè)置好之后點確定就行了，這樣就通過adodc1控件連接到了數(shù)據(jù)庫中的這張表接下來是對datagrid