郑州糖果批发市场:关于MS SQL SERVER 数据库的连接问题

来源:百度文库 编辑:高校问答 时间:2024/04/29 01:39:16
我的系统是win2000个人版+ms sql server 2000(sp4)。数据库服务器的名称为“lsdc",网络地址为192.168.10.2。连接库时用“lsdc”服务器名称连接
时成功。但我只要把“lsdc”改为“192.168.10.2或127.0.0.1”都不能连接上数据库服务器(改动的位置为下面标号的3的语名),为何?
1、 On Error GoTo ErrorHandler
2、 Dim DBName As String, ServerAdd As String, UserName As String, UserPwd As String
'设置连接信息字符串的参数
3、 ServerAdd = "lsdc" '服务器地址(此处改为192.168.10.2或127.0.0.1后就不能成功访问数据库)
4、 DBName = "InfoProcSystem"
5、 UserName = "sa"
6、 UserPwd = ""
'连接数据库
7、 Set AdoCon = New ADODB.Connection
8、 AdoCon.ConnectionTimeout = 10
9、 AdoCon.CursorLocation = adUseServer
10、 AdoCon.ConnectionString = "uid=" & UserName & ";pwd=" & UserPwd & _
";driver={SQL Server};server=" & ServerAdd & _
";database=" & DBName & ";dsn=''"
11、 AdoCon.Open
'返回值
12、 ConenctToDatabase = True
13、 Exit Function
14、 ErrorHandler:
15、 MsgBox "连接到数据库出错", vbCritical, "出现错误"
16、 Exit Function
防火墙已关闭.

ServerAdd = "lsdc"
改成 ServerAdd = "." 试试(.代表本机)

估计可能是防火墙规则把SQL Server访问过滤掉了

允许防火墙通过 TCP 1433 (默认) 端口

那你的 问题真的是很奇怪 ,,我也是 用的这个方法,但是 用 IP 是 可以的 啊,。。
不知道是 什么情况 了。。ServerAdd = "192.168.1.123" 我也是这样的,完全正常呢。怪事了