请教这样一个连接数据库的问题，出现下列错误？请帮我分析一下？万分感谢！

我的数据库连接代码是这样的：  
  Public   strCon   As   Connection  
   
  Private   Sub   Command1_Click()  
  Dim   str   As   String  
    Set   strCon   =   New   Connection  
    With   strCon  
            .ConnectionString   =   "DataSource=192.168.20.236,1433;Network   Library=DBMSSOCN;Initial   Catalog=Northwind;User   ID=sa;Password=sa"  
            .Open  
    End   With  
    strCon.Close  
    Set   strCon   =   Nothing  
  End   Sub  
  其中IP地址是对方安装了SQLSERVER服务器的IP地址，当运行的时候出现如下对话框：如下：  
  实时错误'-2147467259(80004005)':[Microsoft][ODBC驱动程序管理器]未发现数据源名称并且未指定默认驱动程序  
  请大家帮我想想啊？分析一下？ 问题点数：40、回复次数：4Top

1 楼pcwe2002（）回复于 2006-12-04 10:47:51 得分 10

字符串换成这样的试试  
   
  Provider=SQLOLEDB.1;Password=sa;Persist   Security   Info=True;User   ID=sa;Initial   Catalog=Northwind;Data   Source=192.168.20.236Top

2 楼ruan1978（阮氏）回复于 2006-12-04 12:26:43 得分 0

换成了你的字符串，变成以后这个错误：  
  实时错误'-2147467259(80004005)':[DBNETLIB][ConnectionOpen(Connect()).]SQL   Server不存在或拒绝访问。  
  请问是什么原因？Top

3 楼ruan1978（阮氏）回复于 2006-12-04 13:28:03 得分 0

各位路过帮我看看啊？Top

4 楼cuilei197979（风）回复于 2006-12-04 13:39:18 得分 30

你可以这样试试，知道adodc控件把，右键控件，看见属性了吗？选择使用连接字符串，选择生成，按照向导操作，你要知道对方的ip，sqlserver的用户名及密码，及所要用的数据库，所有都操作完成后测试连接，是否成功，如果成功正常，如果不成功，把ip换成对方机器名，再试试，还是不行的话，只能重做系统了Top

相关问题

• 帖主：ruan1978
• pcwe2002
• cuilei197979

• Visual Basic类图书
• Visual Basic类源码下载