将DBF表导入到SQLSERVER中的函数

文章作者 100test 发表时间 2011:03:24 19:52:08
来源 100Test.Com百考试题网

　　给大家一个自已写的将DBF表导入到SQL SERVER数据库中的函数
　　我一直在我的程序中用，方便不少
　　请多多指都教，有什么问题可以回帖或邮[email protected]
　　连接句柄为CON，可以调用本函数之前执行如下语句CON=SQLSTRINGCONNECT("DRIVER=SQL SERVER.SERVER=(LOCAL).UID=SA.PWD=.DATABASE=你的数据库名")
　　***dbftosql()

　　PROCEDURE DBFTOSQL
　　PARA MDBF
　　LOCAL I,MFIELD,MTYPE,MCOLUMN,MSQLTYPE,MLEN,MSQL1,MSQL2
　　MFIELD=
　　MTYPE=
　　MCOLUMN=
　　MSQLTYPE=
　　MLEN=
　　MSQL1=
　　MSQL2=
　　IF !USED(MDBF)
　　USE