Dim StrCon As String
StrCon = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;" _
     & "Initial Catalog=你的数据库名称;Data Source=" & 对方IP地址 & ";" _
     & "Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;" _
     & "Use Encryption for Data=False;Tag with column collation when possible=False"
            
dim AcSys  as new adodb.connection 
   With AcSys
      If .State = adStateOpen Then .Close
      .NonnectionString = StrCon
      .ConnectionTimeout = 30
      .Open
    End With

解决方案 »

  1.   

    你先要得到数据库服务器的ip地址呀!,然后在vb的Dim StrCon As String
    StrCon = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;" _
         & "Initial Catalog=你的数据库名称;Data Source=" & 数据库服务器的iP地址 & ";" _
         & "Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;" _
         & "Use Encryption for Data=False;Tag with column collation when possible=False"
      

  2.   

    在sql server中直接連,連不上,是什麼問題????
      

  3.   

    我知道IP地址
    但是我用 ADO 控件生成的连接字符串是这样的
            g_cnnString = "driver={SQL Server}" & _
                    ";server=" & txtServer & _
                    ";uid=" & txtUserName & _
                    ";pwd=" & txtUserPwd & _
                    ";database=" & txtDB _
    我试了上面的连接字符串,结果程序出错
    Err.De..: [DBNETLIB][ConnectionOpen (Connect()).]SQL Server 不存在或访问被拒绝
    Err.Number:  -2147467259 
    请给出这两个连接字符串的区别,最好解释一下 strCon 的各个含义
      

  4.   

    可以Ping上,我怀疑是服务器Sql Server配置有问题
      

  5.   

    搞定,拨号后SqlServer2000必须重新启动一下
    这样 动态IP:1433 就开放了
    DL 黑我一次,r.