VB中怎样使用ADO来连接INTERNET的远程数据库服务器？分数多多！100分

Question

这是我在某本书上看到的做法，我没条件调试
你在远程设置一个数据源
cn.open "provider=MS Remote;Remote Sevrer=http://www.a.com.cn"+
+";Remote Provider=msdasql;dsn=pubs"
cursorlocation设成aduseclient
cursortype=adopenstatic
locktype=lockbatchoptimistic

Answer 1

你把Remote Sevrer改成Remote Sevrer=210.29.77.10

Answer 2

Dim rs as New ADODB.Recordset
rs.Open "SELECT * FROM authors", "Provider=MS Remote;Data Source=pubs;Remote Server=http://YourServer"
...            '编辑记录集
rs.UpdateBatch    '与 SubmitChanges 等值
...
A 部分   

Answer 3

你还可以建ODBC，但必须在Client Configuration...中
选TCP/IP协议，前提是你安装SERVER时要允许TCP/IP联接

Answer 4

本人是这么写的，可还是出现如下的错误：“RDS服务器错误：服务器拒绝访问用于访问此页的默认的RDS句柄”不知道是什么原因呀。
Private Sub Form_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
     Set cn = CreateObject("ADODB.Connection")
     Set rs = CreateObject("ADODB.Recordset")
     cn.Open "Provider=MS Remote;Remote Provider=MSDASQL;" & _
             "Remote Server=http://210.29.77.10;" & _
             "DSN=ticket;UID=zxh;PWD=zxh;"
     rs.CursorLocation = adUseClient
     rs.Open "SELECT * FROM tb_user_info", cn
End Sub

Answer 5

会不会是权限问题
客户端需要能访问dsn文件
应该放在虚拟目录里

Answer 6

Dim db_string As String
Dim conn As Connection
Dim rs As Recordset
'On Error GoTo err_msg
    If db_string = "" Then
        db_string = "Provider=MSDASQL;DRIVER=SQL Server;SERVER=211.154.99.99;Initial Catalog=" & db_name & ";User ID=saiko;PWD=9601;APP=Microsoft Development Environment;Network Library=TCP/IP;Persist Security Info=True;"
    End If
    Set conn = New Connection
    conn.Open db_string
    If conn.State = adStateOpen Then
        conn_db = True
    End If