给大家一个自已写的将DBF表导入到SQL SERVER数据库中的函数
我一直在我的程序中用,方便不少
请多多指都教,有什么问题可以回帖或邮trywell@sohu.com
连接句柄为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 &MDBF
ENDI
SELE &MDBF
I=1
DO WHILE !EMPTY(FIELD(I))
MFIELD=FIELD(I)
MTYPE=TYPE(MFIELD)
DO CASE
CASE UPPER(TYPE(MFIELD))='C'
MSQLTYPE='CHAR'
CASE UPPER(TYPE(MFIELD))='Y'
MSQLTYPE='MONEY'
CASE UPPER(TYPE(MFIELD))='D'
MSQLTYPE='DATETIME'
CASE UPPER(TYPE(MFIELD))='T'
MSQLTYPE='DATETIME'
CASE UPPER(TYPE(MFIELD))='B'
MSQLTYPE='FLOAT'
CASE UPPER(TYPE(MFIELD))='F'
MSQLTYPE='FLOAT'
CASE UPPER(TYPE(MFIELD))='G'
MSQLTYPE='IMAGE'
CASE UPPER(TYPE(MFIELD))='I'
MSQLTYPE='INT'
CASE UPPER(TYPE(MFIELD))='L'
MSQLTYPE='BIT'
CASE UPPER(TYPE(MFIELD))='M'
MSQLTYPE='TEXT'
CASE UPPER(TYPE(MFIELD))='N'
MSQLTYPE='FLOAT'
ENDCASE
IF 'C'$MTYPE
MLEN='('+ALLT(STR(LEN(&MFIELD)))+')'
ELSE
MLEN=''
ENDI
IF EMPTY(MCOLUMN)
MCOLUMN=FIELD(I)+SPACE(1)+ALLT(MSQLTYPE)+MLEN
ELSE
MCOLUMN=MCOLUMN+','+FIELD(I)+SPACE(1)+ALLT(MSQLTYPE)+MLEN
ENDI
IF EMPTY(MSQL1)
MSQL1=FIELD(I)
ELSE
MSQL1=MSQL1+','+FIELD(I)
ENDI
IF EMPTY(MSQL2)
MSQL2='?'+FIELD(I)
ELSE
MSQL2=MSQL2+',?'+FIELD(I)
ENDI
I=I+1
ENDD
MSQL='CREATE TABLE '+MDBF+SPACE(1)+'('+MCOLUMN+')'
IF SQLEXEC(CON,MSQL)=1
ENDI
IF RECCOUNT()>0
GO TOP
DO WHILE !EOF()
I=1
DO WHILE !EMPTY(FIELD(I))
XX=FIELD(I)
IF XX=.NULL.
REPL &XX WITH ''
ENDI
I=I+1
ENDD
MSQL='INSERT INTO '+MDBF+SPACE(1)+'('+MSQL1+')'+SPACE(1)+'VALUES ('+MSQL2+')'
IF SQLEXEC(CON,MSQL)=1
ENDI
SKIP
ENDD
ENDI
USE IN &MDBF
RETU
① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件,版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源:我考网",违者本网将依法追究责任;
② 本网部分稿件来源于网络,任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益,应该及时向我考网书面反馈,并提供身份证明、权属证明及详细侵权情况证明,我考网在收到上述法律文件后,将会尽快移除被控侵权内容。