vba 用ADO连接不上sqlserver 错误提示：client unable to establish connection

Dim cn As New ADODB.Connection '定义数据链接对象 ，保存连接数据库信息；请先添加ADO引用
    Dim strCn As String
    strCn = "Provider=SQLOLEDB;Server=172.29.6.187;Database=Test;Uid=sa;Pwd=sa;"    '定义数据库链接字符串
    cn.Open strCn   '与数据库建立连接，如果成功，返回连接对象cn
        Debug.Print "success"

经测试 访问本地的时候是正常的 改用局域网其他电脑就连接不上 之前用过是能连接的 不知道是修改了电脑什么配置的缘故 还是改了excel的设置 现在怎么都连不上了 求高手指点

_bstr_t strConnect="Driver={sql server};server=172.29.6.187;uid=***;pwd=***;database=VAR;";
		try {
			sqlSp->Open(strConnect,"","",adModeUnknown);
			cout<<"连接数据库成功..."<<endl;

C++代码测试连接是成功的！

分享到：

2015-04-07 23:27

提问者采纳

试试看
="DRIVER={SQL SERVER};SERVER=172.29.6.187;UID=xx;PWD=xxx"

提问者评价

非常 感谢！方法可行 可是我不明白这是为什么 之前按上面的代码是正确的，但是现在为什么需要改成这样