如何在程序中压缩Access 2000 的数据厍!

Question

你可以通过，DAO,ADOX压缩access,dao有很多例子，但是adox的我正在做，请关注：http://www.csdn.net/expert/topic/332/332395.shtm

Answer 1

 dbe:=CreateOleObject('dao.dbengine.36');
  OpenDialog1.FileName:='db1.mdb';
  s:='C:\Documents and Settings\Administrator\My Documents\db1.mdb';
  dbe.CompactDatabase(s, ExtractFilePath(s) + 'c.mdb',
       '', 0, '');
  戴密码
dbe.CompactDatabase(s, ExtractFilePath(s) + 'c.mdb',
       '', 0, ';pwd=123213');