我需要以某种方式提取父/子表之间的所有关系。有没有办法使用DBC对象来做到这一点？
最佳答案
抱歉，我多年来忘记了它，但经过一番思考，我想到了...
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
当然，您可以对表，视图和连接进行相同的操作...
希望对其他人有用...
DK