Discussion :

[Fbartolo]

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...:

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;

[Fbartolo]

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

http://support.microsoft.com/kb/230501/EN-US/

[blondelle]

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

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

Je viens de me rendre compte qu'il faut Access

[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++

[blondelle]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Fbartolo]

Oui bien vu, sans soute quelque chose comme:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

a tester donc...

[blondelle]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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");

[Fbartolo]

Idem exeption...

[Fbartolo]

Merci Blondel pour ton aide précieuse.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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!!");
}
//---------------------------------------------------------------------------

[blondelle]

C'est super je suis comptant pour toi, je pense que le code devrait etre propose pour la FAQ.

[blondelle]

Je pense qu'il faut remplacer v.Clear( ); par v = Unassigned; comme dans la Doc Delphi.

[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

[antoinelac]

Excellent code!

Merci!

ciao

antoine