ADO - Tabellenname herausfinden anhand eines DBEdits

[Matt]

Hallo Boardies,

weiß zufällig jemand, wie ich anhand eines TDBEdits an den dahinter stehenden Tabellennamen (Name in der Datenbank, nicht von der TADOTable) komme? Hatte gedacht das ginge über die DataSource, aber da habe ich mich irgendwie geirrt!

Für Tipps und Anregungen bin ich wie immer sehr dankbar!

Gruß Matt

[markon]

naja, hab grad ma gekuckt.. kam zum ergebniss, dass bei mir der tabellenname in der tadotable eingetragen ist und alle anderen komponenten z.b. datasource draufzugreifen..

[markon]

hat mit dbedit nix zu tun, aber vielleicht ...

alle verfügbaren tabellen der db werden in ein stringlist geschrieben:

Delphi-Quellcode:

var SL: TStrings;

 {----- stringlist die alle tabelle der datenbank übergeben bekommt ---------}
 SL := TStringList.Create;

 ADOconnection.GetTableNames(SL, false); {alle tabellen aus der db auslesen}

[Matt]

Danke Markon,

das mit allen Tables kenne ich, nützt mir aber leider nix, da ich immer nur die eine brauche, von dem dbedit, in dem ich gerade bin :cry:

Gruß Matt

[r_kerber]

TDBEdit -> TDataSource -> TADOTable.TableName. das ist der name der Tabelle in der Datenbank.

[markon]

Zitat:

Zitat von r_kerber

TDBEdit -> TDataSource -> TADOTable.TableName. das ist der name der Tabelle in der Datenbank.

hmm, das wollte er eigentlich nicht, hatte ich auch schon in erwägung gezogen, aber:

Zitat:

Zitat von matt

weiß zufällig jemand, wie ich anhand eines TDBEdits an den dahinter stehenden Tabellennamen (Name in der Datenbank, nicht von der TADOTable) komme? ...

weiß aber auch nich wie's anders funzt...

[Matt]

Danke Ihr beiden, dass Ihr Euch den Kopf so zerbrecht deswegen.

Leider habe ich es immernoch nicht hinbekommen!

Ich brauche den Name als String und bei

a := tdbedit(sender).DataSource.????? ist Ende!!!

Gruß Matt

[Leuselator]

Wenn Du Dir angewöhnen könntest, Deine Querys wie folgt zu gestalten:

SQL-Code:

select  Feld1
       ,Feld2
       ...
       ,Feldn
       ,'TabellenName' as AusTabelle -- auf diese Zeile kommet es an!
  from TabellenName

dann wäre das hier die Lösung:

Delphi-Quellcode:

TDBEdit(Sender).DataSource.DataSet.FieldByName('AusTabelle').AsString

[Matt]

@Leuselator
Danke für den Hinweis, werde mich in Zukunft bemühen den Code richtig darzustellen!
Danke auch für Deinen Tipp, nur leider kann ich es nicht nachvollziehen, wie Du das meinst.

Gruß Matt

[Leuselator]

Hey Matt: ich wollte Dich nicht bezüglich der Gestaltung (im Sinne von Darstellung) deiner Query's schulmeistern: was ich meinte ist die Zeile:

SQL-Code:

,'TabellenName' as AusTabelle -- auf diese Zeile kommet es an!

der Teil nach den 2 Minuszeichen ist nur ein Kommentar und kann weggelassen werden.
Also angenommen, Du hättest 2 Tabellen mit folenden Feldern:

Code:

Tabelle: Kunden
Felder:  Vorname,
         Name,
         Geburtstag

Tabelle: Artikel
Felder:  Nummer,
         Bezeichnung,
         Preis

dann würdest Du folgende 2 Querys dafür bauen:

SQL-Code:

select  Vorname
       ,Name
       ,Geburtstag
       ,'Kunden' AS AusTabelle
  from Kunden

und:

SQL-Code:

select  Nummer
       ,Bezeichnung
       ,Preis
       ,'Artikel' AS AusTabelle
  from Artikel

Nun kannst Du in Delphi den Namen der Tabelle erfahren, indem Du nach dem Feld "AusTabelle" fragst. Dieses Feld ist statisch (in allen Datensätzen gleicher Wert) und hat bei der ersten Query den Inhalt: "Kunden", bei der 2. : "Artikel".
Also kannst Du im OnKlick-Ereignis eines DB-Edits den Wert aus dem dazugehörigen DataSet ermitteln:

Delphi-Quellcode:

procedure TForm1.DBEdit1Click(Sender: TObject);
var MeineTabelle : String;
begin
  // Onlinhilfe lesen: TDataSet.FindField
  //              und: Assigned()
  if Assigned(TDBEdit(Sender).DataSource.DataSet.FindField('AusTabelle'))
    then MeineTabelle := TDBEdit(Sender).DataSource.DataSet.FieldByName('AusTabelle').AsString;
end;

Gruß