Question

asp写入access数据库问题

想写一个程序，在现有的数据库里，把表1里的全部数据每一分钟发送10条到同一数据库的另一表表2里，比如数据库名称为1.mdb,然后里面的表分为表1和表2，现在我想把表1里的数据全部转入到表2里。表1和表2的设计视图完全一样，不是一次性插入，是一条条写入，要系统自动写入，每天定时自动转也可以，由手工打开页面转入也可以。麻烦有高手的给写个代码出来，不胜感激。我的Q是4253443，或者llab@163.com也可以，谢谢了。

Answer 1

将文件命名为5.asp
代码如下 :

<meta http-equiv="refresh" content="10;URL=5.asp"><%
dim conn '数据库连接
dim connstr '连接字符串
dim db '数据库文件路径

db = "Database.mdb"
On Error Resume Next
connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
Err.Clear
Set conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If

Dim ID,rs,rs1
set rs=conn.Execute("Select * From 表2")
if not rs.eof then
Set rs1=conn.Execute("Select Max(id) As MaxID From 表2")
ID=rs1("MaxID")
else
ID=0
end if
Set rs=conn.Execute("Select top 1 * From 表1 where id>"&ID&" order by id ASC")

conn.Execute("insert into 表2 (id,name,name1,edate,ehour,eminute,emonth,eyear,kind,stype,eabi) values ("&rs("id")&",'"&rs("name")&"','"&rs("name1")&"','"&rs("edate")&"','"&rs("ehour")&"','"&rs("eminute")&"','"&rs("emonth")&"','"&rs("eyear")&"','"&rs("kind")&"','"&rs("stype")&"','"&rs("eabi")&"')")

Response.Write "第"&rs("id")&"条数据复制成功"
set rs1=nothing
set rs=nothing
%>