用ADO压缩Access2000库

    　　#include  "utilcls.h"

    void  CompactDatabase(String  f1,String  psw1,  String  f2,String  psw2)
    {
           String  Provider1="Provider=Microsoft.Jet.OLEDB.4.0;Data  Source="
                   +  f1  +  ";Jet  OLEDB:Database  PassWord="  +  psw1;
           String  Provider2="Provider=Microsoft.Jet.OLEDB.4.0;Data  Source="
                   +  f2  +  ";Jet  OLEDB:Database  Password="  +  psw2;

           Variant  Adoobj=Variant::CreateObject("JRO.JetEngine");
           Adoobj.OleProcedure("CompactDatabase",Provider1,Provider2);
           AdoObj.Clear(  );      //  释放  ADO对象
    }

    void  __fastcall  TForm1::Button1Click(TObject  *Sender)
    {
             String  f1="yhecdagl1.mdb";          //  源库1
    String  psw1="yhecdagl";                //  密码1

             String  f2="yhecdagl2.mdb";          //  新目的库2
             String  psw2="yhecdagl2";              //  新密码2

             String  dir=ExtractFilePath(Application->ExeName);
             if  (FileExists(f2))
                     DeleteFile(f2);
             CompactDatabase(dir+f1,psw1,dir+f2,psw2);
             ShowMessage("Finished");
    }