把vfp数据表导入到mysql数据库
之前论坛里有人问如何将vfp数据库升迁至mysql数据库，前一段时间闲着没事，就去翻看了一下资料，写了这个这个程序。早就想发布在论坛里，只可惜这个论坛已经半死不活，经常上不了线，没办法，就试着在微信公众号里发布，正好自己也有了解微信公众号的打算，以后自己再写个类控制自己的微信公众号，感兴趣的朋友可以关注我的公众号，互相交流。废话不说，奉上代码吧~
程序代码：
*********************mysqlgen.prg***********************
PARAMETERS calias
IF PARAMETERS()=0
calias=GETFILE([dbf])
IF !EMPTY(calias)
cmd=[use ]+[']+calias+[']
&cmd
ELSE
RETURN .f.
ENDIF
ENDIF
IF JUSTFNAME(calias)!=ALIAS()
cmd=[USE ]+[']+calias +['] +[ IN 0]
&cmd
SELECT &calias
ENDIF
COPY STRUCTURE EXTENDED TO dbfstruct
fname=ALIAS()
********************确定包含索引的field名******************
*************以确定是否有PRIMARY KEY | UNIQUE *************
ncount=TAGCOUNT()
cunique=[]
DO CASE
CASE ncount=1
cprimarykey=KEY(CDX(1),1)
CASE ncount>1
cprimarykey=KEY(CDX(1),1)
FOR i =2 TO ncount
cnuique=cunique+[ ]+KEY(CDX(1),i)
ENDFOR
OTHERWISE
cprimarykey=[]
ENDCASE
USE IN SELECT(0) &&可以关闭calias了
USE dbfstruct
*!*BROWSE
csql=[create TABLE ] +fname+CHR(13)
n=RECCOUNT()
DIMENSION field_definition[n]
STORE [] TO field_definition
csql=csql+CHR(9)+[(]
FOR i=1 TO n
GOTO i
DO CASE &&确定type定义脚本
CASE field_type=[I] && 整数
ctype=[INT ]
CASE field_type=[N] AND field_dec=0 && 整数
ctype=[INT]+[(]+transf(field_len)+[) ]
CASE field_type=[N] AND field_dec>0 && 小数
ctype=[DECIMAL(]+transf(field_len)+[,]+；
TRANSFORM(field_dec)+[) ]
CASE field_type=[B] &&双精度
ctype=DOUBLE(]+transf(field_len)+；
[,]+TRANSFORM(field_dec)+[) ]
CASE field_type=[F] &&浮点型
ctype=[FLOAT(]+transf(field_len)+；
[,]+TRANSFORM(field_dec)+[) ]
CASE field_type=[C] &&定长字符
ctype=[CHAR(]+transf(field_len)+[) ]
CASE INLIST(field_type,[V],[M]) &&变长字符串
ctype=[VARCHAR(1024)]
CASE INLIST(field_type,[Q],[G],[W]) &&二进制变长大字符串
ctype=[MEDIUMBLOB ]
CASE field_type=[D] &&日期
ctype=[DATE ]
CASE field_type=[T] &&日期时间
ctype=[DATETIME ]
CASE field_type=[Y] &&货币型
ctype=[DECIMAL(8,4) ]
CASE field_type=[L] &&逻辑型
ctype=[BOOL ]
ENDCASE
DO CASE &&确定索引脚本
CASE !EMPTY(cprimarykey) AND ；
ALLTRIM(UPPER(field_name))=UPPER(cprimarykey)
cindexscript=[PRIMARY KEY ]
CASE !EMPTY(cunique) AND；
(ALLTRIM(UPPER(field_name)) $ UPPER(cunique))
cindexscript=[INDEX INDEX_]+ALLTRIM(FIELD_NAME)+[ ]
OTHERWISE
cindexscript=[]
ENDCASE
***********这里放入每个field的定义*************
*!*create_difinition[1]=
*!*create_difinition[2]=
*!*...
*!*create_difinition[n]=
field_definition[i]=allt(field_name)+[ ]+ctype+；
[ ]+iif(field_null=.t.,[NULL ],[NOT NULL ]);
+iif(field_step>0,[AUTOINC NEXTVALUE ]；
+transf(field_next)+[ STEP ]+；
transf(field_step),[])+iif(empty(field_defa),[],；
[DEFAULT ]+ICASE(ALLTRIM(FIELD_DEFA)=[.T.],；
[TRUE],ALLTRIM(FIELD_DEFA)=[.F.],[FALSE],；
allt(field_defa)))+[ ]+cindexscript+；
IIF(i=n,[)],[,]+CHR(13)+CHR(9))
csql=csql+field_definition[i]
***********************************************
ENDFOR
*!* 方便查看生成的sql脚本，完成后注释掉这两句就可以了
STRTOFILE(csql,"csql.txt")
MODIFY FILE csql.txt
*!* *****************************
文章连接：https://mp.weixin.
