如何列出正在进行的所有数据库 - 4gl 9.1 D？

Question

我试图让所有数据库像DataDictionary中，但以编程方式！那可能吗？

Answer 1

DEFINE VARIABLE iDatabase AS INTEGER NO-UNDO. 

REPEAT iDatabase = 1 TO NUM-DBS: 
    DISPLAY LDBNAME(iDatabase) . 
END. 

LDBNAME返回数据库的逻辑名称。您也可以使用PDBNAME来获取物理名称。

有关表，索引等的信息可以从虚拟系统表（VST）表（以下划线开头）检索。示例可以在“进度知识库”中找到（例如条目P8005）。