Hi,

is there a way to avoid creating theese .Old files after an Alter Table ... statement? Or ist there a simple way to get rid of them?

Burkhard


Something may have been included in the versions of DBISAM more recent than mine but I don't know of an option.

What I did for ElevateDB was write a small cleanup program

procedure DoDBCleanup;
var
sr: TSearchRec;
fNam: string;
fExtn: string;
begin
if FindFirst(HHCommons.DBPath + '*.*', faAnyFile, sr) = 0 then begin
 repeat
  fNam := ExtractFileName(sr.Name);
  fExtn := LowerCase(ExtractFileExt(fNam));
  fNam := Copy(fNam, 1, LastDelimiter('.', fNam) - 1);
  if fExtn = '.old' then DeleteFile(HHCommons.DBPath + sr.Name)
  else if fExtn = LowerCase(dm.TfRSession.LocalTableExtension) then begin
   if dm.DB.Execute('SELECT * FROM Information.Tables WHERE Name = ' + QuotedStr(fNam)) = 0 then begin
    DeleteFile(HHCommons.DBPath + fNam + dm.TfRSession.LocalTableExtension);
    DeleteFile(HHCommons.DBPath + fNam + dm.TfRSession.LocalTableBlobExtension);
    DeleteFile(HHCommons.DBPath + fNam + dm.TfRSession.LocalTableIndexExtension);
   end;
  end else begin
   if (fExtn <> LowerCase(dm.TfRSession.LocalTableExtension)) and
    (fExtn <> LowerCase(dm.TfRSession.LocalTableBlobExtension)) and
    (fExtn <> LowerCase(dm.TfRSession.LocalTableIndexExtension)) and
    (fExtn <> LowerCase(dm.TfRSession.LocalBackupExtension)) and
    (LowerCase(sr.Name) <> LowerCase(dm.TfRSession.LocalCatalogName + dm.TfRSession.LocalCatalogExtension)) and
    (LowerCase(sr.Name) <> LowerCase(dm.TfRSession.LocalCatalogName + dm.TfRSession.LocalLockExtension)) and
    (LowerCase(sr.Name) <> LowerCase(dm.TfRSession.LocalConfigName + dm.TfRSession.LocalBackupExtension)) and
    (LowerCase(sr.Name) <> LowerCase(dm.TfRSession.LocalConfigName + dm.TfRSession.LocalLockExtension))
    then
    DeleteFile(HHCommons.DBPath + sr.Name);
  end;
 until FindNext(sr) <> 0;
 FindClose(sr);
end;
end;

Roy Lambert

Burkhard,


No, but you can safely delete them after a successful ALTER TABle operation.
However, unless you really really need the space on disk that they are taking, there is no advantage in deleting them.

--
Fernando Dias
[Team Elevate]

Thanks,

I already implemented such a deleting routine but I thought there could be something else.

Burkhard

<< Is there a way to avoid creating theese .Old files after an Alter Table ... statement? Or ist there a simple way to get rid of them? >>

Yes, what you want is the NOBACKUP clause:

http://www.elevatesoft.com/manual?action=viewtopic&id=dbisam4&product=rsdelphi&version=XE&topic=ALTER_TABLE_Statement

Tim Young
Elevate Software
www.elevatesoft.com

Burkhard

Please ignore that reply - I thought I was in the DBISAM forums.

With EDB, there isn't any way to *not* create them, but you can safely delete them afterwards.

Tim Young
Elevate Software
www.elevatesoft.com