在嵌入式访问 vb 编辑器的帮助下，我编写了一个小代码来分析我的数据库的字段值，并希望最终在打开的访问内的表中查看记录集。作为一个新手，我只能使用 Debug.Print 来显示字段名称。谁能告诉我我可以使用哪些语句/命令执行我的 SQL 字符串以查看结果记录集的值？
Debug.Print FinalSQLString
【问题讨论】：
这是基本配方：
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM myTable")
知道您正在使用带有 Access 的 Jet 数据访问对象 (DAO) - 谷歌了解详情。
表达式(rs.BOF and rs.EOF) = True 表示没有行。
使用rs.MoveFirst、rs.MoveNext 转到第一行和下一行。在rs.MoveNext 之后测试rs.EOF；当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
【讨论】：
Dim db As DAO.Database和Dim rs As DAO.Recordset。这消除了类型库的歧义。对于 Database 数据类型，这不是绝对必要的（我知道没有命名空间冲突），但对于 Recordset 来说非常重要，因为还有 ADO Recordset 类型，但它有不同的方法/属性。
rs.RecordCount = 0 而不是做测试，即rs.EOF and rs.BOF。如果您只想知道是否返回记录，则检查 Recordcount 就足够了。另一方面，如果您想要返回的记录的准确计数，则必须先执行 rs.MoveLast，然后才能使 RecordCount 属性准确无误。但是，对于测试空记录集，这不是必需的。
据我所知，没有办法显示包含记录集的 VBA 实例的数据表。如果您的记录集的来源是 strQSL，那么您可以使用结果创建一个表，然后打开该表，或者更优雅地创建 queryDef 并打开它：
Sub ShowQd(strQdName As String, strSql As String)
'creates queryDef and display it in a datasheet'
Dim qd As DAO.QueryDef
Set qd = CurrentDb.CreateQueryDef(strQdName)
With qd
.ReturnsRecords = True
.SQL = strSql
End With
DoCmd.OpenQuery strQdName
End Sub
如果您专注于显示内容，您还可以在表单中放置一个 ListBox，将其列数设置为查询返回的字段数（qd.Fields.Count），并将您的 strSql 设置为 ListBox 的 RowSource .并且...如果您将所有相关代码放入该表单中，您现在可以在任何数据库中导入一个表单以快速显示您想要的内容:)
祝你好运！
【讨论】：