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