Obtener ultimo registro ingresado

[ecfisa]

Hola maxi915.

Empezado por maxi915

...
procedimiento capturar id_UltimoTurno

[/delphi]

Código Delphi [-]
Procedure capturar_IdTurno (Queryturnos:TADOQuery;hora:string; var id:integer);
begin
  with Queryturnos do
   begin
     SQL.Clear;
     SQL.Add('select max(idturno) from turnos);
     Open;
     id:=FieldByName('Id_turno').AsInteger;
   end;
end;

Lo que sucede que el campo "Id_turno" no está definido para la consulta.

Intenta de este modo:

Código Delphi [-]
   ...
   with Queryturnos do
   begin
     SQL.Text := 'SELECT MAX(IDTURNO) AS MAX_ID FROM TURNOS';
     Open;
     id := FieldByName('MAX_ID').AsInteger;
   end;
   ...

Saludos