请问在VB中怎么把DBF导入到SQL SERVER中

Question

本帖最后由 zhaozidong86 于 2010-11-05 09:48:35 编辑

Answer 1

http://download.csdn.net/source/1421188

Answer 2

不能用OpenDataSource和OpenRowset之类的，因为好像都要链接服务器
也不能用Recordset然后Insert
---------------------------------
这两个都不能用,没办法了。常用的就是把DBF文件读出来，循环写入数据库了，要么直接用OpenDataSource 写入数据库了。

Answer 3

    Dim Rs As New ADODB.Recordset
    Dim conn As New ADODB.Connection
    conn.ConnectionString = "provider=msdasql;DRIVER=Microsoft Visual FoxPro Driver;UID=;Deleted=yes;Null=no;Collate=Machine;BackgroundFetch=no;Exclusive=No;SourceType=DBF;SourceDB=F:\2007;"
     '其中"C:\data"为BDF所在的目录，此时相当于连接到数据库，将DBF视为该库中的表，进行操作即可。
    conn.Open
    
'    Sql = "Select * From 2007100140014_20071001.dbf"
    
    Rs.Open Sql, conn                  '此处的"表"即为dbf名称.
    
    LabelNumber.Caption = Val(Rs.RecordCount)
    Set MSHFlexGrid1.DataSource = Rs
    
    Rs.Close
    conn.Close
    Set Rs = Nothing

Answer 4

    Dim Rs As New ADODB.Recordset
    Dim conn As New ADODB.Connection
    conn.ConnectionString = "provider=msdasql;DRIVER=Microsoft Visual FoxPro Driver;UID=;Deleted=yes;Null=no;Collate=Machine;BackgroundFetch=no;Exclusive=No;SourceType=DBF;SourceDB=F:\2007;"
     '其中"F:\2007"为BDF所在的目录，此时相当于连接到数据库，将DBF视为该库中的表，进行操作即可。
    conn.Open
    
    Sql = "Select * From 2007100140014_20071001.dbf"    
    Rs.Open Sql, conn                  '此处的"表"即为dbf名称.
    
'    LabelNumber.Caption = Val(Rs.RecordCount)
    Set MSHFlexGrid1.DataSource = Rs
    
    Rs.Close
    conn.Close
    Set Rs = Nothing