首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 数据库 > VFP >

请教老师 怎样测定二个数据库的结构是否一致与否呢

2012-02-03 
请问老师 怎样测定二个数据库的结构是否一致与否呢?请问老师 怎样测定二个数据库的结构是否一致与否呢?应

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

[解决办法]

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 

热点排行