Foxpro DBF數(shù)據(jù)庫(kù)轉(zhuǎn)換成SQL Server 6.5表的幾種方法

　　 摘要：本文主要介紹用SQL Server bcp、Foxpro編程、Access等方法將.dbf數(shù)據(jù)庫(kù)轉(zhuǎn)換到SQL Server表的方法。

關(guān)鍵詞：Xbase DBF SQL Server 數(shù)據(jù)庫(kù) 轉(zhuǎn)換

1、前言

當(dāng)今，數(shù)據(jù)庫(kù)聯(lián)網(wǎng)實(shí)現(xiàn)數(shù)據(jù)共享已經(jīng)成為信息系統(tǒng)建設(shè)中一個(gè)迅速發(fā)展的潮流。利用SQL Server、Oracal、Sybase等客戶機(jī)/服務(wù)器（Client/Server）體系結(jié)構(gòu)的數(shù)據(jù)庫(kù)系統(tǒng)進(jìn)行信息系統(tǒng)的開(kāi)發(fā)、更新改造已成為當(dāng)前一大趨勢(shì)。而Dbase、Foxbase、Foxpro是我國(guó)近年應(yīng)用較為廣泛的數(shù)據(jù)庫(kù)開(kāi)發(fā)軟件，許多單位、部門(mén)多年來(lái)積累了大量的寶貴的數(shù)據(jù)資料，這些部門(mén)在進(jìn)行計(jì)算機(jī)信息系統(tǒng)改造、更新的同時(shí)，面臨如何繼承大量歷史數(shù)據(jù)的問(wèn)題，本文介紹三種將DBF數(shù)據(jù)轉(zhuǎn)換成SQL Server表的方法。

2、利用SQL Server所提供的塊拷貝實(shí)用程序（bcp）轉(zhuǎn)換

實(shí)用程序bcp.exe可從服務(wù)器SQL目錄下的BINN子目錄下獲得。

2.1、bcp的 命令格式及主要參數(shù)

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]
主要參數(shù)：
database_name    數(shù)據(jù)庫(kù)名
in|out        in從文件到數(shù)據(jù)庫(kù)表的拷貝。
            out從數(shù)據(jù)庫(kù)表到文件拷貝。
datafile         操作系統(tǒng)文件的路徑。該路徑的長(zhǎng)度可以是
1－255個(gè)字符。也可指明磁盤(pán)驅(qū)動(dòng)器名字。
/C             用字符類型作為缺省值執(zhí)行拷貝操作。
/u login_ID    指定登錄標(biāo)識(shí)符。
/P password    允許指定一個(gè)口令。
/S servername    允許用戶指定連接到哪個(gè)SQL Server

2.2、實(shí)現(xiàn)轉(zhuǎn)換的具體方法

我們以Foxpro的數(shù)據(jù)庫(kù)結(jié)構(gòu)的單位職工庫(kù)（zg.dbf）為例，進(jìn)行數(shù)據(jù)轉(zhuǎn)換。其數(shù)據(jù)結(jié)構(gòu)為：

字段名 類型 字段長(zhǎng)度 小數(shù)點(diǎn)位數(shù) 字段內(nèi)容
bh C 4 職工編號(hào)
xm C 8 職工姓名
xb C 2 性別
nl N 2 0 年齡
zw C 10 職務(wù)
gzsj D 參加工作時(shí)間
jl M 簡(jiǎn)歷
zp G 照片

實(shí)現(xiàn)步驟：

(1)、啟動(dòng)服務(wù)器，進(jìn)入Window NT，SQL Server 6.0，打開(kāi)SQL Enterprise Manager為單位職工庫(kù)創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)設(shè)備zg.dat，然后在該設(shè)備上建立zg數(shù)據(jù)庫(kù)及表(Table)，表的數(shù)據(jù)結(jié)構(gòu)要與zg.dbf的數(shù)據(jù)結(jié)構(gòu)一致�；蛴靡韵耂QL Server命令創(chuàng)建設(shè)備和創(chuàng)建表。

A、創(chuàng)建數(shù)據(jù)設(shè)備
disk init
name='zg'                     數(shù)據(jù)庫(kù)設(shè)備名
physname='c:\\zg\\zg.dat'    數(shù)據(jù)庫(kù)文件所在路徑
vdevno=8                     數(shù)據(jù)庫(kù)設(shè)備的標(biāo)識(shí)號(hào)
size=5120                     數(shù)據(jù)庫(kù)設(shè)備大小(10M)

B、建立zg表
create database zg_data on zg=1024,log on zg=1024     建立數(shù)據(jù)庫(kù)
use zg_data
create 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)、在客戶機(jī)上啟動(dòng)Foxpro，用USE命令打開(kāi)需轉(zhuǎn)換的.dbf文件，用COPY命令將.dbf文件中數(shù)據(jù)轉(zhuǎn)換成標(biāo)準(zhǔn)的文本文件.txt，命令如下：
use zg.dbf
copy all to zg.txt deli with blan

(3)、從客戶機(jī)登錄到Windows NT服務(wù)器上，將zg.txt文件拷貝到服務(wù)器的職工庫(kù)目錄c:\\zg下。

(4)、在服務(wù)器上，由Windows NT進(jìn)入到MS-DOS狀態(tài)，然后執(zhí)行bcp將數(shù)據(jù)從zg.txt轉(zhuǎn)換到SQL表，命令格式如下：

bcp zg in zg.txt /c /s mainserver /u manager /P 0001 (mainserver為服務(wù)器名,manager為用戶名,0001為用戶口令）。

該轉(zhuǎn)換方法速度較快，不占用服務(wù)器上事務(wù)日志空間。但較為復(fù)雜、繁鎖，操作者必須熟練掌握Foxpro、SQL Server的命令和操作，而且無(wú)法將Foxpro的Memo、General字段轉(zhuǎn)換到SQL Ser

ver表。

3、用Foxpro for Window 2.5 編程實(shí)現(xiàn)轉(zhuǎn)換

"用Foxpro編程實(shí)現(xiàn)數(shù)據(jù)轉(zhuǎn)換"即通過(guò)SQL Server提供的ODBC接口（開(kāi)放數(shù)據(jù)庫(kù)接口）及Foxpr提供ODBC接口工具Connectivity Kit （fpsql.fll），建立SQL與Foxpro的連接，由Foxpro向SQL Server提交創(chuàng)建表命令，然后將.dbf的每條記錄，串成一個(gè)字符串，將插入命令連同字符串提交給SQL Server，完成數(shù)據(jù)轉(zhuǎn)換。
實(shí)現(xiàn)步驟：

(1)、ODBC的設(shè)置：在客戶機(jī)上啟動(dòng)Windows for group，進(jìn)入Windows的控制面板( Control panel )。雙擊ODBC圖標(biāo)，進(jìn)行zg數(shù)據(jù)庫(kù)的ODBC驅(qū)動(dòng)設(shè)置。

選擇"Add"增加新的ODBC驅(qū)動(dòng)接口，在Install ODBC drivers項(xiàng)選擇"SQL Server"，按"OK"，彈出"ODBC SQL Server Setup"窗口，在 Data source name項(xiàng)中輸入"zg_data"，Server項(xiàng)輸入"mainserver"，按"OK"完成設(shè)置。

(2)、采用上述方法一中步驟1的⑴、⑵創(chuàng)建zg數(shù)據(jù)庫(kù)設(shè)備及數(shù)據(jù)庫(kù)，然后執(zhí)行Foxpro程序crea_table，創(chuàng)建一個(gè)結(jié)構(gòu)與.dbf結(jié)構(gòu)相同的SQL Server表。程序清單如下：

crea_table.prg 程序清單

set talk off
close all
clear all
clear
store "" to dbf_name    
&& dbf_name 待轉(zhuǎn)換的.dbf數(shù)據(jù)庫(kù)
store "" to sql_db
&& sql_db目的SQL數(shù)據(jù)庫(kù)
store "" to sql_com    
&& sql_com向SQL Server提交的命令
store "" to sql_title    
&& sql_title 為向SQL Server提交命令字頭
store 0 to handle        
&& handle 為Foxpro與SQL Server連接的標(biāo)識(shí)
store 0 to success    
&& success為命令提交成功與否的標(biāo)識(shí)
set libr to fpsql.fll
@2,20 say "請(qǐng)輸入要轉(zhuǎn)換的數(shù)據(jù)庫(kù)(dbf)名：" get dbf_name
@3,20 say "請(qǐng)輸入目的SQL數(shù)據(jù)庫(kù)名：" 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為別名打開(kāi)待轉(zhuǎn)換數(shù)據(jù)庫(kù)
sele op_dbf
copy to db_stru stru exte
&& 將其數(shù)據(jù)結(jié)構(gòu)拷貝生成db_stru庫(kù)
use db_stru in 0
sele db_stru
goto top
sql_com="creat table "+dbf_name+"( "
do while .not. eof()
sql_com=sql_com+field_name+" "
do case
case field_type="C"
sql_com=sql_com+"char ("+；
allt(str(field_len))+ ")"
case field_type="N"
if field_dec=0
if field_len<8
sql_com=sql_com+"int "
else
sql_com=aql_com+"float "
endif
else
        sql_com=sql_com+"float "
endif
case 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 "
endcase
skip
if .not.eof()
sql_com=sql_com+","
endif
enddo
sql_com=aql_com+" )"
success=dbexec(handle,sql_com)
if success
wait wind "SQL Server表已建立成功! "
else
wait wind "SQL Server表建立失敗! "
endif
close all
clear all
retu
else    && 若連接不成功
wait wind "對(duì)不起，輸入?yún)��?shù)錯(cuò)誤，無(wú)法連接SQL Server'
clear read
retu    
endif

(3)、再執(zhí)行Foxpro程序conv_data將數(shù)據(jù)由.dbf傳輸?shù)絊QL Server表中。

conv_data.prg 程序清單

conv_data.prg 程序清單
set talk off
close all
clear all
clear
store "" to dbf_name    
&&dbf_name待轉(zhuǎn)換的.dbf數(shù)據(jù)庫(kù)
store "" to sql_db    
&

&sql_db目的SQL數(shù)據(jù)庫(kù)
store "" to sql_com    
&&sql_com向SQL Server提交的命令
store "" to fname        
&&fname字段名
store 0 to handle        
&&handle Foxpro與SQL Server連接的標(biāo)識(shí)
store 0 to success    
&&success命令提交成功與否的標(biāo)識(shí)
set libr to fpsql.fll
@2,20 say "請(qǐng)輸入要轉(zhuǎn)換的數(shù)據(jù)庫(kù)(dbf)名：" get dbf_name
@3,20 say "請(qǐng)輸入目的SQL數(shù)據(jù)庫(kù)名：" 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為別名打開(kāi)待轉(zhuǎn)換數(shù)據(jù)庫(kù)
sele op_dbf
copy to db_stru stru exte
&&將其數(shù)據(jù)結(jié)構(gòu)拷貝生成db_stru庫(kù)
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 ('"
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 "對(duì)不起，輸入?yún)��?shù)錯(cuò)誤，無(wú)法連接SQL Server"
clear read
retu    
endif

使用上述方法，只要知道一些簡(jiǎn)單的SQL Server操作及Foxpro編程便可實(shí)現(xiàn)將.dbf數(shù)據(jù)轉(zhuǎn)換到SQL Server。運(yùn)行程序然后輸入待轉(zhuǎn)換的數(shù)據(jù)庫(kù)名，及目的數(shù)據(jù)庫(kù)名就可實(shí)現(xiàn)轉(zhuǎn)換，快捷方便。但不足的是，該方法在原數(shù)據(jù)庫(kù).dbf含有Memo、General字段時(shí)，轉(zhuǎn)換就比較困難，目前尚沒(méi)有找到有效的解決方法。

4、用第三方數(shù)據(jù)庫(kù)軟件Access進(jìn)行轉(zhuǎn)換

Access是Microsoft公司的數(shù)據(jù)庫(kù)開(kāi)發(fā)軟件，使用Access提供的數(shù)據(jù)輸入（Inport）/輸出（Export）的功能及ODBC接口，可直接將數(shù)據(jù)結(jié)構(gòu)及數(shù)據(jù)轉(zhuǎn)送到SQL Server。
實(shí)現(xiàn)步驟：

(1)、按方法二中的第1、2步驟完成數(shù)據(jù)庫(kù)設(shè)備、數(shù)據(jù)庫(kù)創(chuàng)建和ODBC接口的設(shè)置。

(2)、然后在Windows for Workgroup中啟動(dòng)Access，在File菜單中選擇"new"創(chuàng)建一個(gè)新的Access數(shù)據(jù)庫(kù)，然后在File菜單中選擇"Attach table"連接zg.dbf數(shù)據(jù)庫(kù)。

(3)、在"Attach"窗口的"Data source"欄中選擇數(shù)據(jù)庫(kù)源為Foxpro 2.5，按"OK",之后彈出"Select Microsoft Access Database"窗口，在該窗口選擇要轉(zhuǎn)換的.dbf數(shù)據(jù)庫(kù)zg.dbf，按"OK"結(jié)束，然后按"Close"完成數(shù)據(jù)庫(kù)連接。

(4)、在File菜單中選擇"

Export"輸出數(shù)據(jù)，在"Export"窗口選擇目標(biāo)數(shù)據(jù)庫(kù)類型"<SQL Server>"按"OK"進(jìn)入下一窗口"Select Microsoft Access Object"，在"Object in DB1"欄選擇要轉(zhuǎn)換的數(shù)據(jù)庫(kù)zg， 在窗口的"View"欄下選擇"Table"項(xiàng)，，按"OK"。

(5)、進(jìn)入"Export"窗口，在"Export zg to"欄目下輸入目的數(shù)據(jù)庫(kù)名zg，按"OK"。進(jìn)入"SQL Data Sources"窗口，在"Select Data Source"，選擇在ODBC中定義好的zg數(shù)據(jù)源，按"OK"

(6)、進(jìn)入"SQL Server login"窗口，在"Login ID:"欄中輸入登錄用戶名"sa"，在"Password"欄中若有登錄口令則輸入口令。否則按"OK"開(kāi)始進(jìn)行數(shù)據(jù)轉(zhuǎn)換。

使用該方法用戶不需要深入了解Foxpro命令及SQL Server命令，也不須深入了解Access操作，更不需對(duì).dbf數(shù)據(jù)庫(kù)的數(shù)據(jù)結(jié)構(gòu)進(jìn)行分析，Access可根據(jù)原.dbf數(shù)據(jù)庫(kù)的結(jié)構(gòu)自動(dòng)在SQL Server上創(chuàng)建一個(gè)結(jié)構(gòu)相同的表，并且可將原.dbf數(shù)據(jù)庫(kù)中不論是字符型、數(shù)字型、日期型、Memo型、General型的所有數(shù)據(jù)轉(zhuǎn)換到SQL Server表中。該方法可以簡(jiǎn)單、方便快捷、完整地將所有.dbf中的數(shù)據(jù)的轉(zhuǎn)換到SQL Server。

但使用該方法要注意一點(diǎn)，若要轉(zhuǎn)換的數(shù)據(jù)量很大時(shí)，SQL Server中分配給該數(shù)據(jù)庫(kù)的日志設(shè)備要足夠大，或可在SQL Server中的ISQL/w命令窗口中用以下命令進(jìn)行監(jiān)控，并及時(shí)清除。

dbcc sqlperf (logspace) 檢查事務(wù)日志空間的使用量
dump transaction zg with truncate_only 清除事務(wù)日志中已完成任務(wù)的數(shù)據(jù)

5、結(jié)束語(yǔ)

以上三種方法運(yùn)行環(huán)境服務(wù)器端網(wǎng)絡(luò)操作系統(tǒng)為Window NT 4.0，網(wǎng)絡(luò)數(shù)據(jù)庫(kù)為SQL Server 6.5，客戶機(jī)Windows 95，F(xiàn)oxpro for Window 2.6，Access 97。

方法二、方法三均通過(guò)ODBC數(shù)據(jù)接口進(jìn)行數(shù)據(jù)轉(zhuǎn)換。因此，這兩種方法對(duì)Oracal、Sybase等數(shù)據(jù)庫(kù)也可適用，只要對(duì)Windows中的ODBC數(shù)據(jù)接口設(shè)置作些改動(dòng)，我們也可將.dbf的數(shù)據(jù)轉(zhuǎn)換到Oracal或Sybase的表中。以此類推，只要數(shù)據(jù)庫(kù)提供了ODBC功能，使用上述方法二、方法三均可實(shí)現(xiàn)兩種數(shù)據(jù)庫(kù)之間的數(shù)據(jù)轉(zhuǎn)換。

【Foxpro DBF數(shù)據(jù)庫(kù)轉(zhuǎn)換成SQL Server 6.5表的幾種方法】相關(guān)文章：

SQL Server數(shù)據(jù)庫(kù)教學(xué)方法探索05-30

開(kāi)發(fā)基于SQL SERVER 的C/S數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)?08-06

如何用VB存取SQL Server中的圖像數(shù)據(jù)04-12

SQL Server的七個(gè)問(wèn)題及其解決辦法04-22

ASP開(kāi)發(fā)Browse/Server模式的Web數(shù)據(jù)庫(kù)08-06

sql數(shù)據(jù)庫(kù)備份和恢復(fù)常用操作08-12

《Visual FoxPro6.0數(shù)據(jù)庫(kù)教程》課程改革及評(píng)價(jià)方案05-23

作文的幾種修改方法08-17

在應(yīng)用程序客戶端備份和恢復(fù)MSSQL SERVER數(shù)據(jù)庫(kù)的一種方法08-06