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

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 10 行

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