mysql - 返回的记录集已关闭(通过 VBA 中的 ODBC 访问 mysql DB)

Question

长期观看者第一次海报。我正在开发一个带有 Excel 前端的数据库应用程序。因此我使用 VBA 访问 MySQL 数据库。我使用的驱动程序是 ODBC 驱动程序 (Windows)，并且我与数据库的连接有效，因为许多其他查询都运行良好。

我想做的是从一系列 SQL 语句中返回结果，而不是试图将它们全部组合成一个庞大的语句(这可能有效，但难以维护/理解)。我已将标志 FLAG_MULTI_STATEMENTS = 67108864 添加到抑制驱动程序语法错误的连接字符串中。

但是现在当我运行以下命令时:

queryDB.Open SQLquery, conn

recordset (queryDB) 保持关闭状态，没有明显的错误。 sql语句可以查到here .

我可能会生成未返回到 VBA 的错误，因此我们将不胜感激。

注意:sql 语句有效，因为我可以将该语句粘贴到 phpMyAdmin 中并返回正确(非空)结果。我不知道语句是否具体是问题，但可能是使用 CREATE TEMPORARY TABLE ... 或通常使用多个语句。

另外我猜驱动程序可能试图为每个 sql 语句返回一个结果，而 VBA 只得到第一个或其他东西......

编辑:供日后引用的sql语句。

CREATE TEMPORARY TABLE tmpOrders AS
SELECT
o.customerName,
SUM(o.Sales) AS Sales,
SUM(TotalFobCost + TotalLandedCost + TotalLocalCost + TotalCmtCost) AS TotalCost,
YEAR(o.deliveryDate) AS YEAR,
MONTH(o.deliveryDate) AS MONTH
FROM devere_costing.orders_fixed_extras AS o
WHERE o.orderApproved = TRUE
AND o.orderCanceled = FALSE
AND o.deliveryDate BETWEEN '2014-01-01' AND '2014-03-31'
GROUP BY customerName, YEAR, MONTH
ORDER BY YEAR ASC, MONTH ASC, customerName ASC;

CREATE TEMPORARY TABLE tmpProj AS
SELECT p.customerName,
   IF(p.MONTH > 9, p.YEAR, p.YEAR - 1) AS TrueYear,
   1 + ((p.MONTH + 2) MOD 12) AS TrueMonth,
   SUM(p.actualSalesInvoiced) AS salesInvoiced,
   SUM(p.budget) AS budget
FROM devere_costing.sales_projection_data AS p
GROUP BY p.customerName, p.YEAR, p.MONTH
HAVING TrueYear BETWEEN YEAR('2014-01-01') AND YEAR('2014-03-31')
AND TrueMonth BETWEEN MONTH('2014-01-01') AND MONTH('2014-03-31');

CREATE TEMPORARY TABLE tmpLeft AS
SELECT
IF(o.customerName IS NULL, p.customerName, o.customerName) AS customerName,
p.budget AS TotalBudget,
o.Sales AS Sales,
p.salesInvoiced,
0 AS varianceToBudget,
o.TotalCost,
0 AS directMargin,
0 AS directMarginPercent,
IF(o.YEAR IS NULL, p.TrueYear, o.YEAR) AS YEAR,
IF(o.MONTH IS NULL, p.TrueMonth, o.MONTH) AS MONTH
FROM tmpOrders AS o
LEFT JOIN tmpProj AS p
ON (o.customerName = p.customerName
AND o.YEAR = p.TrueYear
AND o.MONTH = p.TrueMonth);

CREATE TEMPORARY TABLE tmpRight AS
SELECT
IF(o.customerName IS NULL, p.customerName, o.customerName) AS customerName,
p.budget AS TotalBudget,
o.Sales AS Sales,
p.salesInvoiced,
0 AS varianceToBudget,
o.TotalCost,
0 AS directMargin,
0 AS directMarginPercent,
IF(o.YEAR IS NULL, p.TrueYear, o.YEAR) AS YEAR,
IF(o.MONTH IS NULL, p.TrueMonth, o.MONTH) AS MONTH
FROM tmpOrders AS o
RIGHT JOIN tmpProj AS p
ON (o.customerName = p.customerName
AND o.YEAR = p.TrueYear
AND o.MONTH = p.TrueMonth);

(SELECT * FROM tmpLeft) UNION DISTINCT (SELECT * FROM tmpRight);

我已经回答了我自己的问题!

secret 在于here :

所以我是对的，因为返回了不止一个记录集。我只需要遍历它们即可找到我想要的数据。该集合未编入索引，因此您必须逐一搜索。在我的例子中，每个 sql 语句都不返回记录集(这就是为什么当我试图打开它时我的记录集仍然关闭)。唯一的异常(exception)是最后一个返回记录的 sql 语句。我的循环看起来像:

Dim rs As ADODB.Recordset
Set rs = queryDB(Sql)

' Loop through returned recordsets to find the data
Do
    If Not rs Is Nothing Then
        If rs.State = adStateOpen Then
            ' we have an open recordset.  This means that the final select statement
            ' has returned this data.
            Exit Do
        Else
            ' Otherwise iterate through to the next recordset
            Set rs = rs.NextRecordset
        End If
    Else
        MsgBox "No recordset returned by sql statement"
        GoTo ExitCode
    End If
Loop

Answer 1

从问题正文中复制的答案:

我已经回答了我自己的问题!

secret 在于here :

所以我是对的，因为返回了不止一个记录集。我只需要遍历它们即可找到我想要的数据。该集合未编入索引，因此您必须逐一搜索。在我的例子中，每个 sql 语句都不返回记录集(这就是为什么当我试图打开它时我的记录集仍然关闭)。唯一的异常(exception)是最后一个返回记录的 sql 语句。我的循环看起来像:

Dim rs As ADODB.Recordset
Set rs = queryDB(Sql)

' Loop through returned recordsets to find the data
Do
    If Not rs Is Nothing Then
        If rs.State = adStateOpen Then
            ' we have an open recordset.  This means that the final select statement
            ' has returned this data.
            Exit Do
        Else
            ' Otherwise iterate through to the next recordset
            Set rs = rs.NextRecordset
        End If
    Else
        MsgBox "No recordset returned by sql statement"
        GoTo ExitCode
    End If
Loop