在access中将sql查询导出为文本

Question

我目前在access中使用VBA将数据从直通查询导出为文本，并希望添加到VBA中。一旦它导出了数据，我希望它将实际的sql查询导出到一个单独的文本。有谁知道怎么加这个吗？

Answer 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

Answer 2

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

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