如何删除不需要的表？

sxgaobo

只留下指定的表，如：表1、表2，将其他所有的表都删除了，
如何用代码操作啊？

盗梦

删除记录还是删除表？

tmtony

deleteobject
用代码循环

kunlun

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



DoCmd.DeleteObject acTable, Me.List2.Value

就这么简单。

sxgaobo

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

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

kunlun

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

看我的回贴

roych

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

复制代码

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

sxgaobo

谢谢各位高手的热情相助！！！