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

时间:2017-12-28 06:32:28

标签: vba ms-access

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

谢谢

3 个答案:

答案 0 :(得分: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.

答案 1 :(得分:0)

感谢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;

答案 2 :(得分:0)

这应该做你想要的。

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

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