将 DAO QueryDef 保存到临时查询并将结果输出到 Excel

Posted

技术标签:

【中文标题】将 DAO QueryDef 保存到临时查询并将结果输出到 Excel【英文标题】:Save DAO QueryDef to Temporary Query and Output Results to Excel 【发布时间】:2019-08-08 03:35:57 【问题描述】:

所以我有这个 Access 项目,起初我创建了一个 TempQuery 并使用该查询将结果输出到一个效果很好的 Excel 文件。

下面是代码:

    Dim qdf As QueryDef

    DoCmd.DeleteObject acQuery, "qryTemp"
    Set qdf = CurrentDb.CreateQueryDef("qryTemp", Me.Child13.Form.RecordSource)
    DoCmd.OutputTo acOutputQuery, "qryTemp", acFormatXLS, , True

    Exit Sub

我现在要做的是同样的事情,但通过 DAO 连接使用 mysql 数据库,因为我仅将此 Access 文件用作前端。

这是我到目前为止得到的:

    Dim db As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim SQL As String


    Set db = OpenDatabase("", False, False, Globales.ConnString)

    SQL = "SELECT tbl1Facturas.Verificado, tbl1Facturas.Factura, tbl1Facturas.Fecha, tbl5Localidades.NombreLocalidad, tbl6Suplidores.NombreSuplidor, tbl1Facturas.Subtotal, tbl1Facturas.[IVU MUNICIPAL], tbl1Facturas.[IVU ESTATAL], tbl1Facturas.[Total de Compra], tbl1Facturas.[Exento al IVU ESTATAL], tbl1Facturas.[Credito al Subtotal], tbl1Facturas.[Credito IVU Municipal], tbl1Facturas.[Credito IVU ESTATAL], tbl1Facturas.[Metodo de Pago], tbl1Facturas.[ID Metodo Pago], tbl1Facturas.MetodoPago_PDF, tbl1Facturas.Factura_PDF " _
        & "FROM (tbl1Facturas INNER JOIN tbl5Localidades ON tbl1Facturas.Localidad_ID = tbl5Localidades.ID) INNER JOIN tbl6Suplidores ON tbl1Facturas.Suplidor_ID = tbl6Suplidores.ID " _
        & "WHERE MONTH(tbl1Facturas.Fecha) = Month(#" & Me.Text19 & "#) " _
        & "AND YEAR(tbl1Facturas.Fecha) = Year(#" & Me.Text19 & "#) " _
        & "AND tbl1Facturas.Localidad_ID = " & Me.Combo23.Column(0) & " " _
        & "ORDER BY tbl1Facturas.Fecha; "

    Set qdf = db.CreateQueryDef("qryTemp", SQL)

    DoCmd.OutputTo acOutputQuery, "qryTemp", acFormatXLS, , True
    Exit Sub

欢迎大家帮忙! :P

【问题讨论】:

好奇之前代码中使用的parameterization 不起作用吗?从 Access 表单上的用户输入到 MySQL 数据库,您正在危险地让您的数据库对 SQL 注入开放。记起; Bobby Tables. 感谢您的快速回复。我在一种更简单的形式和作品上使用了它,还没有在整个项目中使用它。我正在尝试按现在的方式完成,以便在未来的版本中展示和处理参数化。 对当前的努力有什么建议吗? :P 在您的 Access 数据库中,您可以链接到 MySQL 表吗? 不,我直接连接到 MySQL 服务器.. 【参考方案1】:

修改后的导出代码在远程数据库中创建(或尝试)查询。由于远程数据库是 MySQL,我希望尝试使用 QueryDefs 创建查询会失败。即使创建了查询,OutputTo 也会在本地数据库中查找查询,但不会找到它。

考虑从另一个成功导出的 Access db 中提取的示例:

Dim qdf As DAO.QueryDef
DoCmd.DeleteObject acQuery, "qryTemp"
Set qdf = CurrentDb.CreateQueryDef("qryTemp", "SELECT * FROM sometable  IN '\\servername\path\DBname.accdb'")
DoCmd.OutputTo acOutputQuery, "qryTemp", acFormatXLS, , True

当过程完成时,前端会保存一个查询对象(尽管它不会立即显示在导航窗格中)。由于创建了一个对象,因此可以只创建一个表并导出该表。不幸的是,我看不到如何在 QueryDefs 或 SELECT INTO 操作中引用 MySQL 数据库,以便在前端创建对象。可能会遍历记录集并一次将数据写入表中的一条记录。

我能看到的唯一其他选择是使用 Excel 自动化。使用 CopyFromRecordset 方法打开 Excel 对象并导出到工作表范围。

Dim db As DAO.Database, rs As DAO.Recordset
Dim xl As Excel.Application, wb As Excel.Workbook

Set db = OpenDatabase("", False, False, Globales.ConnString)

Set rs = db.OpenRecordset("SELECT Verificado, Factura, Fecha, NombreLocalidad, NombreSuplidor, Subtotal, [IVU MUNICIPAL], [IVU ESTATAL], [Total de Compra], [Exento al IVU ESTATAL], [Credito al Subtotal], [Credito IVU Municipal], [Credito IVU ESTATAL], [Metodo de Pago], [ID Metodo Pago], MetodoPago_PDF, Factura_PDF " _
    & "FROM (tbl1Facturas INNER JOIN tbl5Localidades ON tbl1Facturas.Localidad_ID = tbl5Localidades.ID) " _
    & "INNER JOIN tbl6Suplidores ON tbl1Facturas.Suplidor_ID = tbl6Suplidores.ID " _
    & "WHERE MONTH(tbl1Facturas.Fecha) = Month(#" & Me.Text19 & "#) " _
    & "AND YEAR(tbl1Facturas.Fecha) = Year(#" & Me.Text19 & "#) " _
    & "AND tbl1Facturas.Localidad_ID = " & Me.Combo23.Column(0) & " " _
    & "ORDER BY tbl1Facturas.Fecha;")

Set xl = CreateObject("Excel.Application")
Set wb = Workbooks.Add
wb.Sheets("Sheet1").Range("A1").CopyFromRecordset rs
xl.Visible = True

【讨论】:

June7 你摇滚!非常感谢! 刚刚做了编辑回答,请确保您阅读最新版本。

以上是关于将 DAO QueryDef 保存到临时查询并将结果输出到 Excel的主要内容,如果未能解决你的问题,请参考以下文章

Access SQL:从插入语句或从 DAO.QueryDef 获取受影响记录的标识值

DAO 是创建查询的途径吗

VBA - 使用 DAO 对象的运行时错误 3271

如何将列表保存到临时目录中的泡菜文件并将该文件传递给函数?

将执行 SQL 任务的结果保存到 Excel

将结果保存到目标表成本