access利用DAO獲取數(shù)據(jù)集添加到文本框中

access沒有數(shù)據(jù)集合這類型的控件，一般可以設(shè)置窗體的記錄源為表或者查詢，直接把數(shù)據(jù)綁定到窗體。

也可以DAO代碼，用SQL語句來引用指定記錄集，讀取到窗體中

下面代碼通過SQL語句，把表中數(shù)據(jù)讀取到窗體文本框中

Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim StrSQL As String
    Dim i As Integer
'    設(shè)置SQL語句獲取表信息
    StrSQL = "select 姓名,性別,出生日期 from 員工信息"
    Set db = CurrentDb()
'    使用動態(tài)集的方式打開SQL篩選的結(jié)果作為記錄集
    Set rs = db.OpenRecordset(StrSQL, dbOpenDynaset)
    txt1 = ""   
'    通過判斷循環(huán)輸出記錄集中的每條記錄
    Do Until rs.EOF = True
        For i = 0 To 2
            txt1 = txt1 & rs.Fields(i) & "  "
        Next i
        rs.MoveNext  
        txt1 = txt1+ vbCrLf  
    Loop