ACCESS的几个问题

Question

shuo所有表一次删除：
cnnString = "Provider=Microsoft.Jet.OLEDB.4.0;data source=d:\safty.mdb"  
    Set cnn1 = New ADODB.Connection
    cnn1.Open cnnString
    Set rst1 = New ADODB.Recordset
    Set rst2 = New ADODB.Recordset
    rst1.CursorType = adOpenDynamic
    rst1.LockType = adLockOptimistic
    rst1.Open "saftytj", cnn1, , , adCmdTable
    rst2.CursorType = adOpenDynamic
    rst2.LockType = adLockOptimistic
    rst2.Open "saftyqt", cnn1, , , adCmdTable
    
    Do While Not rst1.EOF
       rst1.Delete
       rst1.MoveNext
    Loop    Do While Not rst2.EOF
       rst2.Delete
       rst2.MoveNext
    Loop如此类推
     do while not rst(i).eof
  rst(i).Delete
       rst(i).MoveNext
    Loop

Answer 1

Set fs = CreateObject("scripting.filesystemobject")
 fs.DeleteFile "d:\as.mdb"

Answer 2

建一个空的模板库，直接用该库的文件（.mdb）覆盖有数据的文件。