Office中国论坛/Access中国论坛

标题: 如何删除不需要的表？ [打印本页]

作者: sxgaobo 时间: 2015-1-29 11:27
标题: 如何删除不需要的表？
只留下指定的表，如：表1、表2，将其他所有的表都删除了，
如何用代码操作啊？

作者: 盗梦 时间: 2015-1-29 11:32
删除记录还是删除表？

作者: tmtony 时间: 2015-1-29 12:23
deleteobject
用代码循环

作者: kunlun 时间: 2015-1-29 13:05
本帖最后由 kunlun 于 2015-1-29 13:06 编辑

Tom的方法用代码循环当然可行，但那样一要写很多代码，新手不一定会。二是写代码真的不是我愿意的工作。
其实，删除表很简单，因为access的所有对象都是存储在MSysObjects表中。所以我们只要去获取该表中的所有表名称就行了。
然后用delete object来操作就行了。
我做了示例，分享一下。
[attach]55551[/attach]

[attach]55553[/attach]
DoCmd.DeleteObject acTable, Me.List2.Value

就这么简单。

作者: sxgaobo 时间: 2015-1-29 13:06

tmtony 发表于 2015-1-29 12:23
deleteobject
用代码循环

删除表，不是记录。
因为库中表的数量和表名称都不确定，但可以确定的是需要留下的表，如表1、表2，请教！这样的循环如何做啊？

作者: kunlun 时间: 2015-1-29 13:37

sxgaobo 发表于 2015-1-29 13:06
删除表，不是记录。
因为库中表的数量和表名称都不确定，但可以确定的是需要留下的表，如表1、表2，请教 ...

看我的回贴

作者: roych 时间: 2015-1-29 13:39
本帖最后由 roych 于 2015-1-29 16:28 编辑

Sub test()
Dim i As Long
DoCmd.SetWarnings False
For i = 1 To 100'或者将100改为CurrentDb.TableDefs.Count也行。
If Not CurrentDb.TableDefs(i).Name Like "*sys*" Then
DoCmd.DeleteObject acTable, CurrentDb.TableDefs(i).Name
End If
Next
End Sub

复制代码

大概这样，具体条件还要你自己设置。这里只是忽略掉系统表而已。

作者: sxgaobo 时间: 2015-1-29 16:12
谢谢各位高手的热情相助！！！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)