单元格内容作为 Excel 中“WHERE”语句的一部分

Question

我已经搜索了几个星期，但在找到以下问题的答案方面没有取得太大成功......

我能否在 Excel 中（在开发人员选项中）创建一个文本框，然后让用户输入的文本框内容成为 SQL (T-SQL) 中 WHERE 语句的一部分？理想情况下，我希望用户能够输入一个 3 位数的 ID 号码，然后点击搜索按钮以在相同或不同的工作表上显示结果列表。如果文本框不简单，那么我将满足于引用单元格的内容来代替文本框的内容。

类似这样的：

SELECT T.CustomerName, T.NetAmount, T.TransactionType

FROM TheDatabase.dbo.TransactionsTable T

WHERE T.ScheduledDate > '2016-01-01' AND 
     (T.Status = 'InProcess' OR T.Status = 'Completed') AND
      T.CustomerID = [textbox1.contents / cell(A1).. something]

我知道 SQL 不是为这样工作而设计的，但我希望它能说明我想要完成的工作。

一些背景：

我将一些职责转交给一位同事，因为我要换一个角色。我有一个定期运行的报告，它为我提供有关应付账款交易的统计信息。我必须在一夜之间学习一些基本的 SQL，并且在设计 SELECT 语句和边学习边学习方面非常成功。问题是，每当我需要将新客户（基本上是一个 3 位数字）添加到我的帐户列表中以进行审查时，我都必须修改查询。这对我来说没什么大不了的，我只是打开 PowerQuery，选择高级视图，然后编辑代码。我不能为下一个人修复工具，所以我需要一种方法，他们可以搜索他们想要的客户。

我可以加载所有客户，但主表中有超过 360 万笔交易，我们查看了 30 多个字段。另外，我将 3 个数据库中的至少 6 个表连接在一起以提取和计算所有信息。上次我尝试检索所有交易数据时，由于系统内存不足，我无法生产。我唯一一次成功查询到这么多数据花了将近 10 分钟。老实说，这对我来说不是问题，但是这个人必须一直运行它，我需要加快速度。如我所见，消除问题的唯一方法是只提取我需要的交易。当我现在这样做时，大约需要 3 秒。

我一直在使用的查询是在 Microsoft SQL Server Management Studio 中创建的，我基本上是在 Excel 中创建查询时复制查询并将其粘贴到“高级”框中。

任何关于这方面的建议都会对现在和未来的项目有所帮助！

Answer 1

在 Excel VBA 中，您可以打开与数据库的 SQL 连接。但是您需要正确的权限和密码才能执行此操作。也许贵公司的技术人员可以提供帮助。

然后您需要构建您的 SQL 代码并发送它。然后检索结果。您可以通过多种方式显示结果。

这里有一些代码可以帮助您入门：

    Set objMyConn = New ADODB.Connection
    Set objMyRecordset = New ADODB.Recordset

    Dim strSQLText As String   ' Declare a string to build your SQL in

    'Open your connection
    objMyConn.ConnectionString = "Provider=SQLOLEDB;Data Source=localhost;Initial Catalog=TheDatabase;User ID=xyz;Password=xyz;"
    objMyConn.Open

    strSQLText = "SELECT T.CustomerName, T.NetAmount, T.TransactionType " & _
                 "FROM TheDatabase.dbo.TransactionsTable T " & _
                 "WHERE T.ScheduledDate > '2016-01-01' AND " & _
                 "(T.Status = 'InProcess' OR T.Status = 'Completed') AND " & _
                 "T.CustomerID = '" & _
                 Me.textbox1.Value & "';"

    Set objMyRecordset.ActiveConnection = objMyConn

    objMyRecordset.Open strSQLText            

    ActiveSheet.Range("A1").CopyFromRecordset (objMyRecordset)

此代码假定您的 T.CustomerID 是 varchar。如果它是整数（或其他数据类型），则需要从 SQLText 中删除 textbox1.Value 周围的单引号

您可能还希望将结果保存在单元格“A1”以外的位置。显示结果的方式/位置很多。

此外，此代码假定 textbox1.Value 中只有一个 ID。首先让这个 SQL 只使用 1 个客户代码。如果您需要返回多个客户的数据，您可以稍后再做这件事，只需稍加努力即可。

希望你能开始。