QQ;59053040 adandelioncn@yahoo.com.cn[em04]作者: sea.er 时间: 2004-3-21 18:07
用更新查询作者: yrg13 时间: 2004-3-21 20:40
也可以用ADO
Dim cnn as new ado.connection
dim rst as new ado.recordset
dim strTabName as string
set cnn=application.currentproject.connection
strTabName ="商品表"
rst.open strTabnaem,cnn
if (rst.eof) then exit sub
do untio rst.eof
![商品名称]=”手机“
rst.uption
rst.movenext
loop
msgbox"修改完成！”，64
set rst=nothing
set cnn=nothing