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

1、這里以鏈接access數(shù)據(jù)庫(kù)為例。第一部分是通過(guò)語(yǔ)句鏈接，第二部分是通過(guò)控件鏈接一、 通過(guò)語(yǔ)句鏈接數(shù)據(jù)庫(kù)，然后把相應(yīng)的數(shù)據(jù)賦值給某個(gè)文本框就行了。1.首先 定義幾個(gè)全局變量Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim constr As String2.給這些變量賦值，方便鏈接數(shù)據(jù)庫(kù)constr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=D:EffectSolution科學(xué)效應(yīng)數(shù)據(jù)庫(kù).mdb"紅色部分

2、寫你自己的數(shù)據(jù)庫(kù)路徑。3.打開數(shù)據(jù)庫(kù)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(“文字解說(shuō)”)關(guān)閉表rs.close關(guān)閉數(shù)據(jù)庫(kù)cn.close注意，最后兩步驟一定要有，不然下次打開數(shù)據(jù)庫(kù)的時(shí)候會(huì)提示出錯(cuò)的，這樣的話，在窗口上建立兩個(gè)文本框就夠了。但是，在此之前還有一步一定要做，點(diǎn)"工程"-"引用"-找到"Microsoft ActiveX Dat

3、a Object 2.6 "，如圖所示：顯示的結(jié)果如下圖所示：通過(guò)與效應(yīng)表對(duì)比發(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科學(xué)效應(yīng)數(shù)據(jù)庫(kù).mdb"'空格加短下劃線表示續(xù)行cn.open con

4、strrs.open "select * from 效應(yīng)表 where id =5", cnText1.Text = rs.fields("效應(yīng)和現(xiàn)象名稱")Text2.Text = rs.fields("文字解說(shuō)")rs.Closecn.CloseEnd Sub二、通過(guò)ado控件鏈接數(shù)據(jù)庫(kù)，然后通過(guò)datagrid控件顯示數(shù)據(jù)庫(kù)中的相關(guān)表。過(guò)程示例：1.添加部件ado控件和datagrid控件，如圖所示：這樣工具欄里面會(huì)出現(xiàn)這樣兩個(gè)圖標(biāo)（最下面）：2.把這兩個(gè)控件添加到你的form1里面，這個(gè)不用演示吧3.右擊你添加的adodc1控

5、件，選最后一個(gè)然后點(diǎn)General里面的Use Connection String里面的那個(gè)Build，選擇microsoft JET 4.0 OLE DB Provider，選中之后點(diǎn)下一步；4.然后，點(diǎn)擊第一個(gè)項(xiàng)目右邊那個(gè)很多點(diǎn)的按鈕，找到自己的數(shù)據(jù)庫(kù)，選好之后點(diǎn)“打開“ 旁邊的文本框里面就有了數(shù)據(jù)路徑，像這樣：5.測(cè)試連接，成功了就行了6.點(diǎn)確定，顯示這樣一個(gè)界面：7.點(diǎn)右邊第三個(gè)RecordSource 按鈕，設(shè)置成如下情況cmdtext選擇1，然后輸入SQL語(yǔ)句，Select * from 效應(yīng)表（表名，必填）8.設(shè)置好之后點(diǎn)確定就行了，這樣就通過(guò)adodc1控件連接到了數(shù)據(jù)庫(kù)中的這張表接下來(lái)是對(duì)d