删除表(包括链接表)的三个常用函数

caoguangyao

'删除表(包括链接表)的三个函数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

第三个也可以改为docmd.RunSQL方式

mars343

这些资料我觉得应该是很有用的一些资料，我刚学习access，还有很多的问题不明白，很多的东西需要学习，谢谢楼主了，呵呵。

yanghua1900363

收藏了