powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как узнать имена таблиц в Acces через DAO?
5 сообщений из 30, страница 2 из 2
Как узнать имена таблиц в Acces через DAO?
    #32475981
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
надежнее от лебонда до убонда :0).
еще один.
Не массив TableDefs. НЕ МАССИВ!
...
Рейтинг: 0 / 0
Как узнать имена таблиц в Acces через DAO?
    #32475983
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
А разве у коллекций есть лебонд?
...
Рейтинг: 0 / 0
Как узнать имена таблиц в Acces через DAO?
    #32475985
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Опппппоздал.
...
Рейтинг: 0 / 0
Как узнать имена таблиц в 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
Как узнать имена таблиц в 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
5 сообщений из 30, страница 2 из 2
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как узнать имена таблиц в Acces через DAO?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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