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

时　间:2011-06-13 16:46:25
作　者:曹光耀   ID：3606  城市：广州
摘　要:删除表(包括链接表)
正　文:

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