El primer registro de tabla sql

[Neftali [Germán.Estévez]]

También puedes usar la función MIN, ya que lo que quieres es el mínimo valor del campo NUMERO.
Yo creo que esto te puede funcionar:

Código SQL [-]
SELECT * FROM ticket T INNER JOIN 
(
SELECT MIN(numero) AS MINIMO FROM ticket WHERE status='NEW'
) T2 ON T2.MINIMO=T.numero

Esto busca en la tabla el mínimo valor del campo NUMERO según el WHERE (que debería ser 6) y luego hace la JOIN para traerse el resto de campos de la tabla.

NOTA: Asumo que ese campo NUMERO debe tener un índice, si no es así añádeselo.

[giantonti1801]

Empezado por Neftali [Germán.Estévez]

También puedes usar la función MIN, ya que lo que quieres es el mínimo valor del campo NUMERO.
Yo creo que esto te puede funcionar:

Código SQL [-]
SELECT * FROM ticket T INNER JOIN 
(
SELECT MIN(numero) AS MINIMO FROM ticket WHERE status='NEW'
) T2 ON T2.MINIMO=T.numero

Esto busca en la tabla el mínimo valor del campo NUMERO según el WHERE (que debería ser 6) y luego hace la JOIN para traerse el resto de campos de la tabla.

NOTA: Asumo que ese campo NUMERO debe tener un índice, si no es así añádeselo.

Perfecto! me funciona en Sql Manager sin ningun problema pero ahora me esta dando problema en la aplicacion

begin
    With ADOQuery1 do
        begin
        Close;
        Sql.Clear;
        Open;
        Sql.Text := 'SELECT * FROM tiket T INNER JOIN (SELECT MIN(Item) AS MINIMO FROM tiket WHERE estatus=NEW') T2 ON T2.MINIMO=T.Item';
        ADOQuery1.First;
        while not ADOQuery1.Eof do
        begin
         Label1.Caption := 'A000' + ADOQuery1.fieldbyname('Item').asstring;
        end;

[[kuan-yiu]]

Tienes el open antes de cargar la sentencia SQL

[giantonti1801]

Empezado por kuan-yiu

Tienes el open antes de cargar la sentencia SQL

With ADOQuery1 do
        begin
        Close;
        Sql.Clear;
        Sql.Text := 'SELECT * FROM tiket T INNER JOIN (SELECT MIN(Item) AS MINIMO FROM tiket WHERE estatus =: 'NEW' ;
        Open;
        ADOQuery1.First;

        while not ADOQuery1.Eof do
        begin
         Label1.Caption := 'A000' + ADOQuery1.fieldbyname('Item').asstring;
        end;

No ni siquiera haciendo eso es que el error me lo da justamente es esta linea y no me deja compilarlo para verificar

[[duilioisola]]

Aquí tienes un lío de comillas.

Código Delphi [-]
Sql.Text := 'SELECT * FROM tiket T INNER JOIN (SELECT MIN(Item) AS MINIMO FROM tiket WHERE estatus =: 'NEW' ;
                                                                                                      ^^^^^ ;
                                                                                                   ^^

Debería ser

Código Delphi [-]
Sql.Text := 'SELECT * FROM tiket T INNER JOIN (SELECT MIN(Item) AS MINIMO FROM tiket WHERE estatus =: ''NEW'' ';

Admás no se bien qué es el "estatus =:"

[[kuan-yiu]]

Como te han indicado, las comillas de 'NEW' están mal.
Yo prefiero usar QuotedStr(miDato), siempre que tengo que poner comillas.
Además '=:' indica que le pasas un parámetro. O bien sobran las comillas de 'NEW' y tienes que indicar el valor de ese parámetro, o bien sobra ':'

[cloayza]

Estimado puede utilizar el método indicado por el colega kuan-yiu o usar parametros...

Código Delphi [-]
With ADOQuery1 do
       ... 
        //Utilizando Parametros
        Sql.Text := 'SELECT * FROM tiket T INNER JOIN (SELECT MIN(Item) AS MINIMO FROM tiket WHERE estatus =:Estatus';
        ParamByName('Estatus').AsString:='NEW';

        //kuan-yiu: Utilizando QuitedStr
        Sql.Text := 'SELECT * FROM tiket T INNER JOIN (SELECT MIN(Item) AS MINIMO FROM tiket WHERE estatus ='+QuotedStr('NEW');
        
        Open;
        ...

Saludos y buena suerte...

[giantonti1801]

Empezado por duilioisola

Aquí tienes un lío de comillas.

Código Delphi [-]
Sql.Text := 'SELECT * FROM tiket T INNER JOIN (SELECT MIN(Item) AS MINIMO FROM tiket WHERE estatus =: 'NEW' ;
                                                                                                      ^^^^^ ;
                                                                                                   ^^

Debería ser

Código Delphi [-]
Sql.Text := 'SELECT * FROM tiket T INNER JOIN (SELECT MIN(Item) AS MINIMO FROM tiket WHERE estatus =: ''NEW'' ';

Admás no se bien qué es el "estatus =:"

procedure TFormCaja.SpeedButton1Click(Sender: TObject);
begin
    With ADOQuery1 do
        begin
        Close;
        Sql.Clear;
        Sql.Text := 'SELECT * FROM tiket T INNER JOIN (SELECT MIN(Item) AS MINIMO FROM tiket WHERE estatus =: ''NEW'' ';
        Open;
        ADOQuery1.First;

        while not ADOQuery1.Eof do
        begin
         Label1.Caption := 'A000' + ADOQuery1.fieldbyname('Item').asstring;
        end;


      end;
end;

Sigue dandome un error
Adjunto error

NOTA: el estatus es un campo que me dice si es nuevo 'NEW' o ya ha sido utilizado 'OLD' la idea que haga un filtro de todos lo que tengan la condicion 'NEW'

[Neftali [Germán.Estévez]]

Empezado por giantonti1801

Perfecto! me funciona en Sql Manager sin ningun problema pero ahora me esta dando problema en la aplicacion

Si no dices "qué problemas" concretamente te está dando es difícil saber qué pasa.

Empezado por giantonti1801

No ni siquiera haciendo eso es que el error me lo da justamente es esta linea y no me deja compilarlo para verificar

Lo mismo.
Si tienes un error pero no das detalles de cual es, es difícil saber qué está pasando o darte más información.