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

Posted 2023-05-07

【中文标题】如何在不保存 MS 访问查询的情况下将查询数据导出到 txt 文件

【英文标题】：how to export a query data to txt file without saving query on MS access

【发布时间】：2017-12-28 06:32:27

【问题描述】：

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

谢谢

【问题讨论】：

有很多很多方法可以实现这一点，例如使用 Recordsets 和 Excel。你现在的问题太笼统了。请分享一次尝试，以及您遇到的任何错误

【参考方案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.

【参考方案2】：

这应该做你想做的。

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

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

【参考方案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;