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;

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

3 个答案: