Foxpro DBF数据库转换成SQL Server (5)
2015-06-22 01:00
导读:clear storetodbf_name dbf_name待转换的.dbf数据库 storetosql_db sql_db目的SQL数据库 storetosql_com sql_com向SQLServer提交的命令 storetofname fname字段名 store0tohandle handleFoxpro与
clear
store "" to dbf_name
&&dbf_name待转换的.dbf数据库
store "" to sql_db
&&sql_db目的SQL数据库
store "" to sql_com
&&sql_com向SQL Server提交的命令
store "" to fname
&&fname字段名
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_title="insert into "+dbf_name+" ( "
do while .not.eof()
sql_title=sql_title+field_name
skip
if .not.eof()
sql_title=sql_title+","
else
sql_title=sql_title+" ) values ('"