2015-01-06 1 views

ответ

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

 Смежные вопросы

  • Нет связанных вопросов^_^