读书人

请教老师 怎样测定二个数据库的结构是

发布时间: 2012-02-03 22:02:47 作者: rapoo

请问老师 怎样测定二个数据库的结构是否一致与否呢?
请问老师 怎样测定二个数据库的结构是否一致与否呢?应该用什么语句和函数啊?

[解决办法]

VB code
如何判断两个dbf文件的结构是否完全相同?--------------------------  *判断 表1 和 表2 的结构是不是完全相同CompareTableStructure('表1','表2')FUNCTION CompareTableStructure    LPARAMETERS lcTable1,lcTable2    CLOSE DATABASES    USE (lcTable1) IN 1    lnFieldsSum1=AFIELDS(Stru1,1)    USE (lcTable2) IN 2    lnFieldsSum2=AFIELDS(Stru2,2)    CLOSE DATABASES    TF=0    IF lnFieldsSum1!=lnFieldsSum2        MESSAGEBOX("结构不相同!",64,'信息提示')        RETURN    ENDIF    FOR I=1 TO lnFieldsSum1        FOR J=1 TO 15            IF Stru1(I,J)==Stru2(I,J)                TF=0            ELSE                MESSAGEBOX("结构不相同!",64,'信息提示')                TF=1                EXIT            ENDIF        ENDFOR        IF TF=1            EXIT        ENDIF    ENDFOR    IF TF=0        MESSAGEBOX("结构相同!",64,'信息提示')    ENDIFENDFUNC 

读书人网 >VFP

热点推荐