jueves, 26 de septiembre de 2013
martes, 17 de septiembre de 2013
lunes, 16 de septiembre de 2013
viernes, 13 de septiembre de 2013
jueves, 12 de septiembre de 2013
Compressing MDB
procedure TDM.CompactAndRepairDataBase;
var
JetEng: Variant;
Src, Dst: WideString;
SrcMDB, DstMDB: String;
Provider: String;
begin
DM.ConnectionScholl.Close;
JetEng := CreateOleObject('JRO.JetEngine');
try
Provider := 'Provider=Microsoft.Jet.OLEDB.4.0;';
SrcMDB := GetPathApp + 'Schollc.dat';
DstMDB := GetPathApp + 'Scholl.dat';
Src := Provider + 'Data Source=' + SrcMDB;
Dst := Provider + 'Data Source=' + DstMDB;
if RenameFile(DstMDB, SrcMDB) then
begin
JetEng.CompactDatabase(Src, Dst);
DeleteFile(PChar(SrcMDB));
end;
finally
JetEng := Unassigned;
end;
end;
martes, 10 de septiembre de 2013
miércoles, 4 de septiembre de 2013
Suscribirse a:
Comentarios (Atom)