如何进行远程数据查询？急！想访问远端sql数据库！

Question

dim serverDB as adodb.connection 
Set ServerDB = New ADODB.Connection
    ServerDB.ConnectionTimeout = 10
    ConnStr = "Provider=SQLOLEDB;Server=" & ServerName & ";DataBase=DatabaseName ;User ID=" & UserID & ";Pwd=" & PassWord & ";"
    ServerDB.Open ConnStr
'servername是服务器的IP地址
'databaseName是要操作的数据库名
'UserID,Password是用户名与密码
dim rs as adodb.recordset
set rs=new adodb.recordset
rs.open "Select * from TableName" ,cnndb
'打开表tablename
text1.text=rs("Field1")'打开字段1
rs.close '关闭表
serverdb.close '关闭数据库
set serverdb=nothing

Answer 1

同上.同时远程的SQL服务要启动

Answer 2

我只会informix在unix中的远程调用。抱歉!!!

Answer 3

在 给你 关于 ado object 的 连接: 
Set Cnxn2 = New ADODB.Connection 
Cnxn2.ConnectionString = "Provider=sqloledb;Data Source=MyServer;" & _ 
"Initial Catalog=Pubs;User Id=sa;Password=;" & _ 
"URL=Http://127.0.0.1/user.mdb" '或者 用 参数 
'Remote Provider= 
'Remote Server= 
'组成 连接字符传 . 
Cnxn2.Open