Cita:
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 =:"
|
Código:
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'