将 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的主要内容,如果未能解决你的问题,请参考以下文章