select max

[yossi]

hola, tengo 1 query con esta sentencia

Código SQL [-]
select max(fecha)
from personas
where personas_id=:id;

lo que quiero hacer en tomar el campo fecha del ultimo registro de ese id, y asignarselo a un datetimepicker, pero si en la tabla personas no hay ningun registro que me tome la fecha actual.

Código Delphi [-]
if query1.isempty then
datetimepicker.date:=now;
else
datetimepicker.date:=query1.fields[0].value;

el problema es que me dice que la funcion max no puede retornar null y no se como hacer la consulta y como hacerla asignacion

[marcoszorrilla]

Creo que lo mejor sería ejecutar primero:

Código SQL [-]
select Count(fecha)
from personas
where personas_id=:id;


if query1.Fields[0].AsInteger = 0 then
datetimepicker.date:=now;
else
datetimepicker.date:=query1.fields[0].value;

Si te devuelve 0 registros sabes que resultaría "null" y sino prosigues.

Un Saludo.

[yossi]

hola marcos, eso me ayudo pero no resuelve mi problema a lo mejor no me explique bien, voy de nuevo

necesito seleccionar la fecha mas actual de una tabla que concuerde con un id, es decir en la tabla tengo estos registros que concuendan con el id

id=1

2008-03-04
2008-06-03
2009-12-04

yo necesito que la consulta me devuelva el valor 2009-12-04 y lo coloque en un datetimepicker y en caso que digamos no existan registros asociados al id=1 coloque la fecha actual en el datetimepicker

[marcoszorrilla]

Al ejecutar la primera sentencia que te puse, sabes si hay alguna fecha o no, sino hay fechas das mensaje diciendo que no hay registros que cumplan con la consulta, es decir que si sigues en este caso obtendrías "null" y te daría error si te resulta que hay registros, entonces ejecutas la consulta con Max.

Un Saludo.

[olbeup]

Mira si esto te sirve:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if ADOConnection1.Connected then
    ADOConnection1.Close;

  with ADOQuery1 do
  begin
    SQL.Clear;

    SQL.Add('SELECT');
    SQL.Add('    MAX(FECHA) AS ULTIMAFECHA
    SQL.Add('  FROM Personas
    SQL.Add('  WHERE PERSONAS_ID = 1');

    Open;
  end;

  with ADOQuery1.DataSource.DataSet do
    if FieldByName('ULTIMAFECHA').IsNull then
      DateTimePicker1.Date := now
    else
      DateTimePicker1.Date := FieldByName('ULTIMAFECHA').AsDateTime;
end;

Un Saludo

[olbeup]

Perdón, faltan las comillas del final de la sql:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if ADOConnection1.Connected then
    ADOConnection1.Close;

  with ADOQuery1 do
  begin
    SQL.Clear;

    SQL.Add('SELECT');
    SQL.Add('    MAX(FECHA) AS ULTIMAFECHA');
    SQL.Add('  FROM Personas');
    SQL.Add('  WHERE PERSONAS_ID = 1');

    Open;
  end;

  with ADOQuery1.DataSource.DataSet do
    if FieldByName('ULTIMAFECHA').IsNull then
      DateTimePicker1.Date := now
    else
      DateTimePicker1.Date := FieldByName('ULTIMAFECHA').AsDateTime;
end;

Un saludo

[yossi]

muchas gracias a ambos me sirvio de mucho su respuesta