UC知道VB编程高手进 +100
来源：百度知道 编辑：UC知道 时间：2024/06/17 03:03:11
一下是远程连接数据库SQL的代码
Dim objCn As New Connection
Dim objRs As New Recordset
With objCn
.ConnectionString = "driver={SQL Server};server=125.31.238.99;uid=sa;pwd=;database=a"
.Open
End With
If objRs.State <> adStateClosed Then objRs.Close
objRs.Open "select * from b", objCn, adOpenDynamic, adLockOptimistic
Set MSHFlexGrid1.DataSource = objRs
这样行不，在自己的电脑上127.0.0.1在自己的电脑上没问题
但到了别人的电脑上就。。。。。。。。。。。
所以请老大看看
先谢谢啦
Dim objCn As New Connection
Dim objRs As New Recordset
With objCn
.ConnectionString = "driver={SQL Server};server=125.31.238.99;uid=sa;pwd=;database=a"
.Open
End With
If objRs.State <> adStateClosed Then objRs.Close
objRs.Open "select * from b", objCn, adOpenDynamic, adLockOptimistic
Set MSHFlexGrid1.DataSource = objRs
这样行不，在自己的电脑上127.0.0.1在自己的电脑上没问题
但到了别人的电脑上就。。。。。。。。。。。
所以请老大看看
先谢谢啦
检查别人电脑的SQL Server的设置是否与自己电脑的一样，注意认证方式、tcp端口。
还有防火墙的设置。
确定你所有计算机都在一个VPN里，就可以
也就是说，确保所有计算机都能访问125.31.238.99这台计算机
服务器有问题
1、确认能连到那台电脑
2、那台电脑的数据库没有密码之类的东西，意思是它的设置确保uid=sa;pwd=;database=a这三个参数是对的。
感觉上是应该可以的。你让对方把防火墙关了试试。我有连服务器的代码，也不是自己的机器。和你的差不多，能连上。
driver={SQL Server};server=服务器IP;uid=服务器用户名;pwd=服务器密码;database=你在服务器上建的数据库名。
我的就这么连的。可以连上阿。
请先确认你要使用的对方的机子是不是在内网中，如果在，请使用UPNP端口映射，或者是设置路由器中的端口映射，然后再使用