access数据库压缩的问题 (100分)

H

huiboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #1

var
dao: OLEVariant;
begin
screen.Cursor:=crHourGlass;
dm.DataBase.Connected:=false;
dao := CreateOleObject('DAO.DBEngine.36');
dao.CompactDatabase(d:/prog/data.mdb',d:/prog/data/tempdata.mdb');
screen.Cursor:=crDefault;
Close;
end;
我的方法没问题，
但是数据库带有密码时就不行了：（
我的数据库是有密码的access2000的mdb文件，怎样实现？

 

W

wjing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #2

__DBEngine36.CompactDatabase(database.DatabaseName, tempfile, '', 0, ';pwd=xxx');
xxx就是你的密码

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #3

http://www.delphibbs.com/delphibbs/dispq.asp?lid=402859
这是一个我认为不错的贴子,你也可以参考一下的.

 

H

huiboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #4

我试试对了马上发分。：）

 

H

huiboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-24

• #5

一切都OK了，非常感谢！

 

H

huiboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-24

• #6

呵呵，刚才没选接受答案，：）

对了，如果我要备份数据库有什么高招？

如果需要另外加分，也没问题！