Pfad des Alias einer Datenbank ermitteln.

[tsteinmaurer]

Hallo,

bzgl. Alias vs. echter Pfad in MON$DATABASE existiert eine Regel wie folgt (sofern ich mich richtig erinnere):

- Bei einer Verbindung ohne Alias wird der physische Pfad angezeigt
- Bei einer Verbindung mit Alias wird der Alias angezeigt, wenn in firebird.conf DatabaseAccess = None gesetzt ist. Sonst wird der physische Pfad angezeigt

Thomas

[Jens Hartmann]

Über eine Backup Komponente der ich den Backuppfad angeben muss.

Delphi-Quellcode:

procedure TfDBSave.btnSaveTestClick(Sender: TObject);
var
  FormCaption : string;
begin
  try
    FormCaption := Caption;
    Caption:= 'Backup läuft !';
    try
      with ibBackUpPSSecur do
      begin
        ServerName:= 'LOCALHOST';
        Params.Add('user_name=SYSDBA');
        Params.Add('password=masterkey');
        LoginPrompt := False;
        Active:= True;
        try
          Verbose:= False;
          Options:= [];
          DataBaseName:= 'PSSecur';
          BackupFile.Clear;
          BackupFile.Add(edtExeName.Text+'\PSSecurdat.bak');
          ServiceStart;
        finally
          Active:= False;
        end;
      end;
    finally
      Caption:= FormCaption;
    end;
  finally
    ibBackUpPSSecur.Active := False;
  end;
end;

Ich weiß, das gefällt einigen auch nicht mit Interbase und Firebird, aber es funtioniert sehr gut.

Gruß Jens

[mkinzler]

Es müsste auch möglich sein denn Alias statt dem Pfad zu übergeben

[Jens Hartmann]

Werde ich prüfen, Danke...

Gruß Jens

[Jens Hartmann]

Sorry,

Danke Markus, aber manchmal steht man total neben sich. Ich hatte das immer noch auf meiner Todo-Liste, aber scheinbar schon abgearbeitet.:pale:

Delphi-Quellcode:

          Verbose:= False;
          Options:= [];
[B]       DataBaseName:= 'PSSecur';[/B]
          BackupFile.Clear;
          BackupFile.Add(edtExeName.Text+'\PSSecurdat.bak');
          ServiceStart;

Es geht also mit den Alias angaben. Danke trotzdem.

Gruß Jens