Office中国论坛/Access中国论坛

标题: [求助][讨论]如何进行数据库的清空 [打印本页]

作者: ypcro 时间: 2004-8-24 23:46
标题: [求助][讨论]如何进行数据库的清空
部分内容不需要搜索，但是需要归档

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

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

作者: 情比金坚 时间: 2004-8-25 00:59
删除查询

作者: 李寻欢 时间: 2004-8-25 01:06
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以上代码清空所有表,也可以相对应的建好每一个表的删除查询,再用一个宏同时运行所有查询,方法有很多,举一反三吧.

作者: ypcro 时间: 2004-8-25 17:00
3Q 大侠

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)