读取:select <字段名1>,<字段名2>,<字段名3>,.... from <表名> 修改:Update <表名> set <字段名1>=<新值1>,<字段名2>=<新值2>,..... where <条件>
dim myrs as new adodb.recordset dim conn as new adodb.connection dim sql as string dim a as string,b as string,c as string sql="select a,b,c form 表1" myrs.open sql,1,3 while not myrs.eof a=myrs!a b=myrs!b c=myrs!c if a=??? .... end if myrs.movenext wend
修改:Update <表名> set <字段名1>=<新值1>,<字段名2>=<新值2>,..... where <条件>
dim conn as new adodb.connection
dim sql as string
dim a as string,b as string,c as string
sql="select a,b,c form 表1"
myrs.open sql,1,3
while not myrs.eof
a=myrs!a
b=myrs!b
c=myrs!c
if a=???
....
end if
myrs.movenext
wend