OpenParamQuery benutzen

[Luca Haas]

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.

[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;