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

时　间: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