在Delphi如何备份Access数据库 (通过OLE)?(100分)

lishding · 2000-02-20

问题如前.

Crane · 2000-02-20

为什么非要用OLE?请再说明白些

lishding · 2000-02-21

我的本意是在程序中让用户自己压缩 Access 的数据库
(用一段时间就变得很大),
查Access的帮助中发现有 dbengin.compact...(不好意思,不知怎么写了)
的方法,但不知怎么在D4写.
请各大虾伸伸手 :-(

lishding · 2000-02-21

太慢了...

netyjj · 2000-02-21

用diamond access 吧，它封装了dao（包含compact).

gxg8816 · 2000-02-21

如果只是修复和压缩数据库,可导入DAO 的类型库(DAO_TLB.pas)
用 DBEngine 的 RepairDatabase 和 CompactDatabase过程.
Access数据库压缩前最好修复一下.

g622 · 2000-02-22

把access升级到2000，数据库是自动压缩。

lishding · 2000-03-04

这段时间猫进医院了，实在对不起各大侠，
现在就分银子。

TO xg8816,netyjj:

我用的是D4，用BDE 和 ODBC 联Access,先奉上银子，方便的话
再帮帮我？:-(

gxg8816 · 2000-03-04

从project菜单上选择 import type library,选择microsoft DAO 3.51 object
library,选'create unit',生成DAO_TLB.pas
在你的工程中包含此文件.
var
Engine

BEngine;
d1,d2,d3

levariant;
begin
Engine.RepairDatabase('xxx.mdb');
Engine.CompactDatabase('xxx.mdb','yyy.mdb',d1,d2,d3);
end;

gxg8816 · 2000-03-04

sorry:少了一句
Engine := CoDBEngine.Create;///

netyjj · 2000-03-05

对，我也想这样说，先修后压。

lishding · 2000-03-28

接受答案了.