有什么好方法可以将本地的access数据库的部份数据批量传入远程虚拟主机的access数据库。 ( 积分: 200 )

1、我不想直接上传数据库文件，太大了。
2、虚拟主机支持asp.net.
3、想用delphi写个循环通过“asp”post上去，但asp不熟悉，自己写怕效率不高，所有请教大家有没有好方法。

1、我不想直接上传数据库文件，太大了。
2、虚拟主机支持asp.net.
3、想用delphi写个循环通过“asp”post上去，但asp不熟悉，自己写怕效率不高，所有请教大家有没有好方法。

'application("oracleCon&quot="Provider=OraOLEDB.Oracle.1;Password=cnown;Persist Security Info=True;User ID=cnown;Data Source=tsdb"
application("msSqlCon&quot="Provider=SQLOLEDB.1;Password=dbojfyes0;Persist Security Info=True;User ID=jfyes;Initial Catalog=WEB;Data Source=TS002/TEST"

'Set application("cnn&quot = Server.CreateObject("ADODB.Connection&quot
Set application("cn&quot = Server.CreateObject("ADODB.Connection&quot
Set application("rst1&quot = Server.CreateObject("ADODB.Recordset&quot
Set application("rst2&quot = Server.CreateObject("ADODB.Recordset&quot


tb1sql = "select * from tb1"
tb2sql = "select * from tb2"
application("rst1&quot.ActiveConnection = application("cn&quot
application("rst2&quot.ActiveConnection = application("cn&quot
application("rst1&quot.Open tb1sql
application("rst2&quot.Open tb2sql
Cols = CInt(application("rst1&quot.Fields.count);

do while not application("rst1&quot.Eof
application("rst2&quot.addNew
for i = 0 to Cols - 1
application("rst2&quot.Fields(i) = application("rst1&quot.Fields(i)
application("rst2&quot.Update
application("rst1&quot.MoveNext
Loop

application("accessCon&quot="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:/Documents and Settings/Administrator/My Documents/Book11.mdb;Persist Security Info=False"

接受答案了.