如何通过vba查看访问表中的记录集？

Question

在嵌入式访问vb编辑器的帮助下,我编写了一个小代码来分析我的数据库的字段值,并希望最终在打开的访问内的表中查看记录集.作为一个新手,我只能使用Debug.Print来显示字段名称.你有没有人告诉我哪些语句/命令我可以执行我的SQL字符串,以便查看带有值的结果记录集？

Debug.Print FinalSQLString

Answer 1

这是基本配方:

Dim db As Database
Dim rs As Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM myTable")

知道您正在使用Jet数据访问对象(DAO)与Access - 谷歌的详细信息.

表达式(rs.BOF and rs.EOF) = True表明没有行.

使用rs.MoveFirst,rs.MoveNext转到第一行和下一行.rs.EOF之后测试rs.MoveNext; 什么时候True,最后一行已经处理完毕.

rs(FieldName) 返回名为FieldName的列的值(字符串表达式).

rs(1) 返回第二列的值.

完成后,rs.Close.

无法手动访问RecordSet并将其显示在数据表视图中.相反,您必须创建一个QueryDef对象并使用它来执行查询并显示结果的数据表视图:

Dim qd As QueryDef

On Error Resume Next
CurrentDb.QueryDefs.Delete "temp"
On Error GoTo 0

Set qd = db.CreateQueryDef("temp", "SELECT * FROM myTable")

DoCmd.OpenQuery "temp", acViewNormal, acEdit