如何轻松获取 SQL 查询结果

如何解决如何轻松获取 SQL 查询结果

这是我在这里的第一篇文章，所以请原谅:)

刚开始时，我对任何编程语言都不流利，但我主要使用 sql，很少使用 VBA。我主要是使用 Kofax Kapow RPA 软件的 RPA 开发人员。

所以我有一个 sql 查询，我需要运行它来获取一些稍后将在 RPA 机器人中使用的结果。有一个内置功能可以在 RPA 软件中运行 sql，但此功能非常差，并且不允许我使用许多嵌入在我的 sql 查询中的函数（如 regex、listagg、exc。）

所以我想做的是在不打开任何 sql 软件的情况下快速运行 VBA 代码。对我来说最好的选择是从例如 MS sql Server oraz Oracle sql 创建一种 .exe 文件，其中这个 exe 将导致创建一个带有结果的单独文件（xls、XML、csv 或任何其他）

我知道有时在 Excel VBA 宏中可能会出现这种情况，但我在 RPA 软件中使用 excel 宏时遇到一些问题，因为有时文件顶部会弹出一个黄色条，您需要“启用内容” " 来运行宏。当我切换它并且这个栏没有出现时，宏也不起作用。这个酒吧和类似的东西使 RPA 机器人不太稳定

所以，希望我在这里已经很好地描述了这个问题:)

你知道我是如何让这件事（这个文件）发生的吗？

解决方法

不幸的是，您的问题描述不是很清楚，但我是从我能理解的。

所以你必须运行一个 SQL 查询并且你必须首先构造这个查询？

您可以使用 VBA 来构造查询字符串，您可以在其中使用 VBA 将参数嵌入到字符串中。例如，参数在 Excel 表中，您从每一行创建一个查询字符串。

然后您可以要么将这些字符串打印到一个文本文件中，然后您可以在您的 SQL 环境中使用该文件，或者您可以在 Excel VBA 中使用 ODBC 连接到您的数据库,运行每个查询，检索每个查询的结果并将它们打印或放入 Excel 工作表中。

这些可能性中的任何一种对您有帮助吗？

示例：

Function makeQuery(myTable,myCol,myVal) As String
    Dim sSQL As String
    
    sSQL = "SELECT * FROM " & myTable & " WHERE " & myCol & "='" & myVal & "';"
    makeQuery = sSQL

End Function

Sub example()
    Open "myQueries.txt" For Output As #1
    Print #1,makeQuery("table1","memberName","Johnson")
    Print #1,"Adams")
    Close #1
End Sub