Foxpro DBF数据库转换成SQL Server 6.5表的几种方法

Foxpro DBF数据库转换成SQL Server 6.5表的几种方法

摘要：本文主要介绍用SQL Server bcp、Foxpro编程、Access等方法将.dbf数据库转换到SQL Server表的方法。关键词：Xbase DBF SQL Server 数据库 转换1、前言当今，数据库联网实现数据共享已经成为信息系统建设中一个迅速发展的潮流。利用SQL Server、Oracal、Sybase等客户机/服务器（Client/Server）体系结构的数据库系统进行信息系统的开发、更新改造已成为当前一大趋势。而Dbase、Foxbase、Foxpro是我国近年应用较为广泛的数据库开发软件，许多单位、部门多年来积累了大量的宝贵的数据资料，这些部门在进行计算机信息系统改造、更新的同时，面临如何继承大量历史数据的问题，本文介绍三种将DBF数据转换成SQL Server表的方法。2、利用SQL Server所提供的块拷贝实用程序（bcp）转换实用程序bcp.exe可从服务器SQL目录下的BINN子目录下获得。2.1、bcp的 命令格式及主要参数bcp [[database_name.]owner.] table_name {in|out} datafile [/m maxerror ][/f formatfile] [/e errfile] [/n] [/c] [/t] field_term] [/r row_term] [/U login_ID] [/P password] [/S servername] [/v version] [/a packet_size]主要参数：database_name    数据库名in|out        in从文件到数据库表的拷贝。            out从数据库表到文件拷贝。datafile         操作系统文件的路径。该路径的长度可以是1－255个字符。也可指明磁盘驱动器名字。/C             用字符类型作为缺省值执行拷贝操作。/u login_ID    指定登录标识符。/P password    允许指定一个口令。/S servername    允许用户指定连接到哪个SQL Server2.2、实现转换的具体方法我们以Foxpro的数据库结构的单位职工库（zg.dbf）为例，进行数据转换。其数据结构为：字段名 类型 字段长度 小数点位数 字段内容bh C 4 职工编号xm C 8 职工姓名xb C 2 性别nl N 2 0 年龄zw C 10 职务gzsj D 参加工作时间jl M 简历zp G 照片实现步骤：(1)、启动服务器，进入Window NT，SQL Server 6.0，打开SQL Enterprise Manager为单位职工库创建一个数据库设备zg.dat，然后在该设备上建立zg数据库及表(Table)，表的数据结构要与zg.dbf的数据结构一致。或用以下SQL Server命令创建设备和创建表。A、创建数据设备disk initname='zg'                     数据库设备名physname='c:\\zg\\zg.dat'    数据库文件所在路径vdevno=8                     数据库设备的标识号size=5120                     数据库设备大小(10M)B、建立zg表create database zg_data on zg=1024,log on zg=1024     建立数据库use zg_datacreate table zg ( bh char (4) null, xm char (8) null, xb char (2) null, nl int null, zw char (10) null,gzsj datatime null, jl text null, zp image null ) 建立表go(2)、在客户机上启动Foxpro，用USE命令打开需转换的.dbf文件，用COPY命令将.dbf文件中数据转换成标准的文本文件.txt，命令如下：use zg.dbfcopy all to zg.txt deli with blan(3)、从客户机登录到Windows NT服务器上，将zg.txt文件拷贝到服务器的职工库目录c:\\zg下。(4)、在服务器上，由Windows NT进入到MS-DOS状态，然后执行bcp将数据从zg.txt转换到SQL表，命令格式如下：bcp zg in zg.txt /c /s mainserver /u manager /P 0001 (mainserver为服务器名,manager为用户名,0001为用户口令）。该转换方法速度较快，不占用服务器上事务日志空间。但较为复杂、繁锁，操作者必须熟练掌握Foxpro、SQL Server的命令和操作，而且无法将Foxpro的Memo、General字段转换到SQL Ser

ver表。3、用Foxpro for Window 2.5 编程实现转换"用Foxpro编程实现数据转换"即通过SQL Server提供的ODBC接口（开放数据库接口）及Foxpr提供ODBC接口工具Connectivity Kit （fpsql.fll），建立SQL与Foxpro的连接，由Foxpro向SQL Server提交创建表命令，然后将.dbf的每条记录，串成一个字符串，将插入命令连同字符串提交给SQL Server，完成数据转换。实现步骤：(1)、ODBC的设置：在客户机上启动Windows for group，进入Windows的控制面板( Control panel )。双击ODBC图标，进行zg数据库的ODBC驱动设置。选择"Add"增加新的ODBC驱动接口，在Install ODBC drivers项选择"SQL Server"，按"OK"，弹出"ODBC SQL Server Setup"窗口，在 Data source name项中输入"zg_data"，Server项输入"mainserver"，按"OK"完成设置。(2)、采用上述方法一中步骤1的⑴、⑵创建zg数据库设备及数据库，然后执行Foxpro程序crea_table，创建一个结构与.dbf结构相同的SQL Server表。程序清单如下：crea_table.prg 程序清单set talk offclose allclear allclearstore "" 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_dbreaddbf_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_dbfcopy to db_stru stru exte&& 将其数据结构拷贝生成db_stru库use db_stru in 0sele db_strugoto topsql_com="creat table "+dbf_name+"( "do while .not. eof()sql_com=sql_com+field_name+" "do casecase field_type="C"sql_com=sql_com+"char ("+；allt(str(field_len))+ ")"case field_type="N"if field_dec=0if field_len<8 sql_com=sql_com+"int "elsesql_com=aql_com+"float "endifelse        sql_com=sql_com+"float "endifcase field_type="D"sql_com=sql_com+"datatime "case field_type="M"sql_com=sql_com+"text "case field_type="G"sql_com=sql_com+"binary "endcaseskipif .not.eof()sql_com=sql_com+","endifenddosql_com=aql_com+" )"success=dbexec(handle,sql_com)if successwait wind "SQL Server表已建立成功! "elsewait wind "SQL Server表建立失败! "endifclose allclear allretuelse    && 若连接不成功wait wind "对不起，输入参数错误，无法连接SQL Server'clear readretu    endif(3)、再执行Foxpro程序conv_data将数据由.dbf传输到SQL Server表中。conv_data.prg 程序清单conv_data.prg 程序清单set talk offclose allclear allclearstore "" 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_dbreaddbf_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_dbfcopy to db_stru stru exte&&将其数据结构拷贝生成db_stru库use db_stru in 0sele db_strugoto topsql_title="insert into "+dbf_name+" ( "do while .not.eof()sql_title=sql_title+field_nameskipif .not.eof()    sql_title=sql_title+"," else    sql_title=sql_title+" ) values ('" endifenddosele op_dbfgoto topdo while .not.eof()sql_com=sql_titlesele db_strugoto topdo 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+"')"    endifenddosuccess=dbexec(handle,sql_com)sele op_dbfskipenddo else    && 若连接不成功wait wind "对不起，输入参数错误，无法连接SQL Server"clear readretu    endif使用上述方法，只要知道一些简单的SQL Server操作及Foxpro编程便可实现将.dbf数据转换到SQL Server。运行程序然后输入待转换的数据库名，及目的数据库名就可实现转换，快捷方便。但不足的是，该方法在原数据库.dbf含有Memo、General字段时，转换就比较困难，目前尚没有找到有效的解决方法。4、用第三方数据库软件Access进行转换Access是Microsoft公司的数据库开发软件，使用Access提供的数据输入（Inport）/输出（Export）的功能及ODBC接口，可直接将数据结构及数据转送到SQL Server。实现步骤：(1)、按方法二中的第1、2步骤完成数据库设备、数据库创建和ODBC接口的设置。(2)、然后在Windows for Workgroup中启动Access，在File菜单中选择"new"创建一个新的Access数据库，然后在File菜单中选择"Attach table"连接zg.dbf数据库。(3)、在"Attach"窗口的"Data source"栏中选择数据库源为Foxpro 2.5，按"OK",之后弹出"Select Microsoft Access Database"窗口，在该窗口选择要转换的.dbf数据库zg.dbf，按"OK"结束，然后按"Close"完成数据库连接。(4)、在File菜单中选择"

Export"输出数据，在"Export"窗口选择目标数据库类型""按"OK"进入下一窗口"Select Microsoft Access Object"，在"Object in DB1"栏选择要转换的数据库zg， 在窗口的"View"栏下选择"Table"项，，按"OK"。(5)、进入"Export"窗口，在"Export zg to"栏目下输入目的数据库名zg，按"OK"。进入"SQL Data Sources"窗口，在"Select Data Source"，选择在ODBC中定义好的zg数据源，按"OK"(6)、进入"SQL Server login"窗口，在"Login ID:"栏中输入登录用户名"sa"，在"Password"栏中若有登录口令则输入口令。否则按"OK"开始进行数据转换。使用该方法用户不需要深入了解Foxpro命令及SQL Server命令，也不须深入了解Access操作，更不需对.dbf数据库的数据结构进行分析，Access可根据原.dbf数据库的结构自动在SQL Server上创建一个结构相同的表，并且可将原.dbf数据库中不论是字符型、数字型、日期型、Memo型、General型的所有数据转换到SQL Server表中。该方法可以简单、方便快捷、完整地将所有.dbf中的数据的转换到SQL Server。但使用该方法要注意一点，若要转换的数据量很大时，SQL Server中分配给该数据库的日志设备要足够大，或可在SQL Server中的ISQL/w命令窗口中用以下命令进行监控，并及时清除。dbcc sqlperf (logspace) 检查事务日志空间的使用量dump transaction zg with truncate_only 清除事务日志中已完成任务的数据5、结束语以上三种方法运行环境服务器端网络操作系统为Window NT 4.0，网络数据库为SQL Server 6.5，客户机Windows 95，Foxpro for Window 2.6，Access 97。方法二、方法三均通过ODBC数据接口进行数据转换。因此，这两种方法对Oracal、Sybase等数据库也可适用，只要对Windows中的ODBC数据接口设置作些改动，我们也可将.dbf的数据转换到Oracal或Sybase的表中。以此类推，只要数据库提供了ODBC功能，使用上述方法二、方法三均可实现两种数据库之间的数据转换。