如何压缩一个有密码的ASSESS数据库？

如何压缩一个有密码的ASSESS数据库？ 问题点数：28、回复次数：2Top

1 楼newyj（吴刚ｖｓ西西弗）回复于 2001-11-14 18:31:01 得分 28

procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      dbe:olevariant;  
  begin  
  //   DBEngine  
      dbe:=   CreateOleObject('dao.DBEngine.36');  
      if   OpenDialog1.Execute   then  
      dbe.CompactDatabase(OpenDialog1.FileName,   ExtractFilePath   (OpenDialog1.FileName)   +   'c.mdb',   '',   0,   '');  
  end;  
   
   
  代密码1  
   
  dbe.CompactDatabase(s,   ExtractFilePath(s)   +   'c.mdb',  
                '',   0,   ';pwd=1');  
                              很毛病的；要加;号分号  
   
  Top

2 楼IUPRG（给我点一首周截棍的“双杰伦”）回复于 2001-11-23 14:48:29 得分 0

同意：　newyj(老鬼)　  
   
  没错的Top

相关问题

• 密码
• 数据库
• dbe
• dbengine
• opendialog
• compactdatabase
• extractfilepath
• 号
• 压缩一个
• mdb

• 帖主：kingbenz
• newyj

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载