這里只是個簡單不能再簡單的VB小程序實例，但它包含這幾個關鍵字：VB6.0、ADO、Access
環境：visual basic 6.0 企業版（非精簡版，不然會缺少必須的控件）
數據庫：Access數據庫，數據庫是xs.mbd，內建表為xj
結果：vb使用ADO連接access數據庫，查詢xj表中的所有數據，然后把查詢到的結果循環輸出到窗口中。
代碼：
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
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 '記錄下移LoopRS.Close '關閉記錄集Set RS = NothingEnd Sub |
以上所述就是本文的全部內容了，希望大家能夠喜歡。
