从其他计算机拒绝与SQL Server的VBA连接

Question

我有一个VBA宏连接到数据库以提取一些数据并正常工作。但是，当另一个部门的另一个人试图从他的计算机上运行该文件时，他会收到一个错误：

我的VBA连接字符串如下：

Sub exportLens()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim ConnectionString As String
Dim StrQuery As String
Sheets("data").Range("A2:C100000").Clear

ConnectionString = "Provider=SQLOLEDB.1;Password=xxxxx;Persist Security Info=True;User ID=SQLxxx;Data Source=xx.xx5.xx.90,xx33;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Use Encryption for Data=False;Tag with column collation when possible=False;Initial Catalog=NasrWeb"

任何想法，为什么这不能在我朋友的电脑上工作？

感谢您的帮助。

Answer 1

这可能是以下之一：

1. 未对SQL Server实例启用远程连接。

2. 防火墙例外列表中未添加端口

3. SQL Server实例的IP地址被阻止防火墙