在VB中怎么实现远程SQL Server数据库的拷贝

Question

我最近在用VB做一个程序，该程序需要用户在界面上输入时间段参数，然后将时间段参数（如2003-1-1至2003-9-1）通过ADO控件传递给SQL查询语句来访问远程的SQL Server数据库，并且要将查询出来的数据拷贝到当前计算机上的数据库中。
或者用其他方法来实现用户在界面上输入时间段参数（如2003-1-1至2003-9-1）能够将该参数段在远程SQL Server数据库里的数据拷贝到当前计算机里的数据库。  

Answer 1

有好多种方法，先取到数据放入控件中，然后用sql插入本地库；用DTS也可以（速度比较快)

Answer 2

还可以建立两个连接，一个连接远程，一个连接本地。
ado连接远程数据库的方法，
Dim objcon As New ADODB.Connection
Dim objrs As New ADODB.Recordset
objcon.Open "Provider=sqloledb.1;user id=sa;password=psw;Initial Catalog=databasename;Data Source=ip"
objrs.Open "select * from table where riqi between '2003-1-1' and '2003-2-1'", objcon, 3, 1

Answer 3

在远程数据库建立连接,然后用cnn.execute "insert into 本地表 in [本地数据库路径] select * from 远程表 where mdate between '2003-01-01' and '2003-09-01'"