sql - 替换 Excel 中数据连接中的 SQL 命令文本

Question

有没有办法通过 VBA 替换 Excel 中数据连接中的 SQL 命令文本？

例如，我有一个名为“Accounts”的数据连接，它在命令文本中有一个简单的查询，说明

Select a.* 
from Recon a 
where a.recon in 
('12345','67890')

我在 sheet1(单元格 A2 到单元格 A5)中构建了 SQL 语句，允许用户输入不同的“侦察”数字。他们不必将其复制并粘贴到数据连接中的命令文本中。我希望能够有一个宏，将单元格 A2 到单元格 A5 中的 SQL 复制并粘贴到数据连接中的命令文本中，然后刷新连接到 Table1 的数据连接。

Answer 1

根据连接类型，您可以使用更改命令文本

wb.Connections(1).OLEDBConnection.CommandText = ...

或者

wb.Connections(1).ODBCConnection.CommandText = ...

( wb 是您正在处理的工作簿)。

但是:请注意 SQL 注入(inject)!