ADO - Tabellenname herausfinden anhand eines DBEdits

[Matt]

Ja sauber, nu habe ich es zwar verstanden, aber ich kann doch jetzt nicht alles auf Query umstellen

Ich sollte vielleicht endlich mal schildern wofür ich es brauche, vielleicht gibt es ja noch eine andere Lösung für mein Problem!

Also, da ich sehr schreibfaul bin und meine Programmhilfen immer sehr dürftig ausfallen, gebe ich dem Benutzer gerne Tipps während er mit dem Programm arbeitet. Das mache ich wenn ein Feld betreten wird, dann zeige ich einen Text in der Statusleiste, der dem User etwas erklärt.

Bei aufwendigen Formularen, sind das dann schon mal so an die 40 OnEnter-Ereignisse und das macht das ganze sehr unübersichtlich. Also habe ich mir ein kleines Tool erstellt, das meine Tabellen ausliest und eine Tabelle anlegt mit "Tabellenname", "Feldname", und "Hilfetext". Nun Pflege ich alle Hilfetexte in diese DB ein und möchte nun in meinem Programm bei OnEnter einses Feldes gerne auf die "Hilfe-Tabelle" zugreifen und den richtigen Text zu diesem Feld auslesen. Problem ist nur, dass ich mehrere Felder habe, die gleich lauten können, deswegen schreibe ich auch den Tabellennamen in die Hilfe-DB!!! Kann ich das knicken oder gibt es da Lösungsansätze?

Gruß Matt

[Leuselator]

Wenn Du AdoTable benutzt und eine Komponentenkette wie:

TAdoConnection - TAdoTable - TDataSource - TDbEdit

hast, dann geht doch:

Delphi-Quellcode:

procedure TForm1.DBEdit1Enter(Sender: TObject);
begin
  if (TDBEdit(Sender).DataSource.DataSet is TAdoTable)
    then StatusPanel.Caption := TAdoTable(TDBEdit(Sender).DataSource.DataSet).TableName;
end;

oder?

Dieser TableName ist (zumindest bei mir mit SQLServer2000) der Tatsächliche Tabellenname in der Datenbank.

Ansonsten zeig Code...

Edit PS: [subjectivmode] Query sind deutlich flexibler und spätestens beim Wechsel auf eine "echte" Datenbank angesagt. Die Mühe lohnt also, da Dir später ein Wechsel auf andere DB's leichter fällt.[/subjectivmode]

[Matt]

Ich verneige mich tief und hoffe du nimmst mir meine, diesbezügliche, Inkompetenz nicht übel!

Es funktioniert jetzt nach deiner letzten Anweisung! Ich bin Dir sehr dankbar!

Gruß Matt