EXCEL 更新 ACCESS数据库。

最新推荐文章于 2021-03-12 13:48:30 发布

ddscorpio

最新推荐文章于 2021-03-12 13:48:30 发布

阅读量2.5k

点赞数

分类专栏： Coding.... 文章标签： excel access 数据库 file table html

本文链接：https://blog.csdn.net/ddscorpio/article/details/1334955

版权

Coding.... 专栏收录该内容

6 篇文章 0 订阅

订阅专栏

前段时间写的。多谢一个朋友帮我找出错误。哈哈。

<html>
<head>
<title>数据更新</title>
</head>
<body>
<table align=center>

<%
exec="select * from [sheet1$]"
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open exec,conn1,1,3
%>

<%
Set rs2 = Server.CreateObject("ADODB.Recordset")
'Set rs2.ActiveConnection = conn2
exec = "select * from shop"
'rs2.CursorType = 3 ' adOpenKeyset
'rs2.LockType = 3 'adLockOptimistic
rs2.Open exec,conn2,1,3
%>

<%
Do While Not rs1.Eof
rs2.movefirst
do while not rs2.eof
    if (rs1("cid")=rs2("cid")) Then
      rs2("price")=rs1("price")
    end if
    rs2.movenext
loop
rs1.MoveNext
Loop

rs1.Close
rs2.Close
conn1.Close
conn2.Close
Set rs1=nothing
Set rs2=nothing
Set conn1=nothing
Set conn2=nothing

response.write "记录更新完毕，请关闭本页面！"
%>

</table>
</body>
</html>

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

ddscorpio

关注关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
EXCEL 更新 ACCESS数据库。

前段时间写的。多谢一个朋友帮我找出错误。哈哈。数据更新exec="select * from [sheet1$]"Set rs1 = Server.CreateObject("ADODB.Recordset")rs1.Open exec,conn1,1,3%>Set rs2 = Server.CreateObject("ADODB.Recordset")Set rs2.ActiveC
复制链接

扫一扫