Foxpro DBF数据库转换成SQL Server (3)
2015-06-22 01:00
导读：storetodbf_name dbf_name待转换的.dbf数据库 storetosql_db sql_db目的SQL数据库 storetosql_com sql_com向SQLServer提交的命令 storetosql_title sql_title为向SQLServer提交命令字头 s
store "" to dbf_name
&& dbf_name 待转换的.dbf数据库
store "" to sql_db
&& sql_db目的SQL数据库
store "" to sql_com
&& sql_com向SQL Server提交的命令
store "" to sql_title
&& sql_title 为向SQL Server提交命令字头
store 0 to handle
&& handle 为Foxpro与SQL Server连接的标识
store 0 to success
&& success为命令提交成功与否的标识
set libr to fpsql.fll
@2,20 say "请输入要转换的数据库(dbf)名：" get dbf_name
@3,20 say "请输入目的SQL数据库名：" get sql_db
read
dbf_name=allt(dbf_name)
sql_db=allt(sql_db)
handle=dbconnect(sql_db, "sa","")
&& 建立Foxpro与SQL Server连接
if handle>0 && 若连接成功则
use &dbf_name as op_dbf in 0
&&以op_dbf为别名打开待转换数据库
sele op_dbf
copy to db_stru stru exte
&& 将其数据结构拷贝生成db_stru库
use db_stru in 0
sele db_stru
goto top
sql_com="creat table "+dbf_name+"( "
do while .not. eof()
sql_com=sql_com+field_name+" "
do case
case field_type="C"
sql_com=sql_com+"char ("+；
allt(str(field_len))+ ")"
（科教作文网http://zw.ΝsΕAc.Com编辑整理）
case field_type="N"
