Hallo robby,
bei dir fehlt ein BEGIN hinter dem THEN. Der Aufruf von First() direkt nach dem Open() eines DataSet ist überflüssig. Dein Sortierkriterium sollte nicht gleich dem Selektions-Kriterium sein. Versuche sprechende Namen für deine Objekte und Variablen zu verwenden.
Delphi-Quellcode:
function IsValidZnr(s:
string): boolean;
begin
Result := TryStrToInt(s);
end;
const
SEL = '
SELECT * FROM lager WHERE znr = :znr';
var
sZNr:
string;
begin
sZNr := '
';
if InputQuery('
Bitte Stücklistennummer eingeben', '
', sZNr)
and IsValid(sZNr)
then
with Query do
begin
SQL.Text := SEL;
Params.ParamValues['
znr'] := sZnr;
Open;
end;
// ...
end;
Grüße vom marabu