Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

在立即窗体中显示查询的结果

时 间:2016-09-20 08:27:11
作 者:杨雪   ID:42182  城市:南京
摘 要:Debug.Print  [需要输出的数据] 使用方法
正 文:

在立即窗体中显示查询的结果(1)

如果需要在代码调试时,将某个数据的值输出到立即窗口,可以使用Debug 对象的Print 方法,某具体的语法格式如下所示:                         

Debug.Print  [需要输出的数据]

如果需要逐条获得记录集中的数据,需要先使用记录集的MoveFirst 方法跳转至第一条记录,然后使用Do...Until  语句和EOF 属性逐条输出记录中指定记录,直到最后一条记录。


执行过程:保存编写的VBA代码,然后按【F5】键运行“立即窗口”过程,结果如下所示:

'在立即窗体输出记录集中的所有客户ID,客户类别,客户名称
Sub 立即窗口()
    Dim db As DAO.Database
    Dim rst As DAO.Recordset

    Set db = CurrentDb()
    Set rst = db.OpenRecordset("客户信息表")
    '跳转至第一条记录
    rst.MoveFirst
    '在立即窗口输出指定内容
    Do Until rst.EOF = True
        Debug.Print rst!客户ID, rst!客户类别, rst!客户名称
        rst.MoveNext
    Loop
    rst.Close: Set rst = Nothing
    db.Close: Set db = Nothing
End Sub



在立即窗口中显示查询结果(2

ADO中,移动记录也可以使用MoveNext 方法。使用Debug 对象的Print 方法,可以在立即窗口中输出指定的内容。使用Do Until...Loop  语句,可以从第一条记录开始输出符合条件的记录中的指定字段值,直到记录集的EOF 属性值为True.

注:需要先引用一下


执行过程:保存编写的VBA代码,然后按【F5】键运行“立即窗口”过程,结果和第一个示例一样:

Sub 立即窗口_2()
    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset

    Set cnn = CurrentProject.Connection
    rst.Open "客户信息表", cnn

    '显示所有记录中指定的字段
    Do Until rst.EOF = True
        Debug.Print rst!客户ID, rst!客户类别, rst!客户名称
        rst.MoveNext
    Loop

    rst.Close: Set rst = Nothing
    cnn.Close: Set cnn = Nothing
End Sub




Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助