VB應用ADO操作Access數據庫

VB應用ADO操作Access數據庫。本站提示廣大學習愛好者：（VB應用ADO操作Access數據庫）文章只能為提供參考，不一定能成為您想要的結果。以下是VB應用ADO操作Access數據庫正文

這裡只是個簡略不克不及再簡略的VB小法式實例，但它包括這幾個症結字：VB6.0、ADO、Access

情況：visual basic 6.0 企業版（非精簡版，否則會缺乏必需的控件）

數據庫：Access數據庫，數據庫是xs.mbd，內建表為xj

成果：vb應用ADO銜接access數據庫，查詢xj表中的一切數據，然後把查詢到的成果輪回輸入到窗口中。

代碼：

Private Sub Form_Click()
Dim db As New ADODB.Connection, RS As New ADODB.Recordset 'ADO銜接對象和記載集
Dim strSQL As String 'SQL字符串
db.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "/xs.mdb" '數據庫銜接
db.Open '翻開數據庫

strSQL = "select * from xj" 'SQL字符串
RS.Open strSQL, db, 3, 1 '查詢數據表
Do While Not RS.EOF '輪回輸入查詢到的成果
Print RS!姓名; RS!性別; RS!班級; RS!出身年代 '在窗口中打印輸入成果
RS.MoveNext '記載下移
Loop
RS.Close '封閉記載集
Set RS = Nothing
End Sub

以上所述就是本文的全體內容了，願望年夜家可以或許愛好。