删除access所有表中记录\清空所有表中全部的数据

[Accessoft-麥田]

是清空所有表中数据记录,不是清空选择单个表的数据,大家慎用,
一次性删除所有表中的记录，代码如下

'新建模块,复制下面代码,使用方法为直接调用ClearAllData函数,如新建窗体按钮单击事件过程写ClearAllData
Function ClearAllData()
Dim rst As Object
DoCmd.SetWarnings False
Set rst = CreateObject("ADODB.Recordset")
rst.Source = "Select [Name] FROM MSysObjects Where Type=1 AND Not [Name] Like 'MSys%'"
rst.Open , CurrentProject.Connection
Do Until rst.EOF
DoCmd.RunSQL "Delete FROM [" & rst![Name] & "]"
rst.MoveNext
Loop
rst.Close
DoCmd.SetWarnings True
End Function

[WWWWA]

不错，谢谢分享

[rucypli]

为啥不用truncate table

[WWWWA]

[Quote=引用 2 楼 的回复:]

为啥不用truncate table
[/Quote]
jetsql 不支持

[ACMAIN_CHM]

QQ群 48866293 / 12035577 / 7440532 / 13666209
ACCESS专业论坛
http://www.accessbbs.cn/bbs/index.php .
http://www.office-cn.net/vvb/ .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
.
http://www.office-cn.net/home/space.php?uid=141646 .

[qq_25583735]

請教一下,在ACCESS2010 為什麼不能用?如下圖,謝謝解答!

[YFLK]

原表更名，用原表名建新表并复制原表结构，删除原始表。效率要高很多。