Tabellenname ermitteln ?

[Hansa]

Moin,

ich habe hier ein DataSet. Damit sollen einzelne Datensätze einer Tabelle gelesen werden. Es geht nicht um Joins oder sonstwas. Z.B.: "SELECT * FROM TESTTABELLE WHERE NR=:NR". Gibt es eine Möglichkeit, aus Delphi heraus an den Namen der Tabelle, in diesem Fall "TESTTABELLE" zu kommen ?

[rollstuhlfahrer]

Akzeptiert Firebird "SHOW TABLES"?

Bernhard

[Hansa]

Über die Systemtabellen (RDB$...) kommt man da ran. Nützt aber in dem Fall nichts, weil ich den Tabellennamen brauche, bei gegebenem Dataset.

[mkinzler]

Da müsstest du den String Parsen.

[rollstuhlfahrer]

Wie machst du das DataSet auf? - Gibts da keinen Tabellennamen?
Ansonsten fällt mir noch spontan ein: Tabellenstruktur mit den Strukturen aller Tabellen vergleichen.

Bernhard

[dataspider]

Hi,

möglicherweise sollte RelationTables (TFIBCustomDataSet) Tabellennamen liefern.
Origin vom Field sollte den Tabellennamen auch enthalten.

Frank

[RWarnecke]

Versuche mal folgende Abfrage :

Code:

select * from RDB$RELATIONS where RDB$SYSTEM_FLAG = 0;

Die Spalte RDB$RELATION_NAME sollte dann das entsprechende Ergbenis liefern.

[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