Listbox ->Zum Eintrag gehörende ID auswählen

[Gruber_Hans_12345]

was sind Q_gr und Q_vertrag für Komponenten ?

statt Q_gr.ExecSQL; mußt Q_gr.Open; verwenden (Open ist für SELECT ExecSQL für INSERT, DELETE, UPDATE ...) (wie Spider schon erwähnt hat)

eventuell nach Q_qr.Open;
abprüfen, ob die Query Datensätze enthählt

Delphi-Quellcode:

Q_gr.Open;
if not Q_gr.Eof then begin ....

end;

[Die Muhkuh]

Zitat von Spider:

Ausserdem schreib lieber statt ExecSQL mal Open.

Mit ExecSQL entfernt man Datensätze, oder fügt neue ein.

mach das mal noch.

[plautzer]

Es funzt Ich danke euch!!

Ich musste, wie Hans gesagt hat, erstmal überprüfen ob die query überhaupt gefüllt ist.

if not Q_gr.Eof then p:=Q_gr.Fieldbyname('ID').AsInteger; Thx leude,

Plautzer