Compact / Repair MS Access DB

Usually the computer needs to hace mdac components latest version from Microsoft installed. So you should try installing the MDAC 2.8 from
http://www.microsoft.com/downloads/details.aspx?FamilyID=6c050fe3-c795-4b7d-b037-185d0506396c&displaylang=en
and if it does not work you shopuld specify the component you use to do the compacting and repairing of the MDB...

I'd also like to know how to run the Compact/Repair function from my code.

I noticed, the OBDC configure dialog offers the 'Compact' function on a button (without needing MS Access). Therefore, the functionality is provided, just how to access it?

Rick

i'll try the mdac :)

this is the download to the component i tried
if it could be made to work with d6/d7 that would be great!

it's very light weight and does all i need it to.

oopps.. i'm stupid.. here's the link :)

http://torry.net/db/direct/ms_access/msautil.zip

try this

-------------------Source------------------------
procedure RepairCompact;
var
MdbFile: string;
DB: OLEVariant;
Temp: string;
begin
Screen.Cursor := crHourGlass;
try
MdbFile := copy(DataModule.adoconnection1.ConnectionString,
pos('Data Source=', DataModule.adoconnection1.ConnectionString)+12,
length(DataModule.adoconnection1.ConnectionString)-(pos('Data Source=', DataModule.adoconnection1.ConnectionString)+12));
MdbFile := copy(MdbFile, 1, pos(';',MdbFile)-1);
try
DataModule.ADOConnection1.Close;
DataModule.ADOConnection1.Connected := False;

DB := CreateOLEObject('DAO.DBEngine.35');
// Repair
DB.RepairDataBase(MdbFile);
// Compact
Temp := ExtractFilePath(MdbFile) + 'Temp.mdb';
DB.CompactDataBase(MdbFile, Temp);
DeleteFile(MdbFile);
RenameFile(Temp, MdbFile);

Application.MessageBox('Done!.', 'Message', mb_IconInformation);
except
on E: Exception do Application.MessageBox(PChar(E.message), 'Dao Error', mb_IconError);
end;
finally
DataModule.ADOConnection1.Open;
DataModule.ADOConnection1.Connected := True;
Screen.Cursor := crDefault;
end;
end;

what unit is datamodule in?

Datamodule is the datamodule NAME
LOL

File->New->DataModule


It's Like a Form for databases objects


Have Fun :D

oh i see, i've never messed with these before.. hmm.
it doesn't seem to know what adoconnection1 is though...

Adoconnection is a component that u  use to create Db Connection u can find it in the ADO palete on delphi....

ok i see.. yeah it compiles...

now what do i do with it?

basically, i want a form with a button that says 'repair db' when clicked it brings up open file dialog then select the mdb then run this thing...

Ok i tell u what...
u tell me exacltly what i want and i do it for you!!!



Man i'm trying to watch friends!

dont forget your email address to sent the code
Lol

what i want to have it do is exactly what i just said :)

just a form, button (repair db)
on button click openFileDialog and select ms access db (97) then do the compact/repair

just a form and a button? ok


Need Your email

just post it here. i know there is another guy above that wants the code as well :)
i don't think we're allowed to collaborate via email

that one worked mnasman!
the ado one...

is there any way to add a progress bar to that?

Hello

   I'm not sure of the JRO offers something like that, but you could try other ways like changing the cursor to busy one while compacting and when finish return it to the normal one, or try to use ProgressBar like the one used for searching in windows xp, which will be animated without counting from 1 to 100 for exmpale

try to  download TXProgress from torry site, and make the gradation Progressbar move till the compacting finish
http://www.torry.net/pages.php?id=504

HTH

Regards,
Mohammed

if the solution that I gave you worked fine with you, why you gave me :B: grade??? :-(

ooops! sorry. I was just crusing through there!

You could post on the Community Support to adjust the grade
https://www.experts-exchange.com/Community_Support/

Thanks a lot :-)