ник: час
Видимо вот так???
STR_TABLE_NAME = "Табла1, Табла2, Табла3, Табла4, Табла5, MSys"
Public Function FUN_DELETE_NOT_TABLE(CONNECT As Connection, STR_TABLE_NAME As String)
' удаление всех таблиц из базы, кроме таблиц строки STR_TABLE_NAME
' 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
'CONNECT.Execute "DROP TABLE " & "Name" ' Удаление таблицы
'Пробежим по таблицам проверяем имена всех таблиц
For Each adoxTbl In adoxCat.Tables
retval = Split(STR_TABLE_NAME, adoxTbl.Name)
if UBound(retval) = 0 then
CONNECT.Execute "DROP TABLE " & adoxTbl.Name ' Удаление таблицы
End If
Next adoxTbl
Set adoxCat = Nothing
Set adoxTbl = Nothing
End Function
|
Как Вы считаете - работоспособно?
нет не так........