Access dosyasını onarma ve düzenleme

[Berdem]

Merhaba Arkadaşlar borlandda access dosyasını düzenleyip ve onaracak bir kod buldum.Bu dosyayı dpr olarak vermişler bu program kodunu benim programla nasıl birleştirecegim hakkında hiç bir fikrim yok.Yardımlarınızı bekliyorum.Sevgi ve Saygılar...
program AccessCompact;

Kod: Tümünü seç

// ***************************************************************************
//
// AccessCompact compacts and repairs Access 97 and Access 2000 databases.
//
// Author: David Simpson (drs@ihug.com.au), 19 Feb 2000
//
// Minor changes: Bob Wasaff (bwasaff@suscom.net), 29 Sep 00 2000
//                David Simpson, 30 Sep 2000
//
// ***************************************************************************

{$APPTYPE CONSOLE}

uses
  SysUtils,
  ActiveX,
  JRO_TLB; // 'Microsoft Jet and Replication Objects 2.5 Library' or later
// C:\Program Files\Common Files\System\ADO\msjro.dll

procedure CompactDB(const DBname, DBtype: string);
var
  MyJetEngine: JetEngine;
  strDataSource,
    strDataDest,
    strDataDestName: string;

begin
  if not FileExists(DBname) then
    begin
      writeln('Error: ''', DBName, ''' not found.');
      exit;
    end;

  // delete any previous temporary mdb file
  strDataDestName := ExtractFilePath(DBname) + 'temp.mdb';
  if FileExists(StrDataDestName) then
    begin
      DeleteFile(strDataDestName);
      writeln('Previous temporary file ', strDataDestName, ' deleted.');
    end;

  strDataSource := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + DBname + ';';
  strDataDest := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + strDataDestName + ';';

  // default to Access 2000 format unless 97 format is specified
  { default changed 30 Sep 2000 DRS }
  if DBtype = '97' then
    // Use Engine Type 4 for Access 97 db
    strDataDest := strDataDest + 'Jet OLEDB:Engine Type=4'
  else
    // Use Engine Type 5 for Access 2000 db
    strDataDest := strDataDest + 'Jet OLEDB:Engine Type=5';

  MyJetEngine := CoJetEngine.Create();
  try
    MyJetEngine.CompactDatabase(strDataSource, strDataDest);
    writeln(DBname, ' compacted into ', strDataDestName + '.');
    MyJetEngine := nil;
    if DeleteFile(DBname) then
      begin
        writeln(DBname, ' deleted.');
        if RenameFile(strDataDestName, DBName) then
          writeln(strDataDestName, ' renamed ', DBname + '.')
        else
          writeln('Error: ', strDataDestName, ' could not be renamed ', DBname, '.');
      end
    else
      writeln('Error: ', DBname, ' could not be deleted.');
  except
    on E: Exception do writeln('Error: ', E.Message);
  end
end;

begin
  if ParamCount = 0 then
    begin
      writeln('Error: Enter "ACCESSCOMPACT [/]?" for help.'); {Changed 29 Sep 2000 RVW}
      halt;
    end;
  if (ParamStr(1) = '/?') or {Changed 29 Sep 2000 RVW}
     (ParamStr(1) = '?') then
    begin
      write('AccessCompact compacts and repairs Access 97 and Access 2000 databases.');
      writeln('  Compacting also rebuilds the database indexes.');
      writeln;
      writeln('ACCESSCOMPACT [drive:][path]filename [[/,-]97|2000]'); {Changed 29 Sep 2000 RVW}
      writeln;
      writeln('  [drive:][path]filename  Mandatory.  Specifies database to fix.');
      writeln('  [97|2000]               Database type of 97 or 2000.  Default 2000.');
      writeln;
      write('This utility can be automated by using it from a command (.CMD)');
      writeln(' file which is then scheduled with the AT command, or directly');
      writeln(' using the NT Control Panel''s scheduler.');
    end
  else
    begin
      CoInitialize(nil);
      if (ParamCount = 2) then
        // default to Access 2000 format unless 97 format selected
        if (Paramstr(2) = '-97') or {Changed 29 Sep 2000 RVW}
        (Paramstr(2) = '/97') or
          (Paramstr(2) = '97') then
          CompactDB(ParamStr(1), '97')
        else
          CompactDB(ParamStr(1), '2000')
      else
        CompactDB(ParamStr(1), '2000');
    end
end.

[gkimirti]

dpr olunca sadece proje dosyası oluyor
gorsel bir form olmuyor yani
genelde konsol uygulamaları bu sekilde hazırlanır.
buradaki kullanımı da form icinde kullanımından pek de farklı degil...

uses taki unitleri formuna dahil et ve asagıdaki proceduru implementation
altında yaz

Kod: Tümünü seç

procedure CompactDB(const DBname, DBtype: string);
var
  MyJetEngine: JetEngine;
  strDataSource,
    strDataDest,
    strDataDestName: string;

begin
  if not FileExists(DBname) then
    begin
      writeln('Error: ''', DBName, ''' not found.');
      exit;
    end;

  // delete any previous temporary mdb file
  strDataDestName := ExtractFilePath(DBname) + 'temp.mdb';
  if FileExists(StrDataDestName) then
    begin
      DeleteFile(strDataDestName);
      writeln('Previous temporary file ', strDataDestName, ' deleted.');
    end;

  strDataSource := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + DBname + ';';
  strDataDest := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + strDataDestName + ';';

  // default to Access 2000 format unless 97 format is specified
  { default changed 30 Sep 2000 DRS }
  if DBtype = '97' then
    // Use Engine Type 4 for Access 97 db
    strDataDest := strDataDest + 'Jet OLEDB:Engine Type=4'
  else
    // Use Engine Type 5 for Access 2000 db
    strDataDest := strDataDest + 'Jet OLEDB:Engine Type=5';

  MyJetEngine := CoJetEngine.Create();
  try
    MyJetEngine.CompactDatabase(strDataSource, strDataDest);
    writeln(DBname, ' compacted into ', strDataDestName + '.');
    MyJetEngine := nil;
    if DeleteFile(DBname) then
      begin
        writeln(DBname, ' deleted.');
        if RenameFile(strDataDestName, DBName) then
          writeln(strDataDestName, ' renamed ', DBname + '.')
        else
          writeln('Error: ', strDataDestName, ' could not be renamed ', DBname, '.');
      end
    else
      writeln('Error: ', DBname, ' could not be deleted.');
  except
    on E: Exception do writeln('Error: ', E.Message);
  end
end; 

kullanırken
CompactDB('c:\myaccess.mdb','2000');yada
CompactDB('c:\myaccess.mdb','97');
artık hangi access ver. kullanıyorsan

kolay gelsin