Compresser une base de données *.mdb sans Access

Version imprimable

01/03/2007, 11h35
Fbartolo

Compresser une base de données *.mdb sans Access

Bonjour à tous,

Je souhaite compresser une base de données Access sans que Access soit installé sur le poste, donc directement avec Jet Engine.

J'ai trouvé ce code chez nos parrains Delphynautes mais je suis incapable de l'adater à C++, donc si vous avez des idées...: :king:

Citation:

function CompactAccessDB(DB, MdP : string): Boolean; {DB = path complet de la base Access, MdP = password de la DB }
// Ajouter ComObj dans les Uses
var
v: OLEvariant;
begin
Result := False;
try
v := CreateOLEObject('JRO.JetEngine');
try
if CopyFile(PAnsiChar(DB),PAnsiChar(DB+'.bak'),False) then //backup de la base
begin
V.CompactDatabase('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DB+';Jet OLEDB: Database Password='+MdP,
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DB+'comp'+';Jet OLEDB: Database Password='+MdP); //compactage
DeleteFile(DB);// suppression de la base d'origin
RenameFile(DB+'comp',DB); // mise en place de la base compactée
Result := True;
end;
finally
V := Unassigned;
end;
except
Result := False;
end;
end;
01/03/2007, 12h15
Fbartolo

J'ai trouvé cette page, mais pareil impossible à implémenter :( :

http://support.microsoft.com/kb/230501/EN-US/
02/03/2007, 21h30
blondelle

Salut Fbartolo:
Un lien dans la FAQ Access, je pense qu'il faut utiliser Ole

Citation:

http://access.developpez.com/faq/?page=General#Compact

Je viens de me rendre compte qu'il faut Access
02/03/2007, 21h36
Fbartolo

Merci Blondel, avec le composant XP Application Access, cela fonctionne, mais moi je souhaite me passer d'access comme le fait ADO d'ailleurs.

Le code Delphy le fait bien semble t-il via JRO (donc avec le moteur Jet directement), mais je ne suis pas arrivé à l'implémenter en C++ :( :(

J'ai commence a traduire je te donne ce qui est fait:
le norceau de code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
// ne pas oublier d'inclure
// #include <comobj.hpp>
// #include <utilcls.h>
Variant v;
unsigned char * DB;
unsigned char * DB_BAK;
unsigned char * Mdp;
DB = "C:\\Documents and Settings\\blondelle\\Mes documents\\MySQL\\UtilisationBDE\\fichiers\\maBdd\\maBdd1.mdb";
DB_BAK = "C:\\Documents and Settings\\blondelle\\Mes documents\\MySQL\\UtilisationBDE\\fichiers\\maBdd\\maBdd1.bak";
Mdp = "";
v = CreateOleObject("JRO.JetEngine");
if (CopyFile(DB, DB_BAK, false))
{
v.OleFunction("CompactDatabase");
}

Je cree un fichier .Bak pour la fonction "CompactDatabase" je n'ai pas encore trouve.

02/03/2007, 22h35
Fbartolo

Oui bien vu, sans soute quelque chose comme:

Code:

v.OleFunction("CompactDatabase",Provider1,Provider2);

ou

Code:

v.OleProcedure("CompactDatabase",Provider1,Provider2);

a tester donc...

J'en suis a ceci mais j'ai une exception

Code:

1
2
 
v.OleFunction("CompactDatabase", "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = DB;Jet OLEDB:Database Password = Mdp","Provider = Microsoft.Jet.OLEDB.4.0;Data Source = DB_comp;Jet OLEDB:Database Password = Mdp");

02/03/2007, 23h08
Fbartolo

Idem exeption...:?

Merci Blondel pour ton aide précieuse. :king:

Ci dessous en exemple le résultat qui fonctionne et en plus c'est hyper rapide:

Code:

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
 
void  CompactDatabase(AnsiString Base1, AnsiString psw1, AnsiString Base2, AnsiString psw2)
{
 
	   AnsiString  Provider1=	"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Base1 + ";Password =" + psw1;
	   AnsiString  Provider2=	"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Base2 + ";Password =" + psw2;
 
	   Variant  v=Variant::CreateObject("JRO.JetEngine");
	   v.OleFunction("CompactDatabase",  Provider1.c_str(), Provider2.c_str());
 
	  v = Unassigned;
}
void __fastcall TForm1::Button4Click(TObject *Sender)
{
		 AnsiString  Base1="C:\\Documents and Settings\\Fernand Bartolo\\Dev\\Testxxxxxx\\Iris.mdb";
		 AnsiString  psw1="";
 
		 AnsiString  Base2="C:\\Documents and Settings\\Fernand Bartolo\\Dev\\Testxxxxxx\\Test.mdb";
		 AnsiString  psw2="";
 
 
		 if  (FileExists(Base2))
				 DeleteFile(Base2);
		 CompactDatabase(Base1,psw1,Base2,psw2);
		 ShowMessage("OK!!");
}
//---------------------------------------------------------------------------

03/03/2007, 12h42
blondelle

C'est super je suis comptant pour toi, je pense que le code devrait etre propose pour la FAQ.
03/03/2007, 13h48
blondelle

Je pense qu'il faut remplacer v.Clear( ); par v = Unassigned; comme dans la Doc Delphi.
03/03/2007, 14h08
Fbartolo

D'après ce que j'ai pu lire c'est la même chose.

J'ai vérifié avec CodeGuard, il n'y a pas de fuite mémoire (même en enlevant la ligne consernée).

Mais je pense que ta solution est plus adaptée car documentée, je modifie de suite.

Merci
15/03/2009, 14h12
antoinelac

Une petite merveille!

Excellent code!

Merci!

ciao

antoine