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

来源：互联网发布：广州盛高软件编辑：程序博客网时间：2024/06/05 07:45

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"

提问者评价

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

0 0