Мне нужно как-то извлечь все отношения между родительскими/дочерними таблицами. Есть ли способ сделать это с помощью объекта DBC?VFP 9.0 как извлечь все отношения таблицы из объекта DBC
1
A
ответ
4
К сожалению, ребята, я забыл его на протяжении многих лет, но после того, как некоторые, думая, что пришел ко мне ...
OPEN DATABASE ABC
=ADBOBJECTS(ga_Connections, "CONNECTION")
=ADBOBJECTS(ga_Relations, "RELATION")
=ADBOBJECTS(ga_Views, "VIEW")
=ADBOBJECTS(ga_Tables, "TABLE")
CLOSE DATABASES
Глобальный массив ga_Relations
является N х 5 массив с
Родительский стол, Детский стол, Родительский ключ, Детский ключ, ячейка пустой строки
Вы можете создать курсор и вставить в него массив, как минимумы:
CREATE CURSOR dbRelat (Parent_Table C(40),Child_Table C(40),Parent_Key C(40),Child_key C(40),Spacer C(1))
TRY
INSERT INTO dbRelat FROM ARRAY ga_Relations
CATCH
MESSAGEBOX("No Relations in this DataBase!",48,1000)
ENDTRY
И, конечно, вы можете сделать то же самое для таблиц, представлений и ПОДКЛЮЧЕНИЙ ...
Надеется, что это полезно для других ...
DK