связанные таблицы в Access
Релиб
Форумы       Участники    Календарь    Кто он-лайн?
Добро пожаловать, гость ( Вход | Регистрация )
        



связанные таблицы в Access Expand / Collapse
Автор
Сообщение
11.01.2002 9:09
Supreme Being

Supreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme Being

участник
Last Login: 22.06.2004 23:49
Сообщ.: 126, Visits: 1 387
Помогите,пож-ста, как в Access можно посмотреть, с каким внешним файлом связана связанная в Access таблица?
Сообщ. #738897
11.01.2002 9:16
Supreme Being

Supreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme Being

участник
Last Login: 25.05.2004 16:57
Сообщ.: 604, Visits: 6 656
Кодом или ручками? Да! Версию укажи.
Сообщ. #738899
11.01.2002 9:29
Supreme Being

Supreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme Being

участник
Last Login: 22.06.2004 23:49
Сообщ.: 126, Visits: 1 387
и так и так,если не сложно.Access 97
Сообщ. #738900
11.01.2002 9:58
Supreme Being

Supreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme Being

участник
Last Login: 25.05.2004 16:57
Сообщ.: 604, Visits: 6 656
Руками - меню Tools -> Add-Ins -> Linked Table Manager
Кодом - прочти помощь по свойству Connect объекта TableDef. Для примера можешь поиграть с таким кодом:

Sub test()
Dim dbf As DATABASE
Set dbf = CurrentDb

Dim tdf As TableDef
Set tdf = dbf.TableDefs("имя_таблицы")
Debug.Print tdf.Connect
End Sub



Результат работы:
;DATABASE=путь\имя_файла

Режем все до знака "=" и в путь!

Удачи!
Сообщ. #738905
22.01.2002 12:48
новичок

новичокновичокновичокновичокновичокновичокновичокновичок

участник
Last Login: 31.03.2003 16:49
Сообщ.: 8, Visits: 89
SELECT Database, Connect, ForeignName, Name
FROM MSysObjects
WHERE Connect Is Not Null;

поле Database - файл (с путем) (null для DSN). Поле connect - тип файла или строка подключения.

В коде - OpenRecordset(strSQL). где напр.

strSQl="SELECT Database, Connect, ForeignName, Name " _
& " FROM MSysObjects " _
& " WHERE (Connect Is Not Null) And (Name = """ & strName & """ ;"
Сообщ. #739674
« пред. тема | след. тема »


Эту тему читают Expand / Collapse
Посетители: 0 (0 гостей, 0 участников, 0 скрыт.участников)
Сейчас нет участников, просматривающих тему.
Модераторы: Alexey, boombastik, bazile, pl

Время GMT +3:00, Сейчас 3:37