was ist neu ¦  programmier tips ¦  indy artikel ¦  intraweb artikel ¦  informationen ¦  links ¦  interviews
 sonstiges ¦  tutorials ¦  Add&Win Gewinnspiel

Tips (1547)

Dateien (137)
Datenbanken (90)
Drucken (35)
Grafik (115)
IDE (21)
Indy (5)
Internet / LAN (131)
IntraWeb (0)
Mathematik (76)
Multimedia (45)
Oberfläche (107)
Objekte/
ActiveX (51)

OpenTools API (3)
Sonstiges (127)
Strings (83)
System (268)
VCL (243)

Tips sortiert nach
Komponente


Tip suchen

Tip hinzufügen

Add&Win Gewinnspiel

Werbung

32 Visitors Online


 
...eine Access Datenbank kompaktieren und reparieren?
Autor: Dan Towers
Homepage: http://www.baysoft.co.uk
[ Tip ausdrucken ]  

Tip Bewertung (19):  
     


{
  Here is a function I have made to compact and repair an access database.
  Exclusive access to the DB is required!!
}

uses
  
ComObj;

function CompactAndRepair(DB: string): Boolean; {DB = Path to Access Database}
var 
  
v: OLEvariant;
begin
  
Result := True;
  try
    
v := CreateOLEObject('JRO.JetEngine');
    try
      
V.CompactDatabase('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DB,
                        'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DB+'x;Jet OLEDB:Engine Type=5');
      DeleteFile(DB);
      RenameFile(DB+'x',DB);
    finally
      
V := Unassigned;
    end;
  except
    
Result := False;
  end;
end;

 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners