dbf文件转换为一个mdb文件.txt

VB技巧问答10000例 VB技巧问答10000例

用 类 似 这 样 的 代 码 
    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 
<END>