在立即窗体中显示查询的结果
时 间: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群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)