作者: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