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

Question

我现正调试网络版程序,数据库装在主机上,客户端运行连接主机上的数据库,我的连接字符串是这样写的:
  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
连接时却始终提示无法连接数据库,登录失败,急,在线等

Answer 1

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