visual-foxpro - VFP 9.0如何从DBC对象中提取所有表关系

Question

我需要以某种方式提取父/子表之间的所有关系。有没有办法使用 DBC 对象来做到这一点？

Answer 1

抱歉大家，我多年来都忘记了，但经过一番思考后我想到了......

OPEN DATABASE ABC
=ADBOBJECTS(ga_Connections, "CONNECTION")
=ADBOBJECTS(ga_Relations, "RELATION")
=ADBOBJECTS(ga_Views, "VIEW")
=ADBOBJECTS(ga_Tables, "TABLE")
CLOSE DATABASES

全局数组 ga_Relations 是一个 N x 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 

当然，您可以对表、 View 和连接执行相同的操作...

希望对其他人有用...

DK