在访问文本中导出 sql 查询

Posted 2023-04-19

【中文标题】在访问文本中导出 sql 查询

【英文标题】：Exporting sql query in access to text

【发布时间】：2012-08-22 16:13:38

【问题描述】：

我目前在访问中使用 VBA 将数据从直通查询导出到文本，并且我想添加到 VBA。一旦它导出数据，我希望它将实际的 sql 查询导出到单独的文本中。有谁知道如何添加这个？

【问题讨论】：

您到底有什么问题？获取 SQL？创建一个文本文件？

【参考方案1】：

您可以使用 FileSystemObject。下面的示例使用后期绑定，但您可以设置对 Windows 脚本宿主的引用并使用注释类型。

Dim fs As Object ''FileSystemObject
Dim tsOut As Object ''TextStream

sFileOut = "z:\docs\FileOut.txt"

Set fs = CreateObject("Scripting.FileSystemObject")
Set tsOut = fs.OpenTextFile(sFileOut, 8) ''ForAppending
''Or
'' Set tsOut = fs.CreateTextFile(sFileOut, True) ''Overwrite

sSQL = CurrentDB.QueryDefs(qry).SQL

tsOut.WriteLine sSQL

tsOut.Close

【参考方案2】：

如果您已经确定了导出字符串到文本文件，您可以从以下位置获取查询的 SQL 文本：

Dim strSQL as string
strSQL = CurrentDb.QueryDefs("Your query name here").SQL