标题: 删除表(包括链接表)的三个常用函数 [打印本页] 作者: caoguangyao 时间: 2011-6-13 16:15 标题: 删除表(包括链接表)的三个常用函数 '删除表(包括链接表)的三个函数caoguangyao2011-6-13
'1.----------------------------------
Public Function delTable(tbl As String)
'功能: 删除表
'参数: tbl--->表名称
'示例:delTable ("部门")
DoCmd.DeleteObject acTable, tbl
End Function
'2---------------------------------
Public Function delTable2(tbl As String)
'功能: 删除表
'参数: tbl--->表名称
'示例:delTable2 ("部门")
Dim dbs As Database
Set dbs = CurrentDb
dbs.TableDefs.Delete tbl
dbs.Close
End Function
'3.------------------------------
Public Function delTable3(tbl As String)
'功能: 删除表
'参数: tbl--->表名称
'示例:delTable3 ("部门")
Dim dbs As Database
Set dbs = CurrentDb
dbs.Execute "Drop table " & tbl
dbs.Close
End Function 作者: roych 时间: 2011-6-14 09:33
第三个也可以改为docmd.RunSQL方式作者: mars343 时间: 2011-8-10 18:27
这些资料我觉得应该是很有用的一些资料，我刚学习access，还有很多的问题不明白，很多的东西需要学习，谢谢楼主了，呵呵。作者: yanghua1900363 时间: 2011-8-10 22:10
收藏了