把ACCESS数据库数据完整的到入到SQL中，asp程序

作者：yonker king QQ:451900800

把ACCESS数据库数据完整的到入到SQL中，asp程序实现，首先ACCESS和SQL 数据库中的数据结构必须一样，否则出错。

首先新建两个页面，

1、table_access这个页面主要是通过下拉列控件把ACCESS数据库中的所有表，选中其中一个，点击执行按钮

代码：<form action="table_tosql.asp?mode=1" method=post id=form1 name=form1></form> <tr> <td> <select   name="stable"> <option value=1> tabadmin</option> <option value=2> tablogin</option> <option value=3> Taborders</option>

</select> <input type=submit value="执行"> </form> </td> </tr>

第2个页面，也是该程序的核心代码， 首先需要写连接两个数据库的连接 连接远程sql2000的连接符 connstr_sql="DRIVER=SQL Server;SERVER=mssql7.ixwebhosting.com;UID=agoodic_sql2005; PWD=tianqi.;APP=;DATABASE=agoodic_new0620" set conn_sql=server.createobject("adodb.connection") conn_sql.open connstr_sql 打开数据库

sql_access="select * from " If request.querystring("mode")=1 Then        If request.Form("stable")=1 Then             sql_access=sql_access+"tabadmin"             sql_clear="delete from tabadmin"         ElseIf request.Form("stable")=2 Then            sql_access=sql_access+"duanxiaoxi"            sql_clear="delete from duanxiaoxi"         ElseIf request.Form("stable")=3 Then            sql_access=sql_access+"eare"           sql_clear="delete from eare"      ELSE      END IF 根据表写不同的SQL语句，同时写上清空SQL库的语句 '清空 sql2000数据库 conn_sql.execute(sql_clear) '查询Access数据库 set rs_access=server.CreateObject("adodb.recordset") rs_access.open sql_access,conn,1,3 '打开sql数据库 set rs_sql2000=server.CreateObject("adodb.recordset") rs_sql2000.open sql_access,connstr_sql,1,3 If Not rs_access.eof Then       for i=0 to rs_access.recordcount-1               rs_sql2000.addnew               For l=0 To rs_access.fields.count-1                     rs_sql2000("" & rs_access.fields(l).name & "")=rs_access("" & rs_access.fields(l).name &"")               Next       rs_sql2000.update rs_access.movenext Next set rs_sql2000=nothing set rs_access=Nothing 通过两次循环完成。 作者：yonker king

QQ:451900800