VBS使用recordset对象增删查改

dO]kt0set con =CreateObject("ADODB.connection")
C\4|@*gS0set rs=createobject("ADODB.recordset")
#r$rPl"Ej:VX0strsql=“select * from tablename”51Testing软件测试网K*o1im)L
con.ConnectionString="此处略去30字……"51Testing软件测试网N@)mgNMp
con.open51Testing软件测试网$vq2?X$Wv1[0}

查询51Testing软件测试网y HlIZ"grB]
rs.open strsql,con,1,251Testing软件测试网Di%x C)A4A:v/@|
if not （rs.bof or rs.eof） then
&_C[*n.O0strname＝rs（"name"）51Testing软件测试网Nl&}l^)c
=rs.feilds（"name"）
,S.`7dd:G|u1a9{0end if

VlI)N GR0getrow:将数据集保存到二维数组
oR1^[1O@:i0strdata＝rs.getrow（2,0）51Testing软件测试网H0GF)\m6c0]3I\?'E
'从第一行开始复制两行到二维数组51Testing软件测试网$I-Q2N'@H
str（1，0）第二咧第一行
(F2cK+x
G_V%Mg0strdata（1，1）第二列第二行
~d:C7G{.c,BW0getstring:将数据集作为字符串返回51Testing软件测试网`R8j0{y5|

4f,c PW
NY:d0筛选
xz/T!s8W0rs.filter＝"name＝＇json＇"51Testing软件测试网~*wm9vGe4GAO`

+uD G1r4C5F0新增51Testing软件测试网rZ Li&K.O

I7_!A.e$u&wI0rs.addnew
'A1Tj4g F8E%f-V0rs（"name"）＝"张三"
$OV:P%B5lE0rs.update
3SpUa7qi0
P,f SRBL0Nz0更新

}-H|WR-P)|0
"k(Z[pwrH;P0rs.update "name","jhon"
PXe%G ZqE3Q0rs（"name"）＝"e"
0D I*F+l"?)M v0rs.update（或rs.updatebatch）51Testing软件测试网!f7l,f.LGqC5x
例子：
.]t9pq:Y(C&K0count＝rs.recordcount
H+t0h7AF5S0~'v0for i＝1 to count
#T%y5KE`;h.^-q'x0if rs（"name"）＝"zhangsan" then
4t+L4W[8Rh3m ZA0rs.update "name","lisi"51Testing软件测试网*rK6T'^C!te:{ E)x
exit for51Testing软件测试网?x"}1_"y kLu HK,y
end if
Ag8R:Xz$Z4wx`0rs.movenext
!J/{.MBB4Q+@n0next51Testing软件测试网~i!A*AE x%k fwR
set con=nothing51Testing软件测试网
XPJ5b#s0J!LFqm
set rs=nothing51Testing软件测试网bpA
oS+\m0C r
51Testing软件测试网7M2e-VEQ
51Testing软件测试网y)V]6m2\
删除
*H&hT8gB`:G+d0rs.cursorlocation＝351Testing软件测试网'z-e0vC%|*x2@
须在rs打开之前声明
N k?G1Wh1o9R6~0rs.delete 151Testing软件测试网H/MN4x4B/F4w
rs.update51Testing软件测试网w(y p3IN)k-J
51Testing软件测试网Rqkz.U'G"Q