UC知道asp+access 数据库操问题
来源：百度知道 编辑：UC知道 时间：2024/05/25 18:04:14
有一组数据
A1=0
A2=0
A3=1
A3=0
A4=1
A5=0
A6=0
A7=1
..
如何把这组数据,写入相对应的access数据库
数据库如下:
id mane zuti
1 A1 ?
2 A2 ?
3 A3 ?
.. .. ..
要的结果,就是上面一组数据对号入坐写下数据库,请给如最佳的写法
我是这样写的
et Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From 表 "
Rs.Open Sql,Conn,1,3
do while not rs.eof
if rs("pm")="A1" then rs("zuti")=A1
if rs("pm")="A2" then rs("zt2")=A2
...
..
..
..
Rs.Update
rs.movenext
loop
rs.close
set rs=nothing
因为数组很多,不可能这样写,请问如何用循环语句来写
A1=0
A2=0
A3=1
A3=0
A4=1
A5=0
A6=0
A7=1
..
如何把这组数据,写入相对应的access数据库
数据库如下:
id mane zuti
1 A1 ?
2 A2 ?
3 A3 ?
.. .. ..
要的结果,就是上面一组数据对号入坐写下数据库,请给如最佳的写法
我是这样写的
et Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From 表 "
Rs.Open Sql,Conn,1,3
do while not rs.eof
if rs("pm")="A1" then rs("zuti")=A1
if rs("pm")="A2" then rs("zt2")=A2
...
..
..
..
Rs.Update
rs.movenext
loop
rs.close
set rs=nothing
因为数组很多,不可能这样写,请问如何用循环语句来写
反过来查:
Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From 表 "
Rs.Open Sql,Conn,1,3
N=100 '数据项目数,如果是数组就更好办了
for I=1 to N
s="A"&I '变量名
sValue=Eval(s) '变量值
rs.Find "mane='" & s &"'"
If not rs.EOF Then
rs("zuti")=sValue
End if
next
rs.BatchUpdate
rs.close