ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как узнать имена таблиц в Acces через DAO?
30 сообщений из 30, показаны все 2 страниц
  все  
Как узнать имена таблиц в Acces через DAO?
    #32475578
zeratul
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zeratul
Гость
...
Рейтинг: 0 / 0
09.04.2004, 14:36
| Ответить | Цитировать | Написать  
Как узнать имена таблиц в Acces через DAO?
    #32475588
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
TableDefs
Ф1
...
Рейтинг: 0 / 0
09.04.2004, 14:39
| Ответить | Цитировать | Написать  
Как узнать имена таблиц в Acces через DAO?
    #32475652
zeratul
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zeratul
Гость
Спасибо уважаемый Лох!
Заработало. Дело в том что я пытаюсь узнать имена из под Delphi, и для этого использую такого типа строчки:
......
DBEngine := CreateOleObject('DAO.DBEngine.35');
except
raise;
end;
end;

try
DataBase:=DBEngine.OpenDatabase(DatabaseName);
TabL:=DataBase.TableDefs; //с Вашей подсказки
......
где Tabl - переменная типа variant.
Может подскажете что дальше с ней делать, чтоб извлечь имена? :)
Заранее благодарен.
...
Рейтинг: 0 / 0
09.04.2004, 14:56
| Ответить | Цитировать | Написать  
Как узнать имена таблиц в Acces через DAO?
    #32475720
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
TabL(i).name - имя i-й таблицы
TabL.count - количество (нумерация от 0)
...
Рейтинг: 0 / 0
09.04.2004, 15:22
| Ответить | Цитировать | Написать  
Как узнать имена таблиц в Acces через DAO?
    #32475787
zeratul
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zeratul
Гость
Спасибо Владимир Саныч!
Только вот TabL.count работает, а TabL(i).name - имя i-й таблицы не хочет.
Как я понял, i - это индекс элемента массива, а в Дельфи он прописывается через квадратные скобки. Тогда, если это исправить, при компиляции вылетает исключение - variant is not an array.
Не хочет Tabl считать себя переменной типа массива.
...
Рейтинг: 0 / 0
09.04.2004, 15:50
| Ответить | Цитировать | Написать  
Как узнать имена таблиц в Acces через DAO?
    #32475791
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
Хелп к DAO читать будешь или нет?
tds.item(i).name
на паскакаль сам переводи :)
...
Рейтинг: 0 / 0
09.04.2004, 15:51
| Ответить | Цитировать | Написать  
Как узнать имена таблиц в Acces через DAO?
    #32475810
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Это не масив, это коллекция. А синтаксис Паскаля я не помню, у нас тут все говорят на VBA...
...
Рейтинг: 0 / 0
09.04.2004, 16:00
| Ответить | Цитировать | Написать  
Как узнать имена таблиц в Acces через DAO?
    #32475832
sposad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sposad
Участник
Я бы считал названия из системной таблички MSysObjects. ИМХО удобнее.
...
Рейтинг: 0 / 0
09.04.2004, 16:07
| Ответить | Цитировать | Написать  
Как узнать имена таблиц в Acces через DAO?
    #32475847
zeratul
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zeratul
Гость
>Хелп к DAO читать будешь или нет?

Буду, конечно буду!

>s.item(i).name
>а паскакаль сам переводи :)

Пытаюсь, при таком варианте:
....
DataBase:=DBEngine.OpenDatabase(DatabaseName);
TabL:=DataBase.TableDefs;
strName:=TabL.item[2].name;
....
работает, но вместо имени таблицы strName принимает сначение - MSysAccessObject.
:(
...
Рейтинг: 0 / 0
09.04.2004, 16:13
| Ответить | Цитировать | Написать  
Как узнать имена таблиц в Acces через DAO?
    #32475856
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
а ты чего хотел?
...
Рейтинг: 0 / 0
09.04.2004, 16:15
| Ответить | Цитировать | Написать  
Как узнать имена таблиц в Acces через DAO?
    #32475858
zeratul
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zeratul
Гость
>Я бы считал названия из системной таблички MSysObjects. ИМХО удобнее.

Примерно, как это выглядит? Надо открыть таблицу с таким именем, а её записи и будут названия моих таблиц? Я правильно понял?
...
Рейтинг: 0 / 0
09.04.2004, 16:16
| Ответить | Цитировать | Написать  
Как узнать имена таблиц в Acces через DAO?
    #32475867
zeratul
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zeratul
Гость
> а ты чего хотел?

А я хотел узнать названия таблиц в базе.
...
Рейтинг: 0 / 0
09.04.2004, 16:19
| Ответить | Цитировать | Написать  
Как узнать имена таблиц в Acces через DAO?
    #32475875
sposad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sposad
Участник
В этой табличке (она скрытая системная) есть поля Name и Type. Выбираешь те, где Type=1 и Name не начинается с MSys.
...
Рейтинг: 0 / 0
09.04.2004, 16:22
| Ответить | Цитировать | Написать  
Как узнать имена таблиц в Acces через DAO?
    #32475885
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
А я хотел узнать названия таблиц в базе
Ты это сделал. Чего еще надо-то?
...
Рейтинг: 0 / 0
09.04.2004, 16:26
| Ответить | Цитировать | Написать  
Как узнать имена таблиц в Acces через DAO?
    #32475900
zeratul
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zeratul
Гость
>В этой табличке (она скрытая системная) есть поля Name и Type. Выбираешь >те, где Type=1 и Name не начинается с MSys.

Спасибо, понял. Попробую если по-другому не получится.
...
Рейтинг: 0 / 0
09.04.2004, 16:32
| Ответить | Цитировать | Написать  
Как узнать имена таблиц в Acces через DAO?
    #32475903
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Просто в Аксессе есть юзерские таблицы и есть системные. Первым выдалось название системной таблицы MSysAccessObject.
...
Рейтинг: 0 / 0
09.04.2004, 16:33
| Ответить | Цитировать | Написать  
Как узнать имена таблиц в Acces через DAO?
    #32475906
zeratul
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zeratul
Гость
>Ты это сделал. Чего еще надо-то?

Я, наверно, торможу, но как мне кажется я не добился того чего хотел.
Ведь я не получил имя таблиц, (не системных), которае были в базе.
...
Рейтинг: 0 / 0
09.04.2004, 16:35
| Ответить | Цитировать | Написать  
Как узнать имена таблиц в Acces через DAO?
    #32475916
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
пилять...
тебя что, еще объяснить что такое цикл??? от 1 до ХХХ?
...
Рейтинг: 0 / 0
09.04.2004, 16:39
| Ответить | Цитировать | Написать  
Как узнать имена таблиц в Acces через DAO?
    #32475918
sposad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sposad
Участник
2 Владимир Саныч

Саныч, може я чего не понимаю, но смотрю на эти системные таблицы и не вижу таблицы с названием MSysAccessObject. Сейчас А97, может это в версиях попозже ?
...
Рейтинг: 0 / 0
09.04.2004, 16:40
| Ответить | Цитировать | Написать  
Как узнать имена таблиц в Acces через DAO?
    #32475938
zeratul
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zeratul
Гость
>пилять...
>тебя что, еще объяснить что такое цикл??? от 1 до ХХХ?

Всё, понял. Я почему-то был уверен что моя таблица будет первой.
Прогнал в цикле, всё нашлось.
Огромное спасибо всем ответившим. Вопрос решён!
...
Рейтинг: 0 / 0
09.04.2004, 16:48
| Ответить | Цитировать | Написать  
Как узнать имена таблиц в Acces через DAO?
    #32475939
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Только цикл не от 1, а от 0.
...
Рейтинг: 0 / 0
09.04.2004, 16:50
| Ответить | Цитировать | Написать  
Как узнать имена таблиц в Acces через DAO?
    #32475947
zeratul
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zeratul
Гость
>Саныч, може я чего не понимаю, но смотрю на эти системные таблицы и не >вижу таблицы с названием MSysAccessObject. Сейчас А97, может это в >версиях попозже ?

Возможно и так. В своей программе я создаю базу в формате Access 2000.
...
Рейтинг: 0 / 0
09.04.2004, 16:51
| Ответить | Цитировать | Написать  
Как узнать имена таблиц в Acces через DAO?
    #32475950
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
Только цикл не от 1, а от 0.
вырвал все волосы. в том числе и на голове.
...
Рейтинг: 0 / 0
09.04.2004, 16:53
| Ответить | Цитировать | Написать  
Как узнать имена таблиц в Acces через DAO?
    #32475958
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Все в порядке, 1 - это было для красного словца.
...
Рейтинг: 0 / 0
09.04.2004, 16:54
| Ответить | Цитировать | Написать  
Как узнать имена таблиц в Acces через DAO?
    #32475975
LBound
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LBound
Гость
авторТолько цикл не от 1, а от 0.


надежнее от лебонда до убонда :0).
Как-то раз напарывался на плавающую нижнюю границу в массиве. (но не вспомню, где). Сделал от 0 - ашипка по эл-ту 0. Сделал от 1 - ашипка (при другом обращении) по верхнему краю :0).

//ага, нашел - при юзании LDBUser_GetUsers из MSLDBUSR.DLL//
...
Рейтинг: 0 / 0
09.04.2004, 17:01
| Ответить | Цитировать | Написать  
Как узнать имена таблиц в Acces через DAO?
    #32475981
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
надежнее от лебонда до убонда :0).
еще один.
Не массив TableDefs. НЕ МАССИВ!
...
Рейтинг: 0 / 0
09.04.2004, 17:05
| Ответить | Цитировать | Написать  
Как узнать имена таблиц в Acces через DAO?
    #32475983
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
А разве у коллекций есть лебонд?
...
Рейтинг: 0 / 0
09.04.2004, 17:07
| Ответить | Цитировать | Написать  
Как узнать имена таблиц в Acces через DAO?
    #32475985
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Опппппоздал.
...
Рейтинг: 0 / 0
09.04.2004, 17:07
| Ответить | Цитировать | Написать  
Как узнать имена таблиц в Acces через DAO?
    #32476054
лябонда
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
лябонда
Гость
Ну дак про тебледефсы не спорю. Паспешил непрухой поделиться. Не вник. Но и на коллекшены тоже проруха быват:0):
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Public Function tCollection()
Dim tC As New Collection
    tC.Add  1 
    Debug.Print tC.Count
    On Error Resume Next
    Debug.Print  0 ; ; tC.Item( 0 )
    Debug.Print  1 ; ; tC.Item( 1 )
End Function

?tCollection
1
1 1

т.е. бывают "пральные" и "непральные" коллекции. Вот вшитые коллекции акса и Дао - "праильные" а объект VBA.коллекшн - кривой какой-то :0). Вот токо жалко, что лябонды для их нет.
...
Рейтинг: 0 / 0
09.04.2004, 17:51
| Ответить | Цитировать | Написать  
Как узнать имена таблиц в Acces через DAO?
    #32476068
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Кстати, эта процедура вполне годится для проверки, откуда нумеруется коллекция.

function MyLBound(c as collection)as integer
dim v as variant '(а может, object?)
on error resume next
v=c(0)
if err=0 then
MyLBound=0
exit function
endif
err=0
v=c(1)
if err=0 then
MyLBound=1
else
MyLBound=-1 '(значит, коллекция пустая)
endif
end function
...
Рейтинг: 0 / 0
09.04.2004, 17:58
| Ответить | Цитировать | Написать  
30 сообщений из 30, показаны все 2 страниц
  все  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как узнать имена таблиц в Acces через DAO?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=45&tid=1675439]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 186ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 56ms
get tp. blocked users:
 1ms
others: 249ms
total:  534ms
созд. / загр.: 534ms
x
x
Закрыть


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