Compact and repair ms access: ms access, compact and repair, delphi

Compact and repair ms access

I have this code that copies all data from a remote mysql database into a local ms access database.
This works like a charm, but......

Now what I want is to compact and repair the ms access database once a month and not everytime the application starts.

The thing is, I found a dosen of quistions on EE but my database is sort of implented in code (with extractfilepath and stuff), so it should not start with opening a opendialog to select the database (which many solutions do), the database should already be in the code and then compact and repair once a month (through timer or so).

Also a small favor I want to ask is the following: the copying of the data happends in splash form before the application really starts, now on this form I have some text which isn't visible when the form starts (the splash form), but when I get an error (like in the code below) the text appears, I want it to appear right when the form starts. Any idea on that?

So here are the codes I use: (connecting to ms access and a code to compact and repair)

procedure TfrmSplash.AccessConnect;
var
  sDatabaseName: String;
  sApplicationPath: String;
  sDatabasePath: String;
begin
  sDatabaseName:='iccsongs.mdb'; //here you must provide your database name
  sApplicationPath:=ExtractFilePath(Application.exename);
    if sApplicationPath[Length(sApplicationPath)]<>'\' then
        sApplicationPath:=sApplicationPath+'\';
        sDatabasePath:=sApplicationPath+sDatabaseName;
        if (FileExists(sDatabasePath)=true) then
          begin
            with AD_Access.Params do begin
              Add('DriverID=MSAcc');
              Add('Database=' + sDatabasePath);
            end;
              AD_Access.Connected := True;
          end;
end;
 
 
procedure TfrmSplash.Compact;
var
  OldDBName, NewDBName: string;
begin
  OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName) + 'Data\';
  OpenDialog1.Filter := 'MS Access (*.mdb)|*.mdb';
  if MessageDlg('This process can take several minutes. Please wait till the end ' +
      #13 + #10 + 'of it. Do you want to proceed? Press No to exit.', mtInformation,
      [mbYes, mbNo], 0) = mrNo then
      exit;
    OldDBName := 'iccsongs';
    NewDBName := ExtractFilePath(OldDBName) + 'MyTemporaryDB.mdb';
    if CompactAndRepair(OldDBName, NewDBName) then begin
      DeleteFile(OldDBName);
      RenameFile(NewDBName, OldDBName);
      ShowMessage('Successfully')
    end else
      ShowMessage('Error…');
end;

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

Select all Open in new window

Instant Access to this Solution

Plus...

30 Day FREE access, no risk, no obligation

Collaborate with the world's top tech experts

Unlimited access to our exclusive solution database

Never be left without tech help again

Trusted by hundreds of thousands everyday for fast, accurate and reliable tech support.

"The time we save is the biggest benefit of Experts Exchange to Warner Bros. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange." Mike Kapnisakis, Warner Bros.

"Our team likes having a resource that is more secure than just using Google and most experts using this service really know their stuff. It's nice to look here first versus using Google." Dayna Sellner, Lockheed Martin

"Anytime that I've been stumped with a problem, 9 out of 10 times Experts Exchange has either the accepted solution or an open discussion of the potential solution to the problem." Kenny Red, eBay Inc.

See what Experts Exchange can do for you.

Got a question?

We've got the answer.

Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.

Screenshot of Experts Exchange Knowledgebase

Need individual assistance?

Our experts are ready to help.

If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.

Want to learn from the best?

Read articles from industry experts.

Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.

Working on a long term project?

Store your work and research.

Save solutions to your questions, answers you’ve discovered through searching plus helpful articles in your personal knowledgebase for easy future access.

Join the Community

Give a Little. Get a Lot.

Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.

Question

Compact and repair ms access

Subscribe now for full access to Experts Exchange and get

Instant Access to this Solution

ms access