sql - 如何通过VBA查看 Access 表中的记录集？

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

Debug.Print FinalSQLString

最佳答案

据我所知，无法显示包含记录集的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放在窗体中，将其Number of columns设置为查询返回的字段数(qd.Fields.Count)，并将strSql设置为ListBox的RowSource。 AND ...如果您将所有相关代码放入该表单中，则现在有了一个可以导入任何数据库中以快速显示所需内容的表单:)
祝好运 !

关于sql - 如何通过VBA查看 Access 表中的记录集？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/5182087/