Ответить на сообщение

Вы отвечаете на сообщение:

ник: час
Имеется функция - для удаления из базы mdb всех таблиц, кроме переданой в эту функцию в качестве аргумента...

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 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 If adoxTbl.Name <> STR_TABLE_NAME And Mid(adoxTbl.Name, 1, 4) <> "MSys" Then ' наличие таблицы CONNECT.Execute "DROP TABLE " & adoxTbl.Name ' Удаление таблицы End If Next adoxTbl Set adoxCat = Nothing Set adoxTbl = Nothing End Function

Ваше имя:
Пароль:

Цитировать: [quote][/quote]	Код: [code][/code]
Жирный: [b][/b]	Наклонный: [i][/i]
URL: [url][/url]

Сообщение:
	Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru
Прикрепить:

Для вставки смайлов в текст щелкните по значку.

Форумы HiProg.com - MS ACCESS, VBA, VB