将 MySQL 表导出到 .csv 文件

Question

这是我接触 VBA 的第一天。 我正在尝试使用 VBA 中的 MySQL 查询在 MS Access 中导出 .csv 文件。 我曾尝试使用此代码：

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sql As String

Set db = CurrentDb

sql = "SELECT wo_id FROM WorkOrder"

Set rs = db.OpenRecordset(sql)
DoCmd.TransferText acExportDelim, , "rs", "C:\export.csv", True

rs.Close
Set rs = Nothing

这给了我：

运行时错误“3011”：

Microsoft Office Access 数据库引擎找不到对象“rs”。 确保该对象存在并且您正确拼写了它的名称和路径名

更多信息

我有一个名为 WorkOrder 的 MySQL 表（我想从这里提取数据）。

我错过了什么？

Answer 1

您只能使用DoCmd.TransferText导出 MS-Access 对象（表或查询）。 如果您有一个名为qryOutput的查询，您可以将其导出：

DoCmd.TransferText acExportDelim, , "qryOutput", "C:\export.csv", True

您可以在运行时创建查询（使用db.CreateQueryDef ），将其导出并删除。

---

如果您正在使用 MySQL，也许直接从命令行导出数据更容易：

c:\> mysql -h YourHost -u YourUser -pYourPassword dbYourDatabase -e"SELECT wo_id FROM WorkOrder" > c:\export.txt

这将使用您的查询结果（包括标题）创建一个制表符分隔的文本文件。

在类 Unix 的命令行上，您可以使用sed将此输出即时转换为逗号分隔的文本文件：

$ mysql [connectionParameters] -e"select..." | sed 's/\t/,/g' > export.csv

我不知道是否有任何纯 Windows 命令行实用程序可以执行此操作。 我将Cygwin用于此类事情。 如果要使用它，请务必使用 Cygwin 安装程序安装sed 。

希望这可以帮助。