powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как получить список существующих таблиц в текущей базе
6 сообщений из 6, страница 1 из 1
Как получить список существующих таблиц в текущей базе
    #32631315
Invisible
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Нужно плучить в массиве имена таблиц, чтобы DROP-ом их можно было почикать. Жаль, но * не работает. Как можно получить массив?
...
Рейтинг: 0 / 0
Как получить список существующих таблиц в текущей базе
    #32631331
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
dim t as tabledef
for each t in currentdb.tabledefs
...
Рейтинг: 0 / 0
Как получить список существующих таблиц в текущей базе
    #32631359
Invisible
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Thank's
...
Рейтинг: 0 / 0
Как получить список существующих таблиц в текущей базе
    #32633290
Invisible
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
АААААА!!! Он не видит скрытые таблицы! Как и их включить в список удаления? Хелп!!! Горю!!!
...
Рейтинг: 0 / 0
Как получить список существующих таблиц в текущей базе
    #32633291
Invisible
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Dim t As TableDef
On Error Resume Next
For Each t In CurrentDb.TableDefs
If LCase(Left(t.Name, 4)) <> "msys" Then CurrentDb.Execute ("DROP TABLE [" & t.Name & "]")
If Err Then MsgBox Err.Description: Err.Clear
Next
On Error GoTo 0

Вот что у меня. Но надо еще и скрытые таблицы грохать. Хеелп.
...
Рейтинг: 0 / 0
Как получить список существующих таблиц в текущей базе
    #32633337
sposad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Например для А2000 можешь открыть рекордсет по таблице MSysObjects типа

Код: plaintext
select MSysObjects.name, MSysObjects.type from MSysObjects where ((MSysObjects.name not like "MSys*") and (MSysObjects.type= 1 ))

пробежаться по нему и в drop вставлять значения столбца name. В этой таблице имена всех таблиц базы скрытых и нескрытых.
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как получить список существующих таблиц в текущей базе
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]