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

1、這里以鏈接access數(shù)據(jù)庫為例。第一部分是通過語句鏈接，第二部分是通過控件鏈接一、 通過語句鏈接數(shù)據(jù)庫，然后把相應的數(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科學效應數(shù)據(jù)庫.mdb"紅色部分

2、寫你自己的數(shù)據(jù)庫路徑。3.打開數(shù)據(jù)庫cn.open constr打開表rs.open “select * from 效應表 where id=5“，cn取字符串并賦值給相應的文本Text1.text=rs.fields(“效應和現(xiàn)象名稱”)Text2.text=rs.fields(“文字解說”)關(guān)閉表rs.close關(guān)閉數(shù)據(jù)庫cn.close注意，最后兩步驟一定要有，不然下次打開數(shù)據(jù)庫的時候會提示出錯的，這樣的話，在窗口上建立兩個文本框就夠了。但是，在此之前還有一步一定要做，點"工程"-"引用"-找到"Microsoft ActiveX Dat

3、a Object 2.6 "，如圖所示：顯示的結(jié)果如下圖所示：通過與效應表對比發(fā)現(xiàn)顯示正確。總體代碼如下：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科學效應數(shù)據(jù)庫.mdb"'空格加短下劃線表示續(xù)行cn.open con

4、strrs.open "select * from 效應表 where id =5", cnText1.Text = rs.fields("效應和現(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控

5、件，選最后一個然后點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 效應表（表名，必填）8.設(shè)置好之后點確定就行了，這樣就通過adodc1控件連接到了數(shù)據(jù)庫中的這張表接下來是對d