9 respuestas en este tema

[lsedr]

saludos compañeros

tengo una duda con respecto a realizar una consulta en forma de búsqueda, y es que en esta tabla que tengo 5,000 registros escritos con 5,000 numeros deseo que al escribir cualquier número en el Edit1, se realiza la búsqueda y del numero digitado, con solo presionar la cantidad que se quiere buscar....

hice esto pero no me funciona, en el evento ONKEYPRESS:

delphi

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
Var consulta:string;
begin
consulta:='SELECT * FROM clientes WHERE No LIKE''';
consulta:=consulta +'%';
consulta:=consulta + edit1.Text;
consulta:=consulta +'%';
consulta:=consulta +'''';
ADOQuery3.SQL.Clear;
ADOQuery3.SQL.Add(consulta);
ADOQuery3.Active:=True;
ADOQuery3.close;
ADOQuery3.Open;
 
end;

Archivos adjuntos

•  2929_9ef8c3244cd3dd92ceebfb6874fa369bc98547d7.jpg   119,6KB   2 descargas

[enecumene]

Eso es porque no le estas diciendo a cual tecla debe activar la busqueda, deberia ser:

delphi

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
Var consulta:string;
begin
 
if key = '#13' then begin //tecla ENTER
consulta:='SELECT * FROM clientes WHERE No LIKE''';
consulta:=consulta +'%';
consulta:=consulta + edit1.Text;
consulta:=consulta +'%';
consulta:=consulta +'''';
ADOQuery3.SQL.Clear;
ADOQuery3.SQL.Add(consulta);
ADOQuery3.Active:=True;
ADOQuery3.close;
ADOQuery3.Open;
end;
end;

Saludos

[lsedr]

Eso es porque no le estas diciendo a cual tecla debe activar la busqueda, deberia ser:

delphi

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
Var consulta:string;
begin
 
if key = '#13' then begin //tecla ENTER
consulta:='SELECT * FROM clientes WHERE No LIKE''';
consulta:=consulta +'%';
consulta:=consulta + edit1.Text;
consulta:=consulta +'%';
consulta:=consulta +'''';
ADOQuery3.SQL.Clear;
ADOQuery3.SQL.Add(consulta);
ADOQuery3.Active:=True;
ADOQuery3.close;
ADOQuery3.Open;
end;
end;

Saludos

no hace nada, no funcionó !

[enecumene]

Pues veo algo mal, deberia ser asi:

delphi

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
Var consulta:string;
begin
 
if key = '#13' then begin //tecla ENTER
consulta := 'SELECT * FROM clientes WHERE No LIKE ''*' + edit1.txt +'*''';
ADOQuery3.close;
ADOQuery3.SQL.Clear;
ADOQuery3.SQL.Add(consulta);
ADOQuery3.Open;
end;
end;

Intenta ahora.

Saludos.

EDITO: He modificado el Codigo para menos lineas y algunos bugs que vi por ahi

[lsedr]

Pues veo algo mal, deberia ser asi:

delphi

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
Var consulta:string;
begin
 
if key = '#13' then begin //tecla ENTER
consulta:='SELECT * FROM clientes WHERE No LIKE''';
consulta:=consulta +'%';
consulta:=consulta + edit1.Text;
consulta:=consulta +'%';
consulta:=consulta +'''';
ADOQuery3.close;
ADOQuery3.SQL.Clear;
ADOQuery3.SQL.Add(consulta);
ADOQuery3.Open;
end;
end;

Intenta ahora.

Saludos.

nada, no funciona

[enecumene]

He editado el codigo de nuevo, porque mirando he visto unos bugs, intentalo de nuevo.

Saludos.

[lsedr]

Pues veo algo mal, deberia ser asi:

delphi

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
Var consulta:string;
begin
 
if key = '#13' then begin //tecla ENTER
consulta := 'SELECT * FROM clientes WHERE No LIKE ''*' + edit1.txt +'*''';
ADOQuery3.close;
ADOQuery3.SQL.Clear;
ADOQuery3.SQL.Add(consulta);
ADOQuery3.Open;
end;
end;

Intenta ahora.

Saludos.

EDITO: He modificado el Codigo para menos lineas y algunos bugs que vi por ahi

ups ! no se que pasa no funciona ! tengo el ADOquery3 conectado al ADOconnection1 en su propiedad correspondiente 

[Sergio]

¿Donde querrias ver algo?

Supongo que el grid de la pantalla que envias esta conectado con el adoquery3 del codigo, si no es asi, no se veria nada, pero si esta conectado, deberian desaparecer los registros de la captura y quedar solo los que cumplan el "where".

Si pones un punto de ruptura en el codigo del keypress, dentor del if del intro, donde modificas la sql ¿se para o no el programa? Esto es importante.

Cuentanos, si pasa por ese punto, que ocurre a continuacion, si el grid se vacia, se queda como estaba, etc.

[lsedr]

¿Donde querrias ver algo?

Supongo que el grid de la pantalla que envias esta conectado con el adoquery3 del codigo, si no es asi, no se veria nada, pero si esta conectado, deberian desaparecer los registros de la captura y quedar solo los que cumplan el "where".

Si pones un punto de ruptura en el codigo del keypress, dentor del if del intro, donde modificas la sql ¿se para o no el programa? Esto es importante.

Cuentanos, si pasa por ese punto, que ocurre a continuacion, si el grid se vacia, se queda como estaba, etc.

- El ADOquery1 en el boton limpiar, borra con un DELETE todos los registros y el ADOquery2 en el boton Borrar borra los registros en el archivo .LOG....

- El adotable1 lo uso para generar y escribir los registros desde el 1 hasta (x) numero...con un bucle for...

- Con el ADOquery3 es que necesito que el dbgrid haga la consulta de buscar el numero indicado entre los registrados, pero sin necesidad presionar 'ENTER' solo que se digite el numero y lo muestre...

Lo he intentado también con 'Locate' pero me da error:

delphi

ADOTable1.Locate('No',Edit1.Text,[loCaseInsensitive,loPartialKey])

Este adotable esta conectado a la unica tabla de BD llamada 'clientes'
El campo 'No' es el que se llena con los registros escritos por numeros..

Archivos adjuntos

•  2931_5e9100bee70e114a58a9722f9fe64326302679cf.jpg   132,01KB   0 descargas

[Sergio]

Sigo sin saber si el adoquery3 esta o noconectado al dbgrid, y sin saber que ocurre cuando ahora tecleas un numero y pulsas enter...

Un grid no busca nada, solo muestra la lista de valores, si quieres buscar, puedes bien modificar el query del grid para que solo muestre algunos (que parece que es lo que intentas), o localizarlo con otro query y mostrarlo en otro sitio que no sea el grid... o dejar el grid cmo esta pero seleccionando el registro que tu buscas ¿cual es tu caso?

Es decir, si funcionase bien ¿que ocurriria en pantalla al escribir un numero ?