mysql - 执行 SQL 查询，从 VBA 宏中的 Excel 表获取输入

Question

我想从 Excel 表格中获取输入来执行 SQL 查询并将其输出到 Excel 工作表中的某个位置。

宏:

Sub SQL(Dim strSQL as String)

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

strFile = ThisWorkbook.FullName
strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile _
& ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";"

Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

cn.Open strCon

rs.Open strSQL, cn

Debug.Print rs.GetString

End Sub

SQL 查询:

SELECT
  e.`isin`,
  b.*
FROM
  `risk_reference`.`basket_debt` AS b
  JOIN `risk_reference`.`etp` AS e
    ON IF(
      e.`parentid_override` > 0,
      e.`parentid_override`,
      e.`parentid`
    ) = b.`parentid`
    AND e.`isin` = ?
    AND e.`date_out` IS NULL
WHERE b.`processing_date` IN
  (SELECT
    MAX(processing_date)
  FROM
    `risk_reference`.`basket_debt`)
GROUP BY e.`isin`, b.`pk_id`

那个？在 SQL 查询中，我需要根据 Excel 中的表格输入项目列表。

我应该逐项进行 SQL 查询还是可以一次性完成？如果是这样，我该怎么做？如果我逐行执行，如何输出 Excel 中的一个位置？

需要一些建议。

Answer 1

假设您的 sql 变体支持它，请使用 IN 并循环单元格来构建列表

strsql = "SELECT e.`isin`, b.* FROM `risk_reference`.`basket_debt` AS b JOIN "
strsql = strsql & "`risk_reference`.`etp` AS e ON IF( e.`parentid_override` > 0, "
strsql = strsql & "e.`parentid_override`, e.`parentid`) = b.`parentid`"
strsql = strsql & "AND e.`isin` IN ("
dim c as range
for each c in range("your range here")
   strsql = strsql & "'" & c.text & "',"
next c
strsql = strsql & ") "
strsql = strsql & "AND e.`date_out` IS NULL WHERE b.`processing_date` IN "
strsql = strsql & "(SELECT MAX(processing_date) FROM `risk_reference`.`basket_debt`) "
strsql = strsql & "GROUP BY e.`isin`, b.`pk_id`"