我没有试过,但我想用以下方法应该可以。
dim db as database
dim sc as recordset
set db=opendatabase(dbf文件所在路径)
set sc=db.openrecordset(dbf文件)
if sc.recordcount<>0 then
sc.MoveFirst
do while not sc.eof
sc.delete
sc.MoveNext
loop
end if
dim db as database
dim sc as recordset
set db=opendatabase(dbf文件所在路径)
set sc=db.openrecordset(dbf文件)
if sc.recordcount<>0 then
sc.MoveFirst
do while not sc.eof
sc.delete
sc.MoveNext
loop
end if
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货