asp+access sql in sert into select表复制

2019-11-02 15:47:29

字体：大中小

来源：转载

供稿：网友

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

sub append()
cal

古风网名[www.la240.com/html2017/1/14/]

l 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(" <hr>")
response.write("Data successful merger<hr> ")
conn.execute("delete * from zdy")
else
response.write(" <hr> ")
response.write("If you are repeatedly running a home, data merge successfully.If you are running the first page, the data failed merger.<hr> ")
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

上一篇：asp 连接access数据库二种方-法

下一篇：ASP + FLASH + ACCESS教程