Как определить свойства таблицы

megasky

Дата: 21.11.2006 17:48:48

Привет.
Подскажите как программно определить свойства таблицы:
- источник данных (имя базы данных, путь к ней);
- название самой таблицы.

Заранее спасибо...

BULK INSERT

Дата: 21.11.2006 18:01:38

megasky

не имеются ли в виду прилинкованные таблицы?

Student007x

Дата: 21.11.2006 18:01:59

? CurrentDb.TableDefs("your_table").Name

BULK INSERT

Дата: 21.11.2006 18:05:01

Student007x

? CurrentDb.TableDefs("your_table").Name

класс!!!

megasky

Дата: 21.11.2006 18:07:12

Пардон, что не сказал сразу...
Именно прилинкованые таблицы, имеется ввиду...

osmor

Дата: 21.11.2006 18:33:09

Public Sub ADOXListIndexTbl(strTblName As String)
Dim adoxCat As ADOX.Catalog
Dim adoxTbl As ADOX.Table
Dim adoxProp As ADOX.Property

Set adoxCat = New ADOX.Catalog
adoxCat.ActiveConnection = CurrentProject.Connection

Set adoxTbl = adoxCat.Tables(strTblName)
For Each adoxProp In adoxTbl.Properties
    With adoxProp
        
        Debug.Print .Name, .Value
        
    End With
Next

End Sub

список свойств для указанной таблицы
требуется ссылка на ADOX