dim Var_Conn as Connection 'Microsoft.Jet.OLEDB.3.51Set Var_Conn = New Connection 'Microsoft.Jet.OLEDB.3.51
Str_Con = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & StrUserID & " ;PWD=" & StrPWD & ";Initial Catalog=" & StrDataBase & ";Data Source=" & StrServer & ""Var_Conn.Open Str_Con
需要引用ADO

解决方案 »

  1.   


    Public J_CNObj As New ADODB.Connection
    Public R_CNObj As New ADODB.Connection
    Public B_CNObj As New ADODB.ConnectionPublic Function ConnectServer(StrServerName As String, _
                StrUserID As String, StrPassword As String, StrDBSName) As Boolean
    '******************************************************
    '函数:ConnectServer
    '描述:根据调用者提供的参数,打开指定的数据库
    '参数:
    '    StrServerName:服务器名
    '    StrUserID:数据库用户名
    '    StrPassword:数据库密码
    '    StrDBSName:数据库名
    '返回:打开成功返回 TRUE,否则返回 FALSE
    '最后修改日期:2001-07-10 10:10
    '******************************************************
        
        On Error GoTo connecterrhand
        J_CNObj.ConnectionString = "SERVER=" & StrServerName & ";PROVIDER=SQLOLEDB" & _
            ";DATABASE=" & StrDBSName & ";UID=" & StrUserID & ";PWD=" & StrPassword
        
        J_CNObj.Open
        ConnectServer = True '成功
        Exit Function
    connecterrhand:
        ConnectServer = False '失败
    End Function
      

  2.   

    连接字符串Dim cn As New ADODB.Connection
    Dim strCn as stringstrCn = "Driver={SQL SERVER}; Server= ipaddress; UID=user;PWD=Password;Database=defaulDataBase "cn.Open strCn
      

  3.   

    你首先看看内部的局域网络是否能用(即网上邻居是否可以查到SQL服务器);
    然后,你在所谓的客户端配置一下ODBC看看是否通过,若通不过,你应但设置以下ODBC客户端配置,把TCP/IP改为命名管道。