Aktive Datenbank auslesen

[Uwe 111]

Moin

Meine frage ist, wie kann man die aktive Datenbank in ein Label auslesen?

Mfg
Uwe 111

[mkinzler]

Was meinst du mit aktiver Datenbank?

[Uwe 111]

Moin
Die man gerade geöffnet hat.

MfG
Uwe 111

[mkinzler]

Meinst du die Tabelle oder Datenbank? Arbeitest du nit TTable (.TableName/.DataBseName)?

[Uwe 111]

Moin

Ich meinte z.b. wie die Datenbank DBDENO. Ich arbeite mit TTable und TSession.

MfG
Uwe 111

[Uwe 111]

Moin

Ja ich Arbeitest mit TTable (.TableName/.DataBseName)?

[mkinzler]

Dann steht doch die Datenbank (Pfad) in .DataBaseName.

[Uwe 111]

moin
meintest du etwa so
  Label3.Caption := DM.Database1.DatabaseName; MfG
Uwe 111

[mkinzler]

Probiers doch einfach aus

[hoika]

Hallo,

warum kennst du die "aktive Datenbank" nicht?
Die brauchst du doch, um die Tabelle zu öffnen.
Die Datenbank ist in Paradox übrigens ein Verzeichnis.

Es spricht allerdings nichts dagegen,
mehrere Tabellen verschiedener Datenbanken gleichzeitig geöffnet zu haben.

Mit Table.DataBaseName bekommst du entweder den Namen des Alias
oder den des Verzeichnisses, je nachdem, was du festgelegt hast.

Falls du einen BDE-Alias benutzt und das dahinterliegende Verzeichnis
suchst, solltest du das aber auch sagen.
Das wäre denn der folgende Code.

Delphi-Quellcode:

function GetAliasPath(const theAlias: String): String;
var
  AliasParams: TStringList;
  sPath      : String[255];
begin
  Result:= '';

  try
    AliasParams:= TStringList.Create;

    try
      Session.GetAliasParams(theAlias, AliasParams);

      if (AliasParams.Count=0) then
      begin
        Exit;
      end
      else
      begin
        sPath:= UpperCase(AliasParams[0]);
        Result:= Copy(sPath, 6, 255);
       // 6 = lenght of the alias name
      end;

    finally
      AliasParams.Free;
    end;
  except
    on E: Exception do
    begin
//     {$IFDEF DEBUG}
//      MBDebug(sFormName+'.GetAliasPath'+#13#10+E.message);
//     {$ENDIF}
    end;
  end;
end;  { GetAliasPath }

DbiTypes, DbiProcs, oder gleich BDE (?)
müssen als Unit eingebunden werden


Heiko