如何将查询数据导出到txt文件而不保存MS访问的查询

Question

因为我需要将多个查询数据导出到.txt文件我必须保存每个查询，有没有办法将查询数据导出到.txt文件而不保存在ms访问上。

谢谢

Answer 1

您只能使用一个查询进行管理：

Dim Query As DAO.QueryDef
Dim SQL   As String

Set Query = CurrentDb.QueryDefs("ExportQuery")

' First export.
SQL = <some sql to export>
Query.SQL = SQL
DoCmd.TransferText acExportDelim, , "ExportQuery", "d:\folder\file1.txt"

' Second export.
SQL = <some other sql to export>
Query.SQL = SQL
DoCmd.TransferText acExportDelim, , "ExportQuery", "d:\folder\file2.txt"

' etc.

Answer 2

这应该做你想要的。

Private Sub Command1_Click()
    DoCmd.TransferText acExportDelim, , "Categories", "C:\your_path_here\names.txt", True
End Sub

类别是您要从中导出的对象;表，查询等

Answer 3

谢谢Gustav和ryguy72，

经过对网络的一些研究后我发现答案只是在我的查询之间放置一个代码。通常当我从设计视图切换到sql视图时，代码如下所示 -

SELECT [0_Users_Balance].MSISDN, [0_Users_Balance].ZONE
FROM 0_Users_Balance;

要导出查询结果而不保存该查询，我只需要在代码下面插入 - into [Text;DATABASE=C:\Temp\;].File_Name.txt

看起来像下面 -

SELECT [0_Users_Balance].MSISDN, [0_Users_Balance].ZONE
into [Text;DATABASE=C:\Temp\;].File_Name.txt
FROM 0_Users_Balance;