Hallo
Wie kann ich den eine Abfrage abfangen wenn ich mit die Datensätze einer bestimmten ID anzeigen lassen will und dann das zusammenzählen lasse. Bekomme da immer eine Fehlermeldung wenn er zB. beim Verbrauch keine ID findet.
Bitte noch mal um Hilfe
Delphi-Quellcode:
procedure TForm2.Button17Click(Sender: TObject);
var gesamt1, kostenverbrauch, kostenwartung : extended;
begin
wartungq.Close;
wartungq.sql.clear;
wartungq.SQL.text := 'select sum(tonerkostengesamt) as Gesamtsumme from verbrauch where druckernameid='''+dbedit1.text+'''';
wartungq.open;
gesverbrauch.text := wartungq.FieldByName('Gesamtsumme').Value;
verbrauchq.Close;
verbrauchq.sql.clear;
verbrauchq.SQL.text := 'select sum(kosten) as Gesamtkosten from wartung where druckernameid='''+dbedit1.text+'''';
verbrauchq.open;
geswartung.Text := verbrauchq.FieldByName('Gesamtkosten').Value;
kostenwartung := strtofloat(geswartung.Text);
kostenverbrauch := strtofloat(gesverbrauch.Text);
gesamt1 := kostenwartung + kostenverbrauch;
gesamt.Text := floattostr(gesamt1) +' €';
end;
Danke