Excel VBA；更新连接字符串

dominic 发表于 Dev

多米尼克

我只是想让VBA更新OLEDB连接字符串。当我单步执行代码时，没有任何错误，但是连接刷新失败，并且当我在UI中检查连接字符串时，很明显我的代码根本没有更改它（因此刷新失败）。我错过了什么？

这是代码：

Sub UpdateQueryConnectionString(ConnectionString As String)

  With ActiveWorkbook.Connections("Connection Name"). _
      OLEDBConnection
      .Connection = StringToArray(ConnectionString)
  End With
  ActiveWorkbook.Connections("Connection Name").Refresh
End Sub

输入的ConnectionString是：

ConnectionString = = "Provider=SLXOLEDB.1;Data Source=SERVER;Initial Catalog=DATABASE" _
& ";User ID=" & Username & ";Password=" & Password & _
";Persist Security Info=True;Extended Properties=" _
& Chr(34) & "PORT=1706;LOG=ON;CASEINSENSITIVEFIND=ON;INCLUDECALCFIELDS=ON;" & Chr(34)

函数StringToArray直接从http://support.microsoft.com/kb/105416上的示例4复制而来

多米尼克

得到它了。以下代码起作用了。

Sub UpdateQueryConnectionString(ConnectionString As String)

  Dim cn As WorkbookConnection
  Dim oledbCn As OLEDBConnection
  Set cn = ThisWorkbook.Connections("Connection Name")
  Set oledbCn = cn.OLEDBConnection
  oledbCn.Connection = ConnectionString

End Sub

就像我在最初的问题中说明的那样，将ConnectionString作为一个字符串输入。

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。