紧急求救,在线急等,网络数据库连接问题

[aliceli918]

我现正调试网络版程序,数据库装在主机上,客户端运行连接主机上的数据库,我的连接字符串是这样写的:
Dim ServerAdd As String '服务器地址 (127.0.0.1)
Dim DBname As String '服务器上数据库的名称
Dim UserName As String '登录数据库的用户名
Dim UserPwd As String '登录数据库的密码

'设置连接字符串的参数
ServerAdd = Trim(TxtServer.Text) '服务器IP(192.168.1.6)
DBname = "ChanYdata" '数据库名称
UserName = "" '登录用户名
UserPwd = "" '密码

SqlCon.ConnectionTimeout = 10
SqlCon.CursorLocation = adUseClient
SqlCon.ConnectionString = "uid=" & UserName & ";pwd=" & UserPwd & ";driver={Sql server};server=" & ServerAdd & ";database=" & DBname & ";dsn=''"
SqlCon.Open


连接时却始终提示无法连接数据库,登录失败,急,在线等

[aliceli918]

晕，真的无人能解啊：）

[neuafei]

如果你的sqlcon定义过的话（dim sqlcon as new adodb.connection）连接方法没错，连不上肯定是网络原因或者用户密码什么的错误，你可以看一下err.description描述，找出问题所在