dbf格式可以转换成mdb格式么？

Question

怎么转换dbf数据库为mdb格式阿？谢谢

Answer 1

http://www.china-askpro.com/msg1/qa55.shtml

Answer 2

how about mdb 到 dbf?

Answer 3

可以呀，可以用SQL的DTS导。
我好像记得用FOXPRO也直接可以导出的。

Answer 4

用类似这样的代码 
    Dim dbDBF As Database ' DBF文件 
    Dim sMDBFileName As String ' MDB文件 
    For i =0 To dbDBF.TableDefs.Count - 1 
     dbDBF.Execute("SELECT * INTO " + dbDBF.TableDefs(i) _ 
     .Name + " IN '" sMDBFileName + "' FROM " _ 
     + dbDBF.TableDefs(i).Name 
    Next 

Answer 5

我的意思是从mdb文件到dbf文件呢？用上面的代码可以么？

Answer 6

拿分来 有问题给我联系:[email protected]
Private Sub CmdUp_Click()
Dim DB As Database        '
Dim MyDB As New ADODB.Connection
Dim MyMDBRec As Recordset
Dim MyDBFRec As New ADODB.Recordset
Dim MyDBFsql As String
Dim MyMDBsql As String
Dim IntI As Integer
Set DB = DBEngine.Workspaces(0).OpenDatabase("123")        '123为MDB库
MyMDBsql = "select * from mdb表"         '123中的表
Set MyMDBRec = DB.OpenRecordset(MyMDBsql)
MyDB.Open "Provider=MSDASQL.1;Persist Security Info=false;Extended Properties=Driver={Microsoft Visual FoxPro Driver};UID=;SourceDB=" & (App.Path & "\dbf") & ";SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"   '\dbf是放aa的文件夹
MyDBFsql = "select * from aa"     'aa为DBF表
With MyDBFRec
    .LockType = adLockOptimistic
    .Open MyDBFsql, MyDB, , , adCmdText
     MyMDBRec.MoveLast
     MyMDBRec.MoveFirst
     For IntI = 0 To MyMDBRec.RecordCount - 1
        .AddNew
        .Fields!字段1 = MyMDBRec.Fields("字段1")
        .Fields!字段2 = MyMDBRec.Fields("字段2")
        .Fields!字段3 = MyMDBRec.Fields("字段3")
        .Fields!字段n = MyMDBRec.Fields("字段n")
        .Update
         MyMDBRec.MoveNext
     Next IntI
     MsgBox "数据转换成功!"
End With
End Sub

Answer 7

MyDB.Open "Provider=MSDASQL.1;Persist Security Info=false;Extended Properties=Driver={Microsoft Visual FoxPro Driver};UID=;SourceDB=" & (App.Path & "\dbf") & ";SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"   '\dbf是放aa的文件夹
这只是一行你只他放在一行里就行了!