Hallo,
Delphi-Quellcode:
ReisekostenQuery.Open;
// wieso hier schon das Open?
SucheReisekostenForm.ReisekostenQuery.Open;
// sollte diese Query nicht noch offen sein?
if gvarStatus = 1
then // für einen Datensatz
OpenParamQuerySQL(ReisekostenQuery, '
SELECT * FROM Reisekosten WHERE ID = :ID AND MANr = :MANr ORDER BY ID ASC', ['
ID', '
MANr'], [SucheReisekostenForm.ReisekostenQuery.FieldByName('
ID').AsInteger, SucheReisekostenForm.ReisekostenQuery.FieldByName('
MANr').AsInteger]);
bitte lokale Variablen verwenden
SucheReisekostenForm.ReisekostenQuery.FieldByName( 'ID').AsInteger -> Id: Integer;
SucheReisekostenForm.ReisekostenQuery.FieldByName( 'MANr').AsInteger -> MANr: Integer;
Was konkret macht OpenParamQuerySQL ?
PS:
Die lokalen Variablen dienen einerseits der besseren Übersicht.
Ausserdem weißt Du dann genau, wo genau die Fehlermeldung kommt.