ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Список таблиц дрогой базы
7 сообщений из 7, страница 1 из 1
Список таблиц дрогой базы
    #32654771
Фотография Vw
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vw
Участник
Как построить
подскажите...
...
Рейтинг: 0 / 0
18.08.2004, 13:58:29
| Ответить | Цитировать | Написать  
Список таблиц дрогой базы
    #32654787
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serge Gavrilov
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
    Dim db As database, td As TableDef
    Set db = OpenDatabase("C:\MyDocs\ACCESS\bank.mdb")
    For Each td In db.TableDefs
        Debug.Print td.name
    Next
    db.Close
    Set db = Nothing
...
Рейтинг: 0 / 0
18.08.2004, 14:04:28
| Ответить | Цитировать | Написать  
Список таблиц дрогой базы
    #32654798
Фотография Vw
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vw
Участник
Спасибо
А если база с апролем Куда пароль совать?

Set db = OpenDatabase("C:\MyDocs\ACCESS\bank.mdb")
...
Рейтинг: 0 / 0
18.08.2004, 14:08:07
| Ответить | Цитировать | Написать  
Список таблиц дрогой базы
    #32654815
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serge Gavrilov
Участник
VwСпасибо
А если база с апролем Куда пароль совать?

Set db = OpenDatabase("C:\MyDocs\ACCESS\bank.mdb")

Set db = OpenDatabase("C:\MyDocs\ACCESS\bank.mdb", True, False, ";pwd=pass")

Help:
You must supply the options and read-only arguments to supply a source string.
...
Рейтинг: 0 / 0
18.08.2004, 14:16:57
| Ответить | Цитировать | Написать  
Список таблиц дрогой базы
    #32654819
Фотография Vw
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vw
Участник
Спасибочки..
...
Рейтинг: 0 / 0
18.08.2004, 14:19:26
| Ответить | Цитировать | Написать  
Список таблиц дрогой базы
    #32654824
Galustov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Galustov
Гость
смотри хелп по OpenDatabase

Help
Set database = workspace.OpenDatabase (dbname, options, read-only, connect)

The OpenDatabase method syntax has these parts.

Part Description
database An object variable that represents the Database object that you want to open.
workspace Optional. An object variable that represents the existing Workspace object that will contain the database. If you don't include a value for workspace, OpenDatabase uses the default workspace.
dbname A String that is the name of an existing Microsoft Jet database file, or the data source name (DSN) of an ODBC data source. See the Name property for more information about setting this value.
options Optional. A Variant that sets various options for the database, as specified in Settings.
read-only Optional. A Variant (Boolean subtype) value that is True if you want to open the database with read-only access, or False (default) if you want to open the database with read/write access.
connect Optional. A Variant (String subtype) that specifies various connection information, including passwords.
...
Рейтинг: 0 / 0
18.08.2004, 14:20:51
| Ответить | Цитировать | Написать  
Список таблиц дрогой базы
    #32654841
Фотография Vw
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vw
Участник
А как ещё можно определить системная таблица
или нет
по приставке Msys
или через

Код: plaintext
1.
2.
3.
4.
5.
 For Each tblLink In dbLinkTo.TableDefs
    
MsgBox tblLink.name & tblLink.Attributes
    Next
    dbLinkTo.Close
    Set dbLinkTo = Nothing

я правильно понимаю что у системных объектов tblLink.Attributes<>0
а обычные tblLink.Attributes=0
...
Рейтинг: 0 / 0
18.08.2004, 14:25:32
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Список таблиц дрогой базы
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32654771&tid=1672375]:
 0ms
get settings:
 6ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 52ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 36ms
get tp. blocked users:
 1ms
others: 220ms
total:  340ms
созд. / загр.: 340ms
x
x
Закрыть


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