Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   busqueda sql like (https://www.clubdelphi.com/foros/showthread.php?t=49900)

enecumene 02-11-2007 21:05:15

Hombre, por que no intentas con filtros?.

Saludos.

Caral 02-11-2007 21:17:12

Hola
Código Delphi [-]
procedure TForm6.Button2Click(Sender: TObject);
begin
     adoquery1.Close;
     adoquery1.SQL.Text:= 'select * from merca ';
     adoquery1.SQL.Add('WHERE (((merca.descripcion)="'+Edit1.Text+'"))');
     adoquery1.Open;
end;
Saludos

enecumene 02-11-2007 21:20:38

Excelente Caral ni lo hubiera pensado.;)

Saludos.

douglas 02-11-2007 21:25:26

perdon chicos, pero sigue sin mostrarme nada, perdon como es eso de los filtros, me podrias explciar gracias

Caral 02-11-2007 21:26:28

Hola
Gracias enecumene, viniendo de ti es un alago.
En el wiki del club he puesto varios ejemplos de codigo (sencillo), entre ellos siempre recomiendo: Uso de Combobox y Filtros, por que es la duda mas constante.
Como filtrar y como colocar la informacion en determinado componente, hay otros tambien interesantes.
Saludos

douglas 02-11-2007 21:30:41

gracias caral, examinare el wiki y te cuento como me va, enserio gracias a los dos por las grandes ayudas que me han brindado en todo momento, son super personas, gracias, siempre comento al final como lo logre hacer

enecumene 02-11-2007 21:34:17

filtros:

Código Delphi [-]
var
   Filtro : String;
begin
   If (Edit1.Text <> '') then
   begin
      Tabla1.Filtered := False;
       Filtro := 'campo Like ''*' +Edit1.Text+ '*''';
      Tabla1.Filter := Filtro;
      Tabla1.Filtered := True
   end
   else Tabla1.Filtered := False;

Douglas los ejemplos del wiki que te aconseja Caral son muy buenos revisalos.

jhlsys 18-11-2007 18:32:00

Consulta con Like
 
Para hacer consulta con Like y tienes que usar comodides "%", cualquier caracter, o "_" un caracter, ara que no te discrime las mayusculas de las minusculas puedes probar el siguiente codigo:

Cprocedure TForm7.Button1Click(Sender: TObject);

begin
adoquery1.Close;
Adoquery.sql.Clear;
adoquery1.SQL.Add('select * from merca ');
adoquery1.SQL.Add(' where upper(descripcion) like upper(:cosa)');
adoquery1.Parameters.ParamByName('cosa').Value:='%'+edit1.Text+'%';
adoquery1.Open;

end;

Lo que estamos haciendo aqui es buscar un productos no importando si los caracteres como criterio de busqueda esta al inicio, intermedio o final de la cadena escrita en la caja e texto.

Suerte


La franja horaria es GMT +2. Ahora son las 02:38:29.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi