压缩access数据库的方法。

 

stdafx.h

#import "C:\PROGRAM FILES\COMMON FILES\System\ado\MSJRO.DLL "no_namespace

 

 

CString strold;
 CString strnew;
 char str3[1024];
 strold.Format("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database_temp.mdb;Persist Security Info=False;Jet OLEDB:Database Password=hhdf78");
 strnew.Format("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database.mdb;Jet OLEDB:Engine Type=5");
 try
 {
  IJetEnginePtr   jet(__uuidof(JetEngine));
  jet-> CompactDatabase(
   strold.GetBuffer(),  
   strnew.GetBuffer());
  ::MessageBox(NULL,"压缩成功！(备份文件在当前目录下，名为Database_temp.mdb。若想恢复数据，请把此文件改名为Database.mdb即可)",   " ",   MB_OK)   ;
 }
 catch(_com_error   &e)  
 {              
  ::MessageBox(NULL,   (LPCTSTR)e.Description(   ),   " ",   MB_OK)   ;        
 }