office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

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

access利用DAO获取数据集添加到文本框中

2020-12-17 08:00:00
tmtony8
原创
182

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

    分享