将DBF数据库转换成SQLServer表

1.随着计算机技术的发展，基于客户机/服务器体系结构的数据库系统得到了广泛的应用。Foxbase和Foxpro是目前国内广泛使用的数据库开发软件，大量数据存在于DBF表中。本文将介绍如何将DBF表中的数据转换成SQL Server表。
2。通过Visual Basic编程实现转换，即通过SQL Server提供的ODBC接口(开放式数据库接口)和Visual Basic中数据访问的应用，建立Visual Basic与SQL Server的连接，然后通过Visual Basic向SQL Server提交建表命令，再提交。dbf到SQL Server来完成数据转换。DBF的数据结构为(examp1.dbf):字段名类型字段长度字段内容
Id C 4商品编号
名称C 20商品名称
实现步骤:
(1)在数据库服务器“sqlserver1”中建立数据库sqlexample和一个表“example1”其结构为:字段名类型字段长度字段内容
Id C 4商品编号
名称C 20商品名称
(2)、ODBC设置:输入双击ODBC数据源(32位)图标，设置数据库的ODBC驱动程序。在用户DSN下，按“Add”，选择SQL Server，在名称中输入“sql1”，在服务器中输入“sqlserver1”，在用户名中输入“sa”，在密码中输入“123456”，测试连通性。
(3)在Visual Basic中建立一个项目，添加“引用”到微软ActiveX数据对象2.1库和微软DAO 3.51对象库。在Form1上构建Command1，并将Command1的标题更改为conversion。程序列表如下:

private command 1 _ click()
dimdb as database
dimt bas recordset
' Open c:examp 1 . DBF
setdb = Open database(c:，false，false，" foxpro 2.5")
Set tb=db。OpenRecordset(示例1)

Dim conn1为ADODB。连接
Dim cmd1 As ADODB。命令

设置conn1=New ADODB。connection
Set cmd 1 = New ADODB。命令

cons1 = " ODBCDATABASE = sqlexampleUID = saPWD = 123456；DSN=sql1"
conn1。打开cons1
设置cmd1。active connection = con n1
Do while not TB。EOF
cmds 1 = " insert into example 1 values(" " & TB。字段(0) &“”、“”& tb。字段(1)
&"')"
cmd1。CommandText=cmds1
cmd1。执行
tb。MoveNext
循环

MsgBox“加载完毕”，“提示”

Cnn1。关闭
卸载我
End Sub