Discussion :

[redhammd]

bonjours, je veux savoir comment compacter une table de bases de donnees qui est rempli et puis il y a eu des suppression logique sur cette derniere , on remarque qu'il existe toujours un espace non utilisé (d'ou necessité de compacter)
comment le faire sous delphi
merci d'avance
REDHA 8)

[NoisetteProd]

Merci de :

poster dans le bon forum
indiquer votre SGBD

Cordialement

[Hauwke]

Bonjour,
D'abord la question à 0.152 €= Quelle type de base de données??
Access?

[Eric.H]

S'il s'agit de dBase ou Paradox avec BDE... Utilise les API Dbi >>> DbiPackTable (voir BDE32.HLP)

s'il s'agit de MSSQL.... Voir l'aide, le plus simple etant de faire un plan de maintenance

[Hauwke]

Bonjour,
S'il s'agit d'une base de données Access:

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
Uses
ComObj;
Function CompactBase(Dbb:String):Boolean; // Dbb: chemin complet de la base de données
var
vole:VOLEVariant;
begin
	result:= true;
	try
		vole:=CreateOleObject('JRO.JetEngine');
		try
			if CopyFile(PAnsiChar(Dbb), PAnsiChar(Dbb+'.bak'), false) then 	// Backup de la base de données	
			begin
				Vole.CompactDatabase('Provider=Microsoft.Jet.Oledb.4.0; Datasource='+Dbb, //Compactage
				'Provider=Microsoft.Jet.Oledb.4.0; Datasource='+Dbb+comp;'); 	
				DeleteFile(Dbb); 						//Suppression de l'ancienne base						
				RenameFile(Dbb+'comp', Dbb); 			// Mise en place de la base compactée.						
				end;
		Finally
			Vole:=Unassigned;
			end;
		except
			result:=False;
		end;
	end;

Cordialement

[Frank]

Je dirais qu'il est impossible de compacter une table Access, tu peux à la rigueur compacter toute la base mais pas une table en particulier.