OpenParamQuery benutzen

[mkinzler]

Delphi-Quellcode:

  
  //Das hier ist nur einmal nötig
  //Query.Close; ist nicht nötig
  Query.Paramcheck := true; //besser vor der Zuweisung der Abfrage, dass diese Einstellung auch wirkt
  Query.SQL.Text := 'SELECT MAX(ID) AS nextNr FROM TableWHERE LfdNr = :LfdNr';
  Query.Parameters.ParamByName('LfdNr').DataType := ftInteger;
  
  //Später nur noch dies
  Query.Parameters.ParamByName('LfdNr').Value := LfdNr;
  Query.Open;
  result := Query.FieldByName('nextNr').AsInteger + 1;