我参照帮助文件“删除表”创建了窗口,代码如下,但执行代码时出现错误。见附件:
Dim Builder As New ADOXBuilder
Builder.Open()With Builder .DeleteTable("表A") .DeleteTable("表B")End WithBuilder.Close()
由于系统中的表数量较多,想在删除表时,弹出所有数据表文件名,供全选或可选,以便删除。