office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

access利用DAO穫取數據集添加到文本框中

2020-12-17 08:00:00
tmtony8
原創
1239

access沒有數據集閤這類型的控件,一般可以設置窗體的記録源爲錶或者查詢,直接把數據綁定到窗體。

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


下麵代碼通過SQL語句,把錶中數據讀取到窗體文本框中

Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim StrSQL As String
    Dim i As Integer
'    設置SQL語句穫取錶信息
    StrSQL = "select 姓名,性彆,齣生日期 from 員工信息"
    Set db = CurrentDb()
'    使用動態集的方式打開SQL篩選的結果作爲記録集
    Set rs = db.OpenRecordset(StrSQL, dbOpenDynaset)
    txt1 = ""   
'    通過判斷循環輸齣記録集中的每條記録
    Do Until rs.EOF = True
        For i = 0 To 2
            txt1 = txt1 & rs.Fields(i) & "  "
        Next i
        rs.MoveNext  
        txt1 = txt1+ vbCrLf  
    Loop

    分享