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;