	[x] Posted via EE Mobile
	Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again.

Question

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

9.0

Compact and repair ms access

Asked by delphibeginner in Delphi Database, Microsoft Access Database, Delphi IDE

Tags: ms access, compact and repair, delphi

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)

View the Solution FREE for 30 Days

         
           
             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:

           
           
             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;

           
         

20091021-EE-VQP-81 - Hierarchy / EE_QW_3_20080625

Hall of Fame

1. Geert_Gr...58,458
2. rfwoolf26,820
3. senad23,195
4. 8080_...9,214
5. developm...8,900
6. NickUpson8,400
7. aikimark8,375
8. Johnjces6,540
9. FactorB6,500
10. angelIII5,540
11. MerijnB5,250
12. kretzsch...4,200
13. tipsybroom4,000
13. rrjegan174,000
15. epasquier3,368
16. SteveBay3,200
17. Hypo3,000
18. pcelba2,500
19. acperkins2,400
20. pivar2,000
20. EddieShip...2,000
20. tbsgadi2,000
20. carrzkiss2,000
20. JimU2,000
20. sdstuber2,000
20. bokist2,000
20. Limbeck2,000
20. grant3002,000
20. PaulKeating2,000
20. bschepp2,000
20. dankangr2,000
20. udayakum...2,000
20. momi_sa...2,000
20. dominik-j...2,000
20. reynaldio2,000
20. dprochow...2,000
20. tankergoblin2,000
20. abhvp2,000
20. twocandles2,000
20. delphibegi...2,000
20. irishbuddha2,000
20. JonasMal...2,000

1. Geert_Gr...95,569
2. rfwoolf74,320
3. developm...60,874
4. kretzsch...60,331
5. ziolko35,565
6. SteveBay33,395
7. NickUpson29,757
8. mnasman27,110
9. angelIII25,185
10. senad23,695
11. aikimark22,818
12. TheRealL...20,752
13. Johnjces20,130
14. dinilud18,298
15. mikelittlew...17,736
16. emoreau16,735
17. ciuly15,175
18. Workshop...14,869
19. EddieShip...12,820
20. calinutz12,000
21. MerijnB11,881
22. FactorB11,275
23. TimCottee10,824
24. mokule10,800
25. acperkins10,290

Compact and repair ms access

Asked by delphibeginner in Delphi Database, Microsoft Access Database, Delphi IDE

Tags: ms access, compact and repair, delphi

About this solution