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

chuyuchun

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

'新建模块,复制下面代码,使用方法为直接调用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

zxb7679

很强大，不小心会自宫！