busqueda incremental

[lucas05]

Hola, estoy realizando una búsqueda en forma incremental en Delphi 7 y MySQL.
Estoy usando 1Edit, 1DBGrid, 1DataSource, 1ADOQuery.
En el ADOQuery coloco la siquiente sentencia sql:
select * from empleados order by apellido asc
Para que en el DBGrid aparesca la información de la tabla de empleados ordenada por apellido en forma ascendente.

Para realizar la búsqueda en forma incremental pongo el siguiente código en el evento OnChange del Edit.

With ADOQuery 1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from empleados where apellido like'+Char(39)+Edit1.Text+'%'+Char(39));
Open;
end;

Cuando realizo la búsqueda la primera vez no hay problema, pero cuando quiero realizar una nueva busqueda y borro el apellido que habia puesto en el Edit, la información que estaba en el DBGrid ordenada en forma ascendente aparece desordenada (recuerden que en ADOQuery le habia puesto una sentecia sql para ordenarla en forma ascendete).
Como debo hacer para que la infomación que muestro en el DBGrid se mantenga siempre ordenada en forma ascendente por apellido, a un cuando realice una busqueda incremental?

Espero haber sido claro y muchas gracias por su atención.

[ecfisa]

Hola Lucas.

Reemplazá la consulta por:

Código Delphi [-]
  with ADOQuery1 do
  begin
    Close;
    SQL.Text:='SELECT * FROM EMPLEADOS WHERE APELLIDO LIKE '+QuotedStr(Edit1.Text + '%');
    Open;
  end;

Saludos.

[luisdevis]

Piensa que has modificado el query del objeto sin un order by.
Al modificar el edit tiene la sentencia sql :
SELECT * FROM EMPLEADOS WHERE APELLIDO LIKE '+QuotedStr(Edit1.Text + '%');
Que no tiene ningún "order by"

Cámbiala por esto :
SELECT * FROM EMPLEADOS WHERE APELLIDO LIKE '+QuotedStr(Edit1.Text + '% ORDER BY APELLIDO ASC');

[ecfisa]

Empezado por luisdevis

Piensa que has modificado el query del objeto sin un order by.
Al modificar el edit tiene la sentencia sql :
SELECT * FROM EMPLEADOS WHERE APELLIDO LIKE '+QuotedStr(Edit1.Text + '%');
Que no tiene ningún "order by"

Cámbiala por esto :
SELECT * FROM EMPLEADOS WHERE APELLIDO LIKE '+QuotedStr(Edit1.Text + '% ORDER BY APELLIDO ASC');

Amigo... tenés toda la razón.

[lucas05]

Ok, gracias voy a intentarlo.

Saludos.

[[Caral]]

Hola
mmmmmm

Código SQL [-]
SELECT * FROM EMPLEADOS WHERE APELLIDO LIKE '+QuotedStr(Edit1.Text)+ '% ORDER BY APELLIDO ASC;

Saludos

[lucas05]

Hola, intente poniendo el nuevo código, y al compilarlo noy problema.
Pero cuando escribo algún apellido en el Edit para realizar la búsqueda, se borra toda la información que habia en el DBGrid y no muestra nada.
Cual puede ser el problema?

Nuevamente gracias y saludos.