我有一个 Excel 文档,其中包含几个(50 多个)嵌入式 SQL 查询,这些查询会刷新并更新计数和查询结果。我需要更改运行这些查询的服务器和数据库,我希望有一种比手动输入所有内容更简单的方法来执行此操作。我在这里搜索了其他一些问题,但我找不到符合我想要做的事情。
我的大部分连接字符串如下所示:
DRIVER=SQL Server;SERVER=ServerName;UID=ThisisMe;Trusted_Connection=Yes;APP=Microsoft Office 2013;WSID=CEPC098JJN
我还需要添加的是我认为看起来像这样的数据库:
Initial Catalog=DatabaseName
非常感谢有关如何更新所有这些连接字符串的后续步骤的任何指导。
最佳答案
也许您应该使用文本文件来存储 Miguel 建议的值。在应用程序中,将值加载到字典中,这样会方便易用。例如:
Sub test()
Dim d, key
Set d = FileLoad("c:\soft\1.txt")
For Each key In d.Keys
Debug.Print ("key = " & key & " Value = " & d(key))
Next key
End Sub
Function FileLoad(path As String) As Variant
Dim str, arr, dict
Open path For Input As #1
Set dict = CreateObject("Scripting.Dictionary")
Do Until EOF(1)
Line Input #1, str
arr = Split(str, ":")
dict.Add arr(0), arr(1)
Loop
Close #1
Set FileLoad = dict
End Function
文本文件如:
初始目录:数据库名称
并在字符串中替换此值...
关于sql-server - 更新 Excel 宏中的多个 SQL 连接字符串,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/43243716/