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]