VFP的DBF表导入到Access数据库中，在VFP6时另存为dBase格式可以导入。现在导入时常提示格式错误。如用ODBC等有点麻烦。


用如下代码处理文件后，可直接导入。

RUN dir *.dbf /b> ls.txt
CREATE CURSOR temp ( wjmc c(20),bz m)
APPEND FROM ls sdf
SCAN 
_wjmc=ALLTRIM(wjmc)
APPEND MEMO  bz FROM (_wjmc) OVERWRITE
ENDSCAN

REPLACE bz WITH CHR(3)+'w'+SUBSTR(bz,3) all
MD out &&如有可不用建立
SCAN
_wjmc='out\'+ALLTRIM(wjmc)  &&可以用_wjmc=ALLTRIM(wjmc) 覆盖原表不影响使用，当然重要数据要备份。
COPY MEMO bz to &_wjmc
ENDSCAN

 

[此贴子已经被作者于2019-4-11 09:22编辑过]

收到的鲜花

• 厨师王德榜 于 2019-04-12 11:22 送鲜花  1朵   附言：不错有想法。

能解释各行代碼的含义好吗？

只是把DBF文件的标志字节改了一下，第一字节改为16进制03，第二字节改为77 （小写w)。如果只有一个文件，可以用二进制编辑器改，例如ULTRAEDIT。
我开始就是用它试的。
RUN dir *.dbf /b> ls.txt 这个可能你不知道，这是暴露年龄的DOS命令，它把当前文件夹下的表文件名放到ls.txt文件中。有更高级的方法懒得用了，因为我有几十个表要放到Access中，用了个最省事的方法。

用这种方法，将一批 dbf 文件改造一次，再将改造后的 dbf文件，能成功导入到 mdb,也是一种不错的方法！