问？：
access或sql数据库 ，如何做到用一个按据清空多个表、多个数据库，或一个按据清空一个数据库或表？谢谢，记得foxpro有一个pack的命令好象可以清除全部。
答！： 1:
清空一个数据库
For I = 1 To CurrentData.AllTables.Count
gg = "delete from " & CurrentData.AllTables(I).Name
currentdb.execute gg
Next
清空表：
DELETE FROM TT
答！： 2:
delete from 表名 可清空数据，循环即可
答！： 3:
如何清空、初始化一个数据库？
思路：
通过ADO 或者系统表找到所有的表名，然后通过组织 JET SQL 的 DELETE FROM [TABLENAME] 语句来删除所有表中的数据；
清空数据以后用 ADO 获取系统的自动编号字段，判断其是否为自动增加、长整字段，然后再组织 JET SQL 的 DDL 语句来初始化自动编号；
所有数据初始化结束后还要压缩修复数据库。
注意：如果可能，在创建上述数据库后就应该立即复制一份全新的备份，这样就不用事后编程来进行初始化了。
