2008年09月07日星期天 [路日]　[旧版首页]

我不介意你恨我	啵一个	一首歌	真爱地图	相反词	来跳舞吧
爱在现实面前	雨霖铃	树叶的崇拜	日不落	完美故事	冰冰
快乐童话	嘟嘟娃娃	路太弯	差一点	让我看着你	客串情人

当前位置：首页 >> VFP专区 >> 获取数据库中表字段结构

在线连续剧免费播放: 五星大饭店奋斗血色浪漫家有儿女荣归大明天子连城诀

获取数据库中表字段结构

作者:　发布时间:2005-03-18 >>　 -收藏本页-

　　在系统开发过程中，经常会查看数据库中那些表有那些字段，要是获取一个表的结构，可以采用display structure to命令直接获取，但是要是想一下子获取某个数据库中所有表的结构就非要自己编个程序来实现了，下面就是该程序代码，获取后的文本文件放置在和数据库一样的目录下，文件名为数据库文件名一致。
　　当然，如果自己有兴趣，可以稍加改造，直接生成WORD文档就更好了！

·添加到565key网摘 ·添加到vivi收藏 ·添加到网摘中国

·相关代码：

*!*   根据数据库获取表结构说明文件
CLOSE TABLES ALL
IF EMPTY(DBC())   &&如果没有打开的当前数据库
   m.g_cFullDatabase = GETFILE("DBC", OPEN_DATABASE_LOC, GETFILE_GEN_LOC, 0)
   IF EMPTY(m.g_cFullDatabase)
      =MESSAGEBOX(NO_DATABASE_IN_USE_LOC)
      RETURN .F.
   ENDIF
   OPEN DATABASE (m.g_cFullDatabase)
ENDIF
m.g_cDataBase = DBC()
m.g_OutputFileName = FORCEEXT(m.g_cDataBase, "TXT")
? m.g_OutputFileName
STRTOFILE("数据库" + JUSTSTEM(m.g_cDataBase) + "表结构说明" + CRLF, m.g_OutputFileName)
m.nTotal_Tables = ADBOBJECTS(aAll_Tables, 'TABLE')
IF m.nTotal_Tables <= 0
   =MESSAGEBOX(NO_TABLE_LOC)
   RETURN .F.
ENDIF
FOR m.nLoop = 1 to m.nTotal_Tables
   do GetTable with aAll_Tables(m.nLoop), m.g_OutputFileName
ENDFOR
wait window "OK" nowait
RETURN .T.
*!*   根据表名输出结构,结构为
*!*   字段名   格式  说明  备注
*!*   
PROCEDURE GetTable 
LPARAMETERS m.cTableName, m.cOutputFileName
STRTOFILE("", m.cOutputFileName + CRLF, .t.)
STRTOFILE("表：" + m.cTableName + CRLF, m.cOutputFileName, .t.)
STRTOFILE(HEADLINE_LOC + CRLF, m.cOutputFileName, .t.)
USE (m.cTableName) EXCLUSIVE
m.nFieldsCount = AFIELDS(aAllFields)
FOR m.nInner_Loop = 1 TO m.nFieldsCount
   lcFieldLine = aAllFields[m.nInner_Loop, 1] + CHTAB + aAllFields[m.nInner_Loop, 2]
   DO CASE
   CASE aAllFields[m.nInner_Loop, 2] == "C"
      lcFieldLine = lcFieldLine + "(" + ALLTRIM(STR(aAllFields[m.nInner_Loop, 3])) + ")"
   CASE aAllFields[m.nInner_Loop, 2] $ "NF"
      lcFieldLine = lcFieldLine + "(" + ALLTRIM(STR(aAllFields[m.nInner_Loop, 3])) + ;
         "," + ALLTRIM(STR(aAllFields[m.nInner_Loop, 4])) + ")"
   ENDCASE
   m.cFieldAlias = m.cTableName + "."+ aAllFields[m.nInner_Loop, 1]
   lcFieldLine = lcFieldLine + CHTAB  + DBGETPROP(m.cFieldAlias, "Field", "Caption") + CHTAB 
   STRTOFILE(lcFieldLine + CRLF, m.cOutputFileName, .t.)
ENDFOR
ENDPROC