Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как получить список существующих таблиц в текущей базе / 6 сообщений из 6, страница 1 из 1
02.08.2004, 13:18:08
    #32631315
Invisible
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как получить список существующих таблиц в текущей базе
Нужно плучить в массиве имена таблиц, чтобы DROP-ом их можно было почикать. Жаль, но * не работает. Как можно получить массив?
...
Рейтинг: 0 / 0
02.08.2004, 13:24:22
    #32631331
Владимир Саныч
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как получить список существующих таблиц в текущей базе
dim t as tabledef
for each t in currentdb.tabledefs
...
Рейтинг: 0 / 0
02.08.2004, 13:33:44
    #32631359
Invisible
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как получить список существующих таблиц в текущей базе
Thank's
...
Рейтинг: 0 / 0
03.08.2004, 13:49:33
    #32633290
Invisible
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как получить список существующих таблиц в текущей базе
АААААА!!! Он не видит скрытые таблицы! Как и их включить в список удаления? Хелп!!! Горю!!!
...
Рейтинг: 0 / 0
03.08.2004, 13:50:25
    #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
03.08.2004, 14:05:21
    #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
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как получить список существующих таблиц в текущей базе / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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