生成数据库中表间关系名

其它问题 | 2018-08-22 22:29:01 | 阅读 131 次 | 评论(0)
* 生成数据库中表间关系名
CLEAR
CLOSE DATABASES ALL 
SET SAFETY OFF 
CREATE TABLE T_Rela (父表 c(20),子表 c(20),父表索标 c(20),子表索标 c(20))
OPEN DATABASE Mdf\Comm_Dbf
nRelas=ADBOBJECTS(aRela,"RELATION")
=ASORT(aRela)
FOR i=1 TO nRelas
    INSERT INTO T_Rela VALUES (aRela[i,2],aRela[i,1],aRela[i,4],aRela[i,3])
ENDFOR 
BROWSE 
文章评论,共0条
游客请输入验证码
浏览189318次
最新评论