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的数据结构是(examp1.dbf):

　　实现步骤:

　　(1)在数据库服务器”sqlserver1”中建立数据库sqlexample，建立一个表”example1”，其结构与examp1.dbf结构相同。其结构是:

　　(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:examp1.dbf

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

　　Set tb=db.OpenRecordset(examp1)

　　Dim conn1 As ADODB.Connection

　　Dim cmd1 As ADODB.Command

　　Set conn1=New ADODB.Connection

　　Set cmd1=New ADODB.Command

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

　　conn1.Open cons1

　　Set cmd1.ActiveConnection=conn1

　　Do while not tb.EOF

　　Cmds1=”insert into example1 values(‘“& tb.Fields(0) &”’，‘“& tb.Fields(1)

　　&”’)”

　　cmd1.CommandText=cmds1

　　cmd1.Execute

　　tb.MoveNext

　　Loop

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

　　Cnn1.Close

　　Unload me

　　End Sub