怎么用代码实现清除ACCESS里某张表的数据,而是不要打开数据库然后清除!

Question

怎么用代码实现清除ACCESS里某张表的数据,而是不要打开数据库然后清除!
可以实现吗?谢谢!很急的!

Answer 1

用个比较笨的办法，
先用ADO打开这个表，
然后DO循环到RecordCount=0
一直执行DEL
应该可以吧，我也是菜鸟，愚见

Answer 2

Dim ctr As Container, doc As Document, db As Database
Set db = CurrentDB()
Set ctr = db.Containers!Tables
For Each doc in ctr.Documents
   If Left$(doc.Name, 4) <> "MSys" Then 注释：Table is not a system table
        db.Execute "DELETE [" & doc.Name & "].*" & _
           "From [" & doc.Name & "];"
   End If
Next doc找到了答案了!