Obtener ultimo registro ingresado

[maxi915]

Hola, tengo una tabla en access llamada turnos con su id_turno.
Necesito obtener desde codigo delphi el ultimo id_turno ingresado, y enviarlo por parametro en Id.
lo intentaba hacer de la siguiente forma pero no se cual es la sintaxis correcta.

with queryturnos do
begin
SQL.Clear;
SQL.Add('Select * From turnos');
Open;
id:=FieldByName('id_turno').AsInteger;
end;


gracias por la ayuda!!

[Casimiro Notevi]

Recuerda poner los tags al código fuente, ejemplo:



Gracias

[maxi915]

Disculpas! para la proxima lo tengo en cuenta.

[Casimiro Notevi]

Si buscas el mayor número:

Código SQL [-]
select max(idturno) from turnos

Ahora bien, si ese idturno no es un número incrementable, deberías buscar por otro dato, por ejemplo, una fecha de creación.

[maxi915]

claro es lo que intente, pero me al momento de obtener y inserto ese "ultimo_id" en un edit, me trae un valor extraño, por ejempl 190023, cosas ilogicas, como si me obtuviera basura.

id_turno es un autonumerico.

[Casimiro Notevi]

Bueno, no somos adivinos, copia aquí todo el código y explica exactamente qué estás haciendo y cómo.

[maxi915]

bien, aca les dejo lo que intento hacer..

procedimiento cargar el turno, pero antes de cargar quiero obtener el ultimo turno cargado (siempre va a haber 1 como minimo) para luego insertar en otra tabla TurnoCliente, inserto el id_turno y id_cliente

Código Delphi [-]
procedure TFormTurnos.btnCargarTurnoClick(Sender: TObject);
var
  queryturnos:TADOQuery;
  queryProfesor:TADOQuery;
  queryTurnoCliente:TADOQuery;
  id_turno:Integer;
  hora:string;
begin
 queryturnos:=FormMenuPrincipal.queryTurnos;
 queryProfesor:=FormMenuPrincipal.queryprofesores;
 queryTurnoCliente:=FormMenuPrincipal.queryTurnocliente;
 //capturar_IdProfesor(queryProfesor,comboboxProfesores.Text,Id);

  If(edtTurnohorario.Text<>'')and(edtTurnoDisponibilidad.Text<>'')
  then
    begin
    Cargar_turno(QueryTurnos,edtTurnohorario.Text,StrToInt(edtTurnoDisponibilidad.Text),comboboxDia.Text  ,comboboxProfesores.text);
   //hasta aca funciona correctamente
    
    // aca necesito capturar el id_turno cargado para insertar en tabla clienteturno

    //capturar_idTurno(queryturnos,hora,id_turno);

 // luego inserto en la tabla TurnoCliente el id_turno (es el ultimo turno obtenido)

    Cargar_TurnoCliente(queryTurnoCliente,id_turno);

    MessageDlg('¡Se ha cargado con exito el nuevo turno!',mtConfirmation,[mbOK],0);
    end
  else
  begin
    MessageDlg('¡Hay campos incompletos!',mtConfirmation,[mbOK],0);
  end;
  edtTurnohorario.Clear;
  edtTurnoDisponibilidad.Clear;
  edtTurnohorario.SetFocus;
end;



procedimiento capturar id_UltimoTurno

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;

gracias!!!!

[Casimiro Notevi]

Código Delphi [-]
SQL.Add('select max(idturno) from turnos);

Para empezar, ahí falta la comilla de cierre.

Código Delphi [-]
SQL.Add('select max(idturno) from turnos');

[maxi915]

error de tipeo, de todas formas me obtiene basura y no el maximo id_turno..gracias

[Casimiro Notevi]

Empezado por maxi915

error de tipeo,

Se debe copiar y pegar el código. Si escribes otra cosa por cualquier motivo...

[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

[maxi915]

muchas gracias por la ayuda, lo voy a probar!
lo utilizo tal cual esta aca?, digo por max_id no se si te referis a sintaxis o a mi variable

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

[maxi915]

gracias por la ayuda! solucionado con ese ultimo aporte!!!!

[adrall]

Tambien puedes probar si la base de datos soporta esta funcion: "SELECT LAST_INSERT_ID()" que devuelve el ultimo valor del campo autoincrementado.

Algo así:

Código Delphi [-]
         
Query1.SQL.Text('SELECT LAST_INSERT_ID()');          
Query1.Open;          
iTurno := Query1.Fields[0].asInteger;          
Query1.Close;