怎么压缩Access数据库（可以通过Diamond）？(100分)

D

DreamTiger

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-06

• #1

uses DaoTlb.pas

var
DBEngine:_DBEngine;
begin
if CurrentDB.Version = 'Dao35' then
DBEngine := DAOTlb.CoDBEngine.Create (1)
else
DBEngine := DAOTlb.CoDBEngine.Create (2);

总是得不到DBEngine，但是看DAODatabase.pas中没什么特别的地方啊？

 

L

LawrenceZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-06

• #2

diamond不是有 demo 如何压缩修复access库吗?

 

G

gxg8816

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-06

• #3

var
Engine BEngine;
d1,d2,d3levariant;
begin
Engine := CoDBEngine.Create
Engine.RepairDatabase('xxx.mdb');
Engine.CompactDatabase('xxx.mdb','yyy.mdb',d1,d2,d3);
end;

 

A

autumn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-06

• #4

diamond是什么东西？/小声的说。

 

G

gxg8816

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-06

• #5

封庄了DAO3.5的空件,可以到 cakk.126.com 下载

 

A

autumn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-06

• #6

哦，谢谢gxg8816.
不知道在Access中压缩的命令是什么？宏好象没有提供运行这个项目?/自言自语

 

D

DreamTiger

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-06

• #7

faint!

是我自己弄错了：

var
EngineBEngine;
begin
// if CurrentDB.Version = 'Dao35' then
if CurrentDB.DaoVersion = Dao35 then
Engine := DAOTlb.CoDBEngine.Create (1)
else
Engine := DAOTlb.CoDBEngine.Create (2);

这样就对了，分数大家分了吧