Tabellenname ermitteln ?

[mkinzler]

Das liefert alle Tabellen. Er will aber die Tabelle, welche in einem Statement angesprochen wird

[Hansa]

Jo, RDB$. War klar. Auch Beitrag #3 hat da nichts genützt. Einfachste Möglichkeit, die ich bisher sehe ist das :

Delphi-Quellcode:

function TabellenName (DS : TpFIBDataSet) : string;
var st : string;
begin
  st := DS.SQLFieldName('ID');
  st := Copy (st,1,Length (st) - 3);
  TabellenName := st;
end;

Im Beispiel würde das "TESTTABELLE.ID" liefern. Letzt 3 Buchstaben weg => "TESTTABELLE".

[alex517]

Hallo Hansa,

versuchs mal mit FIBDataSet1.GetRelationTableName().

Delphi-Quellcode:

var
  F: TFieldDef;
begin
  FIBDatabase1.Open;
  
  FIBDataSet1.Prepare;
  F :=  FIBDataSet1.FieldDefs[0];
  Memo1.Lines.Text :=  FIBDataSet1.GetRelationTableName(F);
end;

Delphi-Quellcode:

var
  F: TField;
begin
  FIBDataSet1.open;
  F :=  FIBDataSet1.Fields[0];
  Memo1.Lines.Text := FIBDataSet1.GetRelationTableName(F);
end;

alex

[Hansa]

Thx Alex,

scheint zu gehen und verkürzt das Ganze etwas :

Delphi-Quellcode:

function TabellenName (DS : TpFIBDataSet) : string;
begin
  TabellenName := DS.GetRelationTableName (DS.Fields[0]);
end;

Weiterer Vorteil : unabhängig vom Feldnamen.