Prior

[Flocke]

Zitat von sveta:

@Flocke danke das sieht ganz gut aus .. query ist richtig aber wenn ich es in Delphi Code rein schreibe wird ein exception ausgeworfen und es wird nach weiteren spalten gefragt. das problem hatte ich schon und deswegen schreibe ich immer
select * from nach eine bestimmte spalte zu fragen geht nicht !

Das hier geht nicht?
(ungetestet, können Tippfehler drin sein)

Delphi-Quellcode:

function TForm1.nextEntry(t: TDatetime; id: integer): String;
begin
  with myquery do
  begin
    SQL.Text := 'select min(TIME) from TABELLE where ID_OBJECT=:id and TIME>:time';
    ParamByName('id').AsInteger := id;
    ParamByName('time').AsDateTime := t;
    Open;
    if Eof then
      Result := ''
    else
      Result := VarToStr(Fields[0].AsDateTime);
    Close;
  end;
end;