雪山飞狐ol:请问老师 怎样测定二个数据库的结构是否一致与否呢?
来源:百度文库 编辑:九乡新闻网 时间:2024/05/06 03:55:00
如何判断两个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,'信息提示')
ENDIF
ENDFUNC
--------------------------------------------------------------
*判断 表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,'信息提示')
ENDIF
ENDFUNC
请问老师 怎样测定二个数据库的结构是否一致与否呢?
未来顶尖职业需要怎样的能力结构呢?
经络通畅与否测定红宝书
请问哪个品种的蛋鸡产蛋量高呢?养几日龄开产呢?产蛋龄及产量呢?成本料比怎样?
基于数据字典的通用查询系统(二)数据库组成结构的分析
神童心目中理想的老师该是怎样的呢?
请问:K线图里的技术指标参数是否有必要修改,如果要,那要怎样改才好?
ORACLE服务器怎样启动多个数据库?
算一算:你的心理年龄和实际年龄是否一致?
怎样的教学是优质教学自己是否有这种能力呢
怎样测定阴茎伸缩性?
怎样测定自己气质
如何远程管理数据库(二)数据库的还原与备份
请问房地产是怎样经营运作的?
请问cfgmgr具体是怎么认出设备来的呢?
少林禅医:经络通畅与否测定红宝书
请问许建宏 老师?
请问如何判断家具是否为纯实木的家具?
引用 怎样管学生,就是做个什么样的老师
怎样管学生,就是做个什么样的老师
引用 怎样管学生,就是做个什么样的老师
周维善院士等讲述青蒿素结构的测定与全合成经过
EXCEL中SBUTOTAL公式的第一个参数1-11代表的是什么汇总参数呢?请问该公式的具...
activiti_5.2 数据库表结构