comment compacter une table (base de donnees) sous delphi

Version imprimable

20/11/2005, 11h34
redhammd

comment compacter une table (base de donnees) sous delphi

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)
20/11/2005, 12h21
NoisetteProd

Merci de :

:arrow: poster dans le bon forum
:arrow: indiquer votre SGBD

Cordialement
20/11/2005, 12h27
Hauwke

Bonjour,
D'abord la question à 0.152 €= Quelle type de base de données??
Access?
21/11/2005, 09h57
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

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

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

23/11/2005, 10h42
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.