如果是SQL Server數據庫，網上找了個方法：

清空数据库中所有表的方法 
有时要删除一个数据库所有表里的数据，表少的话就一个一个的删吧，
但成百上千个表的话，可能要累死牛了噢，我是用下面的方法来删的。
但总觉得不是很好！如果能写个存储过程岂不是更好......好，完了想一下

你有更的好办法吗，别忘记告诉我一下啊！！


DECLARE @oatabel_name varchar(40)
declare delete_cursor CURSOR FOR
SELECT table_name
FROM Information_Schema.tables
where table_type = 'base table'
ORDER BY table_type
OPEN delete_cursor
FETCH NEXT FROM delete_cursor
INTO @oatabel_name
WHILE @@FETCH_STATUS = 0
BEGIN

print 'delete from '+ @oatabel_name

FETCH NEXT FROM delete_cursor
INTO @oatabel_name
END
CLOSE delete_cursor
DEALLOCATE delete_cursor
GO

如果是vfp數據庫，網上找了個方法：

如何一次性清空VFP数据库所有表

有没有相关命令？谢谢。 

NO.1   作者： fj_jiangqi
use   database.doc   
  copy   to   array   _arr   field   objectname   for   alltrim(objecttype)="Table"   
  use   
  for   i=1   to   alen(_arr)   
      g=alltrim(_arr[i])   
      use   (g)   exclusive   
      zap   
      use   
  endfor   

總之，一段語句應該沒有。

use   database.doc   
  copy   to   array   _arr   field   objectname   for   alltrim(objecttype)="Table"   
  use   
  for   i=1   to   alen(_arr)   
      g=alltrim(_arr[i])   
      use   (g)   exclusive   
      zap   
      use   
  endfor   
--------------------------------------------
上列代码不错，只是第一句有点小错，改如下：
use   database.dbc

恩，貼的時候沒注意，後綴錯了。