Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Список таблиц?  [new]
Q2
Guest
Доброго всем дня!
Насколько может быть добрым ПЯТНИЦА, 13
Подскажите, как получить список таблиц базы mdb с путями прилинкованности (если таблица связанная) ?
Возможно ли такое сделать не очень сложным способом?
С-пасибо.
13 авг 04, 12:52    [880091]     Ответить | Цитировать Сообщить модератору
 Re: Список таблиц?  [new]
Daf
Member

Откуда: Москва
Сообщений: 1916
Все это можно посмотреть в системной таблице MSysObjects.
13 авг 04, 12:57    [880118]     Ответить | Цитировать Сообщить модератору
 Re: Список таблиц?  [new]
Alexey Sh
Member

Откуда: SPB
Сообщений: 1930
    Dim qd As TableDefs
    Set qd = CurrentDb().TableDefs
    Dim A As TableDef
    For Each A In qd
        If A.Attributes And dbAttachedTable Then
              Debug.Print A.Name, A.connect
        End If
    Next

детали - в хелпе
13 авг 04, 13:04    [880164]     Ответить | Цитировать Сообщить модератору
 Re: Список таблиц?  [new]
Q2
Guest
Спасибо.
Daf
Все это можно посмотреть в системной таблице MSysObjects.


дополнение к сказанному:
связанные таблицы : Type=6, Flags=2097152
Таблицы: Type=1, Flags=0
Скрытые Таблицы: Type=1, Flags=8

Остальное попробую.
13 авг 04, 13:25    [880252]     Ответить | Цитировать Сообщить модератору
 Re: Список таблиц?  [new]
kedzo
Member

Откуда: Москва
Сообщений: 964
через ADOX

Public Sub LinkedTablesInfo()
On Error GoTo er
   Dim cat As ADOX.Catalog
   Dim tbl As ADOX.Table
 
   Set cat = New ADOX.Catalog
   Set tbl = New ADOX.Table
 
   ' Open the catalog.
   cat.ActiveConnection = CurrentProject.Connection
   For Each tbl In cat.Tables
      If tbl.Type = "LINK" Then
         Debug.Print tbl.NAME
         Debug.Print tbl.Properties("Jet OLEDB:Link Datasource")
         Debug.Print tbl.Properties("Jet OLEDB:Remote Table Name") & vbNewLine
      End If
   Next


er_exit:
    Exit Sub
    
er:
    MsgBox err.Description
    Resume er_exit
End Sub
13 авг 04, 13:32    [880277]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить