Public Function FUN_DELETE_TABLE_123(CONNECT As Connection, STR_TABLE_NAME As String)
' удаление всех таблиц из базы, кроме таблиц из строки STR_TABLE_NAME
'STR_TABLE_NAME = "Табла1, Табла2, Табла3, Табла4, Табла5"
' CONNECT например GLB_con_DATA_DB
Dim adoxCat As Object
Dim adoxTbl As Object
Dim retval
Set adoxCat = CreateObject("ADOX.Catalog")
Set adoxTbl = CreateObject("ADOX.Table")
Set adoxCat.ActiveConnection = CONNECT
'Пробежим по таблицам проверяем имена всех таблиц
For Each adoxTbl In adoxCat.Tables
retval = Split(STR_TABLE_NAME, adoxTbl.Name)
If UBound(retval) = 0 And Mid(adoxTbl.Name, 1, 4) <> "MSys" Then
CONNECT.Execute "DROP TABLE " & adoxTbl.Name ' Удаление таблицы
Debug.Print adoxTbl.Name
End If
Next adoxTbl
Set adoxCat = Nothing
Set adoxTbl = Nothing
End Function
|