Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点，是 Microsoft Office 的系统程序之一。Microsoft Office Access是微软把数据库引擎的图形用户界面和软件开发工具结合在一起的一个数据库管理系统。它是微软OFFICE的一个成员, 在包括专业版和更高版本的office版本里面被单独出售。2018年9月25日,最新的微软Office Access 2019在微软Office 2019里发布。 这里是把一个同的数据一次性保存到另一个表，用的是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("<br><hr>")
response.write("<font class=style1 >Data successful merger</font><hr><br>")
conn.execute("delete * from zdy")
else
response.write("<br><hr><br>")
response.write("<font class=style1>If you are repeatedly running a home, data merge successfully.If you are running the first page, the data failed merger.</font><hr><br><br><br><br><br><br><p></p>")
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
Microsoft Access在很多地方得到广泛使用，例如小型企业，大公司的部门。
|