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

以上所述就是本文的全部內容了，希望大家可以喜歡。