Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Список таблиц дрогой базы  [new]
Vw
Member

Откуда: Самара
Сообщений: 2286
Как построить
подскажите...
18 авг 04, 13:58    [890509]     Ответить | Цитировать Сообщить модератору
 Re: Список таблиц дрогой базы  [new]
Serge Gavrilov
Member

Откуда:
Сообщений: 3248
    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
18 авг 04, 14:04    [890535]     Ответить | Цитировать Сообщить модератору
 Re: Список таблиц дрогой базы  [new]
Vw
Member

Откуда: Самара
Сообщений: 2286
Спасибо
А если база с апролем Куда пароль совать?

Set db = OpenDatabase("C:\MyDocs\ACCESS\bank.mdb")
18 авг 04, 14:08    [890554]     Ответить | Цитировать Сообщить модератору
 Re: Список таблиц дрогой базы  [new]
Serge Gavrilov
Member

Откуда:
Сообщений: 3248
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.
18 авг 04, 14:16    [890595]     Ответить | Цитировать Сообщить модератору
 Re: Список таблиц дрогой базы  [new]
Vw
Member

Откуда: Самара
Сообщений: 2286
Спасибочки..
18 авг 04, 14:19    [890603]     Ответить | Цитировать Сообщить модератору
 Re: Список таблиц дрогой базы  [new]
Galustov
Member

Откуда:
Сообщений: 369
смотри хелп по 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.
18 авг 04, 14:20    [890609]     Ответить | Цитировать Сообщить модератору
 Re: Список таблиц дрогой базы  [new]
Vw
Member

Откуда: Самара
Сообщений: 2286
А как ещё можно определить системная таблица
или нет
по приставке Msys
или через

 For Each tblLink In dbLinkTo.TableDefs
    
MsgBox tblLink.name & tblLink.Attributes
    Next
    dbLinkTo.Close
    Set dbLinkTo = Nothing

я правильно понимаю что у системных объектов tblLink.Attributes<>0
а обычные tblLink.Attributes=0
18 авг 04, 14:25    [890638]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить