Tut mir Lied, das länger keine Info´s von mir kame, mit wurde gesagt, dass ich das OpenParamQuery noch gar nicht benutzen soll
.
Stattdessen habe ich das hier benutzt:
Delphi-Quellcode:
begin
Query.Close();
Query.SQL.Text := '
SELECT MAX(ID) AS nextNr FROM TableWHERE LfdNr = :LfdNr';
Query.Paramcheck := true;
Query.Parameters.ParamByName('
LfdNr').DataType := ftInteger;
Query.Parameters.ParamByName('
LfdNr').Value := LfdNr;
Query.Open();
result :=
Query.FieldByName('
nextNr').AsInteger + 1;
end;
es kamen noch 1-2 Sachen dazu, weswegen es evtl nicht ganz die selbe Funktion hat wie sie es heute morgen noch hatte.