如何在ACCESS的模块（vba）中删除另外一个MDB文件中的数据表？

Question

我做了一个模块（VBA），需要将另一个MDB文件中的数据表中数据删除，请问如何做到？谢谢了

Answer 1

可以写一个通用函数：
Function DeleteTables() As Boolean
On Error GoTo theerr
Dim wrkDefault As Workspace, dbs As Database, Paths As String, rst As Recordset, TableName As String
'定义工作区、数据库、数据库路径、记录源对象、表名字
Paths = "目标数据库位置" '自己替换一下
TableName = "目标表名字" '自己替换一下
Set wrkDefault = DBEngine.Workspaces(0) '定义工作区
Set dbs = wrkDefault.OpenDataBase(Paths, False) '打开目标数据库
Set rst = dbs.OpenRecordset(TableName) '打开目标数据表
Do Until rst.EOF '逐条删除记录 至结尾
rst.Delete
Loop
'释放对象
rst.Close
dbs.Close
wrkDefault.Close
End Function
前提，在VBA的“引用”中，要对DAO3.6库进行引用。