VB连接局域网的SQL数据库的问题?

我做了一个VB程序,后台数据库为SQL,具体代码在下面,在我电脑上完全可以用.但我在隔壁寝室(同是校园网)的同学电脑里安装了SQL,并建立数据库,想在把VB连接数据库的代码改一下,从而能够用我的电脑里的VB程序访问他电脑里的SQL数据库,很多大虾告诉我Data Source=对方IP就可以了,可是我每次用都不行,并提示[DBNETLTB][ConnectionOpen(Connect()).SQL]SQL Server不存在或拒绝访问,我也试过用ConnectionTimeout测试能否连接,都不行. 我想得到解决办法,一经采用,定会加分.代码如下((对方IP为172.30.200.17):Private Sub Form_Load()Dim sqlstr As StringDim ServerName As String Dim DatabaseName As String Dim UserName As String Dim Password As String Set DBCnn = New ADODB.ConnectionServerName = "172.30.200.17" DatabaseName = "tyxxk" UserName = "sa" Password = "" DBCnn.ConnectionTimeout = 20 DBCnn.CursorLocation = adUseClient DBCnn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=true;" & _ "User ID=" & UserName & ";Initial Catalog=" & DatabaseName & _ ";Data Source=" & ServerName & ";pwd=" & Password DBCnn.Open ConnectionToDatabase = True

2026年09月23日 03:18

有4个网友回答

网友（1）：

这个问题，个人亲历，我单位里的电脑就是无法联接sql,使用odbc进行测试也不成，提示与楼主一模一样。网段设置也一切正常。当时钻牛角钻总以为是程序不对，结果换了一个机器才发现程序一切正常。

最终没办法，哥们重装的系统，同时把防火墙也卸了，结果就好了，回头想研究一样，也没再恢复出原来那种情况。所以，你把系统重做下，一定可以解决的。

网友（2）：

这样做理论上肯定可以的，你可以先在他机子上测试

有可能是他的防火墙堵住了sql 得端口，你可以先关掉防火墙看看
或者是他的 sql server 有其他问题
测试

1。在他的机子上用127.0.0.1 连接数据库
2。在他的机子上用172.30.200.17 连接数据库

如果在他的机子上两个都可以，那在你的机子上一定也可以

网友（3）：

"User ID=" & UserName & ";Initial Catalog=" & DatabaseName & _
";Data Source=" & ServerName & ";pwd=" & Password

这里你必须需要修改编号:

首先在你的机器上,能够访问到对方的数据库: 在我的电脑地址栏,能看到文件的路径, 那么把文件的路径和数据库名称放在:Data Source="文件路径和数据库名称".

2.需要把数据库共享,这个必须要共享,否则对方无法打开数据库.

3.不要重装系统,那是笨人的方法.

网友（4）：

1.在同一网段:
在命令提示符下输入"telnet 172.30.200.17 1433",
如果连接不成功,检查防火墙,reinstall系统
2.不同网段:
在他机器上打sql的sp3补丁