[求助][讨论]如何进行数据库的清空

ypcro

部分内容不需要搜索，但是需要归档

现在想将数据导出后，把数据库清空，然后再进行下一批的输入

[此贴子已经被作者于2004-8-24 15:52:09编辑过]

ypcro

3Q 大侠

李寻欢

Dim db As DAO.TableDef

For Each db In CurrentDb.TableDefs

    If Left(db.Name, 4) <> "msys" Then

        DoCmd.RunSQL "DELETE * FROM " & db.Name

    End If

Next以上代码清空所有表,也可以相对应的建好每一个表的删除查询,再用一个宏同时运行所有查询,方法有很多,举一反三吧.

情比金坚

删除查询