VB中无法对DBF文件进行PACK,也就是说无法真正地从物理上删除记录。只能把ISAM的设置 Deleted设为On,这样相当于FoxPro的SET DELETED ON,也就是在VB中不显示有删除标记的记录,但是在Fox中仍然可以看到。当安装 Microsoft FoxPro 数据库的驱动程序时,设置程序会在引擎的 Windows 注册表和 ISAM格式子键写入一些缺省值。Microsoft FoxPro 初始化设置在HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\Engines\Xbase 文件夹包含用来访问外部 FoxPro 工作表的 Msxbse35.dll 驱动程序的初始化设置。其中的Deleted用以决定 Microsoft Jet 数据库引擎如何处理已标记为删除的记录的二进制指示器。01 值对应 Microsoft FoxPro 的 SET DELETED ON 命令,且指示 Microsoft Jet 不再检索或定位已删除的记录。00 值对应 Microsoft FoxPro 的 SET DELETED OFF 命令,且指示 Microsoft Jet 对待一个删除的记录像对待任何其它的记录一样。缺省值是 00。在 Windows 95 和 Windows NT 4.0 中的值是二进制类型,而在 Windows NT 3.51 中是 REG_BINARY 类型。
如果要真的Pack,可以将保留的记录拷贝到一个临时数据库中,再覆盖原来的数据库。
少妇的意见:
我倒有一个没办法中的方法(不过此方法只适合你的DBF数据库是你个人使用,而非网上多用户使用):
将以下代码用V_FoxPro编译成可执行文件(PACK.EXE)
PARA FILENAME
IF .NOT. FILE(FILENAME) THEN
MESSAGEBOX ("指定的数据库 ' "+FILENAME +" ' 没有找到!")
RETURN
ENDIF
SET EXCLUSIVE ON
USE (FILENAME)
PACK
USE
** CLOSE ALL
RETURN
当每次操作完DBF数据库后关闭连接(db.clos)
然后调用以上程序进行切底删除,方法如下: