vba - adodb连接在虚拟机上不起作用

Question

在 Excel VBA 中，我曾经能够连接到 Azure 数据库并通过虚拟机将最新数据提取到电子表格中。但是，这不再有效，当我在桌面上运行时，相同的代码有效并更新。

代码如下：

Set objMyConn = New ADODB.Connection
Set objMyRecordset = New ADODB.Recordset
Dim LinkSQL As String
objMyConn.ConnectionString = "Provider=SQLNCLI11; Password=" & """###""" & "; User ID=###; Initial Catalog=###;" & "Data Source=###;"
LinkSQL = "###"
Set objMyRecordset.ActiveConnection = objMyConn
objMyRecordset.Open LinkSQL
Sheet1.Range("A2").CopyFromRecordset (objMyRecordset)
objMyRecordset.Close
objMyConn.Close

谢谢

标签： vbaexcelazure-sql-databaseadodb