VBS使用recordset对象增删查改

]4bXEj0set con =CreateObject("ADODB.connection")
U7KI-hg#J j j0set rs=createobject("ADODB.recordset")51Testing软件测试网,Ti
v,N jr1K1[
strsql=“select * from tablename”51Testing软件测试网8Pp
g)L1y-V
con.ConnectionString="此处略去30字……"
(L^~;BV\!Pqx0con.open

查询
4pSk+D/C6_;g#@Kq"k0rs.open strsql,con,1,2
O8vi&q:FbK(f(]0if not （rs.bof or rs.eof） then51Testing软件测试网$Y/p9U)WY'y5UJ
strname＝rs（"name"）51Testing软件测试网S%]XWP;Z%z'{
=rs.feilds（"name"）51Testing软件测试网t\KJ.b'_ {
end if

"t%_TEi1w0s7Z0getrow:将数据集保存到二维数组
Rd5TBc7tO0strdata＝rs.getrow（2,0）
)@u3u#gxv0'从第一行开始复制两行到二维数组51Testing软件测试网G/i ? J.v3hn
str（1，0）第二咧第一行51Testing软件测试网^-XVT;M
U|I
strdata（1，1）第二列第二行51Testing软件测试网%j9ju0d;U0~Q}
getstring:将数据集作为字符串返回
;?!y+Gd NR}051Testing软件测试网waoBCc&w
筛选51Testing软件测试网!bZ8g^M)G6?m0`*a.@
rs.filter＝"name＝＇json＇"
WY;t d Qj0
:g K9`.^pcc:@0新增
];HWM(k;t051Testing软件测试网j.SwbE5T
rs.addnew51Testing软件测试网 s Uj;E @9Vc"V
rs（"name"）＝"张三"51Testing软件测试网vee%sff7R
rs.update
u+~&H4Os&w3M3c6gb051Testing软件测试网(G)}Wi.c)i
更新51Testing软件测试网,f"Y$tte&]

n J}#p.}T;V$M0rs.update "name","jhon"
*a,UYZy0rs（"name"）＝"e"51Testing软件测试网 gZdH[:YF
rs.update（或rs.updatebatch）
#cd3CAl0例子：51Testing软件测试网y-f3T[9q(}
count＝rs.recordcount51Testing软件测试网K6f ] aL,i,G&e
for i＝1 to count
4Y3iZ(H/p0if rs（"name"）＝"zhangsan" then
)ik"} {fc0rs.update "name","lisi"
6Y4^u.`\8B9Z^y0exit for51Testing软件测试网]o5p1j Z Lg$I4KB$x
end if51Testing软件测试网 j/f)v1g*A
rs.movenext51Testing软件测试网YA]qGuHxf[7kR
next
U;rxhXu:s0set con=nothing
_ Y1_#ZQ8]Ayi!LQ0set rs=nothing
G(k${
_*UJ?1L0
xw5v!g{UU#yP0
!_mKE0M_K%F0删除
&GG&n)f1x D6B0rs.cursorlocation＝3
o(OFP.]g_-?-h0须在rs打开之前声明
j cmH)L hn0rs.delete 151Testing软件测试网K1dDE7SM
rs.update
\+cQPN4|S.j0