Label oder DBText auf Klick aktualisieren

[Avax2k]

habe folgendes Problem

möchte nämlich, dass wenn ich im DbGrid eine Zeile anklicke sich auch dementsprechend der Eintrag im Label oder DBText mit ändert..bisher zeigt es lediglich den ersten Wert beim Start der Applikation an, wenn ich auf einen speziellen Datensatz klicke passiert nichts...

der Quelltext sieht wie folgt aus:

Delphi-Quellcode:

with ADOQuery1 do begin
Parameters.ParseSQL(SQL.Text, true);
sql.Text := 'SELECT ID FROM Datenbank where ID = :ID';
open;
Parameters.ParamValues['ID'] := ADODataSet1.FieldValues['ID'];
Label9.Caption := ADODataSet1.FieldbyName('ID').asString;
refresh;
end;

das markierte Feld wird somit festgehalten..nur weiss ich eben nicht wie ich das Label auch aktualisiert bekomme. hoffe jemand kann mir weiterhelfen.

[marabu]

Hallo Avax2K,

im event-handler OnAfterScroll von DBGrid.DataSource.DataSet kannst du nach dem Neupositionieren auf den dann aktuellen Datensatz zugreifen und den gewünschten Wert der Caption vom Label zuweisen.

Grüße vom marabu

[Sharky]

Hai Avax2k,

wie marabu schon sagte ist für solche Sachen das OnAfterScroll ideal:

Delphi-Quellcode:

procedure TForm1.ADODataSet1AfterScroll(DataSet: TDataSet);
begin
  Label9.Caption := DataSet.FieldByName('ID').AsString;
end;

Aber eigentlich wollte ich noch etwas zu deinem Codebeispiel sagen ;-)

Zitat:

der Quelltext sieht wie folgt aus:

Delphi-Quellcode:

with ADOQuery1 do 
begin
  Parameters.ParseSQL(SQL.Text, true);
  sql.Text := 'SELECT ID FROM Datenbank where ID = :ID';
  open;
  Parameters.ParamValues['ID'] := ADODataSet1.FieldValues['ID'];
  Label9.Caption := ADODataSet1.FieldbyName('ID').asString;
  refresh;
end;

Dur rufst hier aus einer Tabelle das Feld ID von dem Datesatz ab, der eine von Dir definierte ID besitzt.
So richtig Sinn macht das aber nicht ;-) Auf deutsch würde das bedeutet: "Sage mir die ID des Datesatzes der die ID fünf hat".
Warum eine Information aus der Tabelle abfragen die Du schon hast?

[Avax2k]

super, hat auf Anhieb funktioniert :).

Vielen Dank an Marabu und Sharky.

zur Erläuterung für Sharky:

ich dachte eben so die label.Caption zu aktualisieren, da mit jedem klick auf einen Datensatz sich auch die ihm zugewiesene ID ändert. Ob er mir nun die Id=5 zeigt Where Id=5 sollte das Label auch 5 anzeigen..aber hab mich ja geirrt.

Nochmals aber vielen Dank für die schnelle Hilfe :D