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++代码测试连接是成功的!

试试看
="DRIVER={SQL SERVER};SERVER=172.29.6.187;UID=xx;PWD=xxx"
温馨提示:内容为网友见解,仅供参考
无其他回答

...错误提示:client unable to establish connection
="DRIVER={SQL SERVER};SERVER=172.29.6.187;UID=xx;PWD=xxx"

vba连不上ado
设置完成后,您可以使用VBA编写代码,通过ADO对象库连接到数据库,执行查询语句,处理数据等。以下是一个简单的示例代码:Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset conn.Open "Provider=SQLOLEDB;Data Source=YourServer;Initial Catalog=YourDatabase;User ID=YourUsername;Password...

VBA通过ADO连接SQL数据库,但是提示“无法链接到SQL数据库 错误编码...
67表示主机地址错误,你下面语句中的【服务器名】要修改服务器的机器名、域名或者IP地址。constr = "provider=sqlncli10.1;persist security info=false;initial catalog=yearsallshow;user id=sa;pwd=psw;data source=服务器名"所有错误代码的含义见连接网页:网页链接 ...

VBA Excel里 用ADO访问ACCESS数据库的问题
adExecuteNoRecords 或 adExecuteStream 的 ExecuteOpenEnum 值不应与 Open 一起使用。因为ADO语言,直接提供了连接数据库的方法,所以我们可以直接这样来连接数据库:(算作本题的第三种改法吧)Dim cn As New ADODB.Connection '直接创建对数据库连接的实例对象cncn.Open "Provider=Microsoft.Jet.O...

请问各位高手,我想用excel的vba的ado来访问oracle,是必须要安装oracle客 ...
如果你电脑上的PL\/SQL能连上ORACEL数据库,那你的EXCEL就应该能连上,因为你已经安装过oracle客户端了。,连接不上可能是因为你的VBA中的数据库连接参数写的有问题。

VBA代码如何引用ADO库
不用跟别人说要引用ADO library。你的EXCEL文件到别人电脑上,引用的库仍然被引用的,不需要再次打勾

王佩丰老师vba课程笔记——第十五讲使用ADO操作外部数据源
一、使用ADO连接外部excel数据源 1、通过数据 ->现有连接 -> 浏览更多,实现其他excel表格的连接。2、连接步骤:在VBE界面中,工具—引用,勾选Microsoft ActiveX Data Object x.x Library。使用如下代码连接excel文件:Sub test()Dim conn As New ADODB.Connection Dim sql As String sql = "select ...

access的vba用户定义类型未定义错误提示
username = txt_用户名 '注意不要使用TEXT属性,否则会出错(这里使用默认属性VALUE)userpass = txt_密码 '注意同上 '循环判断用户名和密码是否对得上,注意要逐条记录比对 '原帖代码没有考虑这个问题,它只有在管理用户表刚好只有一条记录时才能正确运行 If rs.Recordset.RecordCount>0 then Do Unti...

VBA j是否可以使用 Ado.net
1、引用法引用ADO相关组件:打开VBA编辑器,在菜单中点选“工具”--》“引用”。确保“Microsoft ActiviteX Data Objects 2.8 Library”和“Microsoft ActiviteX Data ObjectS Recordset 2.8 Library”被勾选上。引用后再声明:Dim cnn As New Connection '声明链接对象 Dim rst As New Recordset ...

vba ado访问excel数据 rs.execute时报“至少一个参数没有被指定错误...
由于你的连接语句中使用的是:HDR=NO,相当于没有标题的表,而查询语句里你却指定了标题(Where 姓名='张三'),这是矛盾的...把 HDR=NO 改为 HDR=YES 试试吧...

相似回答