http://www.qjedu.net/Article_Show.asp?ArticleID=323
一种程序实现的方法。
<%
set conn_sql=server.createobject("adodb.connection")
set conn_acc=server.createobject("adodb.connection")
conn_sqlstr="Provider=......"
conn_accstr="Provider=....."
conn_sql.open conn_sqlstr
conn_acc.open conn_accstr
set rs_sql=server.createobject("adodb.recordset")
selstr_sql="select * from sqltable"
rs_sql.open selstr_sql,conn_sql
do while not rs_sql.eof then
upstr_acc="inserte into acctable(id,name,....) values(" & rs_sql("id") & ",'" & rs_sql("name") & "',....."
conn_acc.execute(upstr_acc)
rs_sql.movenext
loop
%>