再次请教一个数据库问题，送分20

Question

你看看～～var
  dao: OLEVariant;
begin
  dao := CreateOleObject('DAO.DBEngine.35');
  dao.Set_SystemDB('*.mdw');//设置连接你的.mdw文件
  dao.DefaultUser := 'UserID';//设置用户名
  dao.DefaultPassword := 'password';//设置密码
  dao.CompactDatabase('d:\yourDatabaseName.mdb',
'd:\yourNewCompactedDatabaseName.mdb');
end;

Answer 1

var
  dao: OLEVariant;
begin
  dao := CreateOleObject('DAO.DBEngine.35');
  dao.Set_SystemDB('*.mdw');//设置连接你的.mdw文件
  dao.DefaultUser := 'UserID';//设置用户名
  dao.DefaultPassword := 'password';//设置密码
  dao.CompactDatabase('d:\yourDatabaseName.mdb',
'd:\yourNewCompactedDatabaseName.mdb');
end; 
象这样可以！

Answer 2

  很遗憾，我试过了，不行的。
  不知是否是我用错了。麻烦tikkypeng(千两狂死郎）写一个详细的例子，贴一下。能发个EMAIL更好，[email protected]
  谢谢大家了。再麻烦你们给看看。     

Answer 3

呵呵～～看错了～～没注意你的程序～～看看下面的～～var
  Dao: DBEngine;
begin
  dao := CoDBEngine.Create;
  dao.Set_SystemDB('*.mdw');//设置连接你的.mdw文件
  dao.DefaultUser := 'UserID';//设置用户名
  dao.DefaultPassword := 'password';//设置密码
  dao.CompactDatabase('d:\yourDatabaseName.mdb',
'd:\yourNewCompactedDatabaseName.mdb');
end; 

Answer 4

千两狂死郎 大哥：  DBEngine我编译时说没定义，我应该把什么放在USES 里。
  另外，*.mdw ,userID,分别填什么？  还望千大哥拔刀相助，事后定重谢。

Answer 5

我试了一下tikkypeng(千两狂死郎)的方法，没试通。