Consulta para obtener Max

[[BlueSteel]]

Hola

Tengo una consulta en donde busco el mayor valor de un campo determinado...

Código SQL [-]
Select Max(Tar_CodigoBarra)+1 as sFol
From Tarjeta

El resultado de esto es : sFol = N (cualquier valor numerico)

desde delphi 7, lanzo la consulta así

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

Y quiero pasar el resultado a una campo Edit de mi formulario.. lo trato de pasar así, pero me dice que el campo sFol no existe

Código Delphi [-]
sFol.Text := IntToStr(Datos.AQ_Select['sFol']);

el error al ejecutar es

'AQ_Select: Field 'sFol' not found

alguien sabe como pasar ese parametro a una variable....

Salu2

[[movorack]]

Empezado por BlueSteel

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

Hola BlueSteel

Intenta cambiando el SQL que estás enviando. tal cual lo estás enviando, el parametro se llamaria 'max' no 'sFol'.

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

[[BlueSteel]]

Empezado por movorack

Hola BlueSteel

Intenta cambiando el SQL que estás enviando. tal cual lo estás enviando, el parametro se llamaria 'max' no 'sFol'.

Hola Movorack

Ya lo realice.. pero igual me da el error: 'AQ_Select: Field 'max' not found

lo realice de 2 formas distintas...

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

y

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

pero no funco....

Salu2

[marcoszorrilla]

Código Delphi [-]
sFol.Text := Datos.AQ_Select.Fields[0].AsString;

Intenta algo asi, no tengo Delphi a mano para hacer la prueba.

Un Saludo.

[[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.