> >  Anyone knows how to call the Compact Database function in Delphi 5.0 in
> >order to compact database for Microsoft Access. Any help is appreciate.

> You need to import the JRO type library to use the following code

> Here's a procedure that works for me.  You have to import the JRO type
> library to compact an Access database.

> procedure TMainForm.CompactDataBa{*word*224}uClick(Sender: TObject);
> var JROJetEngine: TJROJetEngine;
>     strTempDBPath,
>     strSource,
>     strDest,
>     strJetVersion: string;
>     iLength: integer;
> begin
>   if strGlobalAccessVersion = '2000' then
>     strJetVersion := '5'  { Access 2000}
>   else if strGlobalAccessVersion = '97' then
>     strJetVersion := '4';   {Jet 3.x, Access 97}
>   strTempDBPath := ExtractFilePath(strGlobalDBPath) + 'TEMP.MDB';
>   strSource := 'Data Source=' + strGlobalDBPath + ';Jet OLEDB:Engine
Type='
> + strJetVersion;
>   strDest := 'Data Source=' + strTempDBPath + ';Jet OLEDB:Engine Type=' +
> strJetVersion;
>   try
>     try
>       Screen.Cursor := crHourGlass;
>       if not dbModule.CloseAll then
>         begin
>           MessageDlg('Error closing some datasets, unable to compact',
> mtError, [mbOk], 0);
>           exit;
>         end
>       else
>         dbModule.ADOConnection1.Close;
>       Application.ProcessMessages;
>       JROJetEngine := TJROJetEngine.Create(Application);
>       JROJetEngine.CompactDatabase(strSource, strDest);
>       SysUtils.DeleteFile(strGlobalDBPath);
>       RenameFile(strTempDBPath, strGlobalDBPath);
>       MessageDlg('The database has been packed', mtInformation, [mbOk],
0);
>     except
>       on E: Exception do
>         MessageDlg('Error packing database: ' + E.Message, mtError,
[mbOk],
> 0);
>     end;
>   finally
>     JROJetEngine.Free;
>     dbModule.ADOConnection1.Open;
>     Screen.Cursor := crDefault;
>   end;
> end;
> --
> Brian Bushay (TeamB)
> Bbus...@NMPLS.com

> "Brian Bushay TeamB" <BBus...@Nmpls.com> wrote in message
> news:ra81gtkgle0rhov75rtl49enk4bd8rbtg1@4ax.com...

> >I've tried the procedure, as outlined, but it seems to be not
> >reopening the ADOConnection as in the snip:-

> I can not reproduce that.  Do you have your LoginPrompt set to true?
You will
> have to present a password after compact if it is not in your
connection string.

> --
> Brian Bushay (TeamB)
> Bbus...@NMPLS.com

> >LoginPrompt set to false
> Then you may be missing that you need to login again after
reconnecting.

> --
> Brian Bushay (TeamB)
> Bbus...@NMPLS.com

> Brian Bushay (TeamB)
> Bbus...@NMPLS.com

> --
> Brian Bushay (TeamB)
> Bbus...@NMPLS.com

> The main form is an SDI,fsnormal it only has the various menu's on
> it.The Ds.forms are created on Menu.option.click and freed on
> closing.The only Form open,or in memory, when I compress is the Main
> form and a couple of dialoge forms(About eg).
> I'm not sure therefore how else to impliment yr suggestion
> David

> > Have you tried explicitly closing all your forms before the
compact
> then
> > recreating them?

> > --
> > Brian Bushay (TeamB)
> > Bbus...@NMPLS.com