Foxpro DBF数据库转换成SQL Server (6)
2015-06-22 01:00
导读：endif enddo seleop_dbf gototop dowhile.not.eof() sql_com=sql_title seledb_stru gototop dowhile.not.eof() fname=field_name docase casefield_type=C sql_com=sql_com+fname casefield_type=N sql_com=sql_com
endif
enddo
sele op_dbf
goto top
do while .not.eof()
sql_com=sql_title
sele db_stru
goto top
do while .not.eof()
fname=field_name
do case
case field_type="C"
sql_com=sql_com+&fname
case field_type="N"
sql_com=sql_com+"convert(int(8),'"+str(*fname)+"')"
case field_type="M"
sql_com=sql_com+'null'
case field_type="G"
sql_com=sql_com+'null'
endcase
skip
if .not.eof()
sql_com=sql_com+"','"
else
sql_com=aql_com+"')"
endif
enddo
success=dbexec(handle,sql_com)
sele op_dbf
skip
enddo
else && 若连接不成功
wait wind "对不起，输入参数错误，无法连接SQL Server"
clear read
retu
endif
使用上述方法，只要知道一些简单的SQL Server操作及Foxpro编程便可实现将.dbf数据转换到SQL Server。运行程序然后输入待转换的数据库名，及目的数据库名就可实现转换，快捷方便。但不足的是，该方法在原数据库.dbf含有Memo、General字段时，转换就比较困难，目前尚没有找到有效的解决方法。
4、用第三方数据库软件Access进行转换
（科教论文网 lw.NsEac.com编辑整理）
