<%
'相关说明
'-------------------
'功能:将数据库test1.mdb中的表table1的[field1],[field2]的数据拷贝到数据库test2.mdb中的表table2的[field3],[field4]
'-------------------
dim conn,cmd
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("test2.mdb")
Set cmd = Server.CreateObject("ADODB.command")
cmd.activeconnection=conn
cmd.commandtext= "insert into table2([field3],[field4]) select [field1],[field2] from table1 in ""F:/test/tset1.mdb"" "
cmd.execute
response.write "Is OK!"
set cmd=nothing
conn.close
set conn=nothing
%>
此博客展示了将数据库test1.mdb中表table1的[field1]、[field2]数据,拷贝到数据库test2.mdb中表table2的[field3]、[field4]的代码。通过ADODB对象实现连接数据库和执行插入操作,最后输出操作成功信息。
1153

被折叠的 条评论
为什么被折叠?



