一聚教程网:一个值得你收藏的教程网站

最新下载

热门教程

asp+access sql insert into select表复制

时间:2022-07-02 22:31:56 编辑:袖梨 来源:一聚教程网

这里是把一个同的数据一次性保存到另一个表,用的是sql insert into  select另一张同结构的新表

sub append()
call opendb()
dim zsql,zdysql
zsql="insert into zdgz select title,s_name,user_from,image,content,send_date,isture from zdy "
 conn.execute(zsql)
 if err=0 then
  response.write("


")
 response.write("Data successful merger

")
 conn.execute("delete * from zdy")
 else
  response.write("


")
 response.write("If you are repeatedly running a home, data merge successfully.If you are running the first page, the data failed merger.






")
 end if
end sub

数据连接代码

sub opendb()
set rs=server.CreateObject("adodb.recordset")
set conn=server.CreateObject("adodb.connection")
conn.connectionstring="provider=microsoft.jet.oledb.4.0; data source="&server.mappath("datasource/hhinfo.mdb")
conn.open
end sub

本站原创转载注明 www.111com.net

热门栏目