Public Function FUN_DELETE_TABLE(CONNECT As Collection, STR_TABLE_NAME As String)
' удаление таблицы из базы
' CONNECT например GLB_CONNECTION_DATA_DB
Dim AdoxCat As Object
Dim adoxTbl As Object
Set AdoxCat = CreateObject("ADOX.Catalog")
Set adoxTbl = CreateObject("ADOX.Table")
Set AdoxCat.ActiveConnection = CONNECT
'Пробежим по таблицам проверяем имена всех таблиц
For Each adoxTbl In AdoxCat.Tables
If adoxTbl.Name = STR_TABLE_NAME Then ' наличие таблицы
CONNECT.Execute "DROP TABLE " & adoxTbl.Name ' Удаление таблицы
End If
Next adoxTbl
Set AdoxCat = Nothing
Set adoxTbl = Nothing
End Function
|