开发学院数据库 MSSQL Server 将DBF数据库转换成SQL Server表阅读

将DBF数据库转换成SQL Server表

　2007-11-11 04:12:35　来源：WEB开发网　　　

核心提示： ·数据库人员面试：sql server(WINDOWS平台上强大的数据库平台)常用测试·Oracle(大型网站数据库平台)数据库客户端的安装和配置·PHP连接数据库的方法(3)·Oracle(大型网站数据库平台)数据库网络的安装和配置(1)·用js

(WINDOWS平台上强大的数据库平台)

(大型网站数据库平台)

PHP

(大型网站数据库平台)

(SUN企业级应用的首选)

PHP

(和PHP搭配之最佳组合)

(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

　　使用上述方法，只要知道一些简单的sql server(WINDOWS平台上强大的数据库平台)操作及Visual Basic编程便可实现将DBF中的数据载入到sql server(WINDOWS平台上强大的数据库平台)中。但存在不足之处，如果DBF中数据量很大，超过几十万条记录时，载入的时间将会很长。解决大批量数据载入，需要用到sql server(WINDOWS平台上强大的数据库平台)所提供的块拷贝实用程序（bcp）