如何连远程数据库，兄弟们快帮手呀！！！！

Question

用 adodc 生成连接字符串阿

Answer 1

应该不会错呀，要不把IP地址改成机器名试试。还有，uid和pwd是正确的吗？一般都用sa的

Answer 2

    Set cn = CreateObject("ADODB.Connection")
     Set rs = CreateObject("ADODB.Recordset")
 
     cn.Open "Provider=MS Remote;Data Source=pubs;Remote Server=http://192.168.1.173;UID=admin;PWD=;"     rs.CursorLocation = adUseClient
     rs.Open "SELECT * FROM Authors", cn
pubs是数据服务器上的一个系统DSN.

Answer 3

你可以先用sql server enterprise manager直接用IP连一下，如果连接成功了，那么你用连接字符串连应该没有任何问题。如果不成功，你应该注意以下两点：
1、是否可以PING通。
2、你登陆服务器是用什么验证的，你登陆的用户是否有足够的权限。

Answer 4

    strCn = "Provider=SQLOLEDB.1;"
    strCn = strCn & "Persist Security Info=True;"
    strCn = strCn & "User ID=USER;"
    strCn = strCn & "Password=11111;" 
    strCn = strCn & "Initial Catalog=MyDB;"
    strCn = strCn & "Data Source=202.222.22.2"    
    
    Set cn = New ADODB.Connection
    cn.Open strCn
    .....注：　MyDB为数据库名。

Answer 5

 
    Set cn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")    cn.Open "Provider=MS Remote;Data Source=pubs;Remote　Server=http://192.168.1.173;UID=admin;PWD=;"'连　接通过    rs.CursorLocation = adUseClient
    rs.Open "SELECT * FROM Authors", cn'这里出现INTERNET服务器错误请ljren_t(立志)看看
 

Answer 6

Remote OLE DB Provider Connections方式.........RDS远程连接数据库
------------------------------------------------------------
1.MS Remote - Access (Jet) 
　　i)ODBC DSN: 
　　　　oConn.Open "Remote Server=http://carl2;" & _ 
　　　　　　"Remote Provider=MSDASQL;" & _ 
　　　　　　"DSN=AdvWorks;" & _ 
　　　　　　"Uid=admin" & _ 
　　　　　　"Pwd=;" 　　ii)OLE DB Provider: 
　　　　oConn.Open "Provider=MS Remote;" & _ 
　　　　　　"Remote Server=http://carl2;" & _ 
　　　　　　"Remote Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
　　　　　　"Data Source=\somepath\mydb.mdb;", _ 
　　　　　　"admin", "" 　　iii)OLE DB Provider自定义事务对象 
　　　　oConn.Open "Provider=MS Remote;" & _ 
　　　　　　"Remote Server=http://carl2;" & _ 
　　　　　　"Handler=MSDFMAP.Handler;" & _ 
　　　　　　"Data Source=MyAdvworksOLEDBConnectTag;" 2.MS Remote - SQL Server 
　　i)ODBC DSN: 
　　　　oConn.Open "Remote Server=http://carl2;" & _ 
　　　　　　"Remote Provider=MSDASQL;" & _ 
　　　　　　"Network Library=DBMSSOCN;" & _ 
　　　　　　"DSN=Pubs;" & _ 
　　　　　　"Uid=sa" & _ 
　　　　　　"Pwd=;" 　　ii)OLE DB Provider 
　　　　oConn.Open "Provider=MS Remote;" & _ 
　　　　　　"Remote Server=http://carl2;" & _ 
　　　　　　"Remote Provider=SQLOLEDB;" & _ 
　　　　　　"Network Library=DBMSSOCN;" & _ 
　　　　　　"Data Source=carl2;" & _ 
　　　　　　"Initial Catalog=pubs;" & _ 
　　　　　　"User ID=sa;" & _ 
　　　　　　"Password=;" 

Answer 7

那是数据服务器的配置问题,看看我以前问的问题.
http://www.csdn.net/expert/topic/342/342151.shtm

Answer 8

不对的地方很多，语法如下：
"Provider=MSDASQL.1;DRIVER={SQL Server};Server=服务器名;UID=USER;PWD=111111"
注意：服务器名不能用IP地址，只能用计算机名

Answer 9

若只能用IP，只有另编程序查找此IP机器的名称

Answer 10

我是要用ADO连，还要做什么事情呢，RDS我不用了，请问ljren_t(立志)　你最后是如何解决的

Answer 11

在windows的系统目录的drivers\etc\ 目录下有个hosts文件，你需要编辑此文件，在此文件中给远程机器起个名字，将名字与对应起来，具体格式看文件可得知，之后即可用我上面写的程序连接，系统会自动查找服务器名所对应的IP

Answer 12

格式为:
IP 机器名 如202.222.22.2 RemoteMachRemoteMach为远程机器名文件编辑完后，ADO连接语句为：
"Provider=MSDASQL.1;DRIVER={SQL Server};Server=RemoteMach;UID=USER;PWD=111111"

Answer 13

你赶紧试试这个吧。
Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=jd;Data Source=192.168.0.2

Answer 14

忘了加密码了，在User ID=sa;后面加上Initial Catalog=Password;

Answer 15

还是不行呀，兄弟们，：　ljren_t(立志)　我看了你以前的贴子，也照　做了，可还是不行呀，

Answer 16

Public adoCN As New ADODB.Connection       '定义数据库的连接存放数据和代码
Public SqlCommand As New ADODB.Command     '定义 SQL 命令
Dim adoDateTime As New ADODB.Recordset     '获取 NT-SERVER 时间
'**********Data Source=192.168.0.2 '*****后写IP地址
Public Function OpenConnection() As String '打开数据库
    On Error GoTo SQLConErr
    With adoCN
        .CursorLocation = adUseClient
        .Provider = "sqloledb"
        .Properties("Data Source").Value = cNtServerName
        .Properties("Initial Catalog").Value = cDatabaseName
        .Properties("User ID") = cSQLUserName
        .Properties("Password") = cSQLPassword
        .Properties("prompt") = adPromptNever
        .ConnectionTimeout = 15
        .Open
        
        If .State = adStateOpen Then
            adoDateTime.Open "select getdate()", adoCN, adOpenStatic, adLockOptimistic
            cServerDate = Format(adoDateTime(0), "yyyy-mm-dd")
            cServertime = Mid(adoDateTime(0), 10)
        Else
            MsgBox "数据库连接失败，请找系统管理员进行检查 ！", 16, cProgramName
            End
        End If
    End With
    
    SqlCommand.ActiveConnection = adoCN
    SqlCommand.CommandType = adCmdText
    Exit Function
SQLConErr:
    Select Case Err.Number
        Case -2147467259
            MsgBox "找不到指定的SQL Server服务器或者数据库不存在，请重新设置！", vbExclamation
            F_SetSystem.Show 1
        Case -2147217843
            MsgBox "指定的SQL Server数据库用户不存在或口令错误，请重新设置！", vbExclamation
            F_SetSystem.Show 1
        Case Else
            MsgBox "数据环境连接失败，请找系统管理员进行检查 ！", 16, cProgramName
    End Select
    OpenConnection
End Function

Answer 17

没试过我的方法吗？我就是这样连接我的服务器的，No problem!回复人：　Richard2001(Richard)　(2002-1-25 16:38:14)  得0分 
    strCn = "Provider=SQLOLEDB.1;"
    strCn = strCn & "Persist Security Info=True;"
    strCn = strCn & "User ID=USER;"
    strCn = strCn & "Password=11111;" 
    strCn = strCn & "Initial Catalog=MyDB;"
    strCn = strCn & "Data Source=202.222.22.2"    
    
    Set cn = New ADODB.Connection
    cn.Open strCn
    .....注：　MyDB为数据库名。