将DBF数据库转换成SQLServer表

1、前言 随着计算机技术的发展，客户机/服务器（Client/Server）体系结构的数据库系统应用越来越广泛,而Foxbase、Foxpro是我国近阶段使用较广的数据库开发软件，很多数据都存在DBF表中，本文将介绍如何将DBF表中的数据转换到SQL Server表中。

2、用Visual Basic编程实现转换 用Visual Basic编程实现转换,即通过SQL Server提供的ODBC接口（开放数据库接口）及Visual Basic中应用数据访问,建立Visual Basic与SQL Server的连接，由Visual Basic向SQL Server提交创建表命令，然后将.dbf的每条记录提交给SQL Server，完成数据转换。DBF的数据结构是（f）： 字段名类型字段长度字段内容

Id C 4货物编号

name C 20货物名称

实现步骤：

(1)在数据库服务器”sqlserver1”中建立数据库sqlexample,建立一个表”example1”,其结构与f结构相同。其结构是： 字段名类型字段长度字段内容

Id C 4货物编号

name C 20货物名称

(2)、ODBC的设置：在客户机上进入Windows的控制面板( Control panel )。双击ODBC数据源（32位）图标，进行数据库的ODBC驱动设置。在用户DSN下，按“添加”，选择SQL Server,在名称输入”sql1”，服务器输入”sqlserver1”，用户名输入”sa”,口令输入”123456”,测试是否连通。

(3)、在Visual Basic建立一工程，添加“引用”Microsoft ActiveXData Objects2.1 Library和Microsoft DAO 3累积起来可造成很大麻烦.51 object library。在Form1上建一个Command1,将Command1的Caption改为转换。程序清单如下： Private Sub Command1_Click()

Dim db As Database

Dim tb As Recordset

‘打开C:f

Set db=OpenDatabase(c:,False,False,”foxpro 2.5”)

Set tb=enRecordset(examp1)

Dim conn1 As nnection

Dim cmd1 As mand

Set conn1=New nnection

Set cmd1=New mand

cons1=”ODBC;DATABASE=sqlexample;UID=sa;PWD=123456;DSN=sql1”

en cons1

Set tiveConnection=conn1

Do while not F

Cmds1=”insert into example1 values(‘“ elds(0) ”’,‘“ elds(1)

”’)”

mandText=cmds1

ecute

veNext

Loop

MsgBox“载入完毕”,,”提示”

ose

Unload me

End Sub

使用上述方法，只要知道一些简单的SQL Server操作及Visual Basic编程便可实现将DBF中的数据载入到SQL Server中。但存在不足之处，如果DBF中数据量很大，超过几十万条记录时，载入的时间将会很长。解决大批量数据载入从几年前的亏损与失败中，需要用到SQL Server所提供的块拷贝实用程序（bcp）

济源治疗白癜风哪家医院好
心梗能看好吗
小儿厌食吃什么药治疗