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

时　间:2012-05-10 09:40:46

作　者:摘　要:今天有学员问如何清空所有表中的记录，故做了这个实例

正　文:

是清空所有表中数据记录，不是清空选择单个表的数据，大家慎用。

一次性删除所有表中的记录，代码如下：

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

附   件:

点击这里下载

Access软件网QQ交流群(群号:39785885)

Access源码网店