Consulta para obtener Max

[[BlueSteel]]

Hola

Gracias.. ya me funciono... utilice lo sgte:

Código Delphi [-]
Datos.AQ_Select.Close;
Datos.AQ_Select.SQL.Clear;
Datos.AQ_Select.SQL.Add('Select Max(Tar_CodigoBarra)+1 From Tarjeta');
Datos.AQ_Select.Open;
sFol.Text := IntToStr(Datos.AQ_Select.Fields[0].AsInteger);

Salu2

[ecfisa]

Hola BlueSteel.

Primero que nada, me alegro que hayas resuelto el problema.
Después, a modo de aclaración, voy a reivindicar el código de movorack, ya que es correcto.

La primera prueba no funcionó por que el nombre de la función agregada Max es igual al nombre del campo que va a contener su resultado: max.

Código Delphi [-]
Datos.AQ_Select.SQL.Add('Select Max(Tar_CodigoBarra)+1 as max From Tarjeta');

Y en la segunda falta la sentencia AS y el nombre del campo que recibe el resultado:

Código Delphi [-]
Datos.AQ_Select.SQL.Add('Select Max(Tar_CodigoBarra)+1 AS NOMBRE  From Tarjeta');

Saludos.