Validar busqueda en base de datos

[olbeup]

Hola lucho1981,

Nunca he utilizado los ParamByName, pero si he utilizado mucho el LIKE, lo que tienes que hacer es lo siguiente:

Cambia el: ParamByName ('pape').Value:= ape.Text+'%';
por: ParamByName ('pape').Value := QuotedStr(ape.Text+'%');

[*Caro*]

Empezado por olbeup

Cambia el: ParamByName ('pape').Value:= ape.Text+'%';
por: ParamByName ('pape').Value := QuotedStr(ape.Text+'%');

Hola, cuando se utiliza parametros ya no es necesario el QuotedStr (las comilllas).

Lo que veo en tu codigo es que utilizas ExecSql, esa sentencia solo se utiliza cuando haces cambios en tu BD, como tu estas haciendo una consulta, debes utilizar Open.

Código Delphi [-]
with Dm.Qape do
begin
 ParamByName ('pape').Value:= ape.Text+'%';
 Open;
end;

Saluditos

[lucho1981]

Empezado por olbeup

Hola lucho1981,

Nunca he utilizado los ParamByName, pero si he utilizado mucho el LIKE, lo que tienes que hacer es lo siguiente:

Cambia el: ParamByName ('pape').Value:= ape.Text+'%';
por: ParamByName ('pape').Value := QuotedStr(ape.Text+'%');

Muchas gracias olbeup por tu aporte, aunque no me sirvio para mi caso tu respuesta me sirvio mucho para aprender.


Muchas gracias Caro, me sirvio muchisimo tu ayuda. Es justo lo que estaba necesitando.

[lucho1981]

Hola amigos, resulta q ahora el error q tengo es que cuando en el evento onkeypress de un edit quisiera q me mostrara los apellidos de una tabla en un grid.
Lo primero q hago es validar para q solo escriban letras.
El problema es: cuando aprieto la letra "L" no me muestra nada, cuando presiono "A" me muestra todos los apellidos q comienzan con la L, cuando presiono una "M" me muestra todos los q comiencen con LA y asi.

Adjunto el codigo.

Código SQL [-]
procedure TFUsuarios.ApeKeyPress(Sender: TObject; var Key: Char);

begin
       Gape.Visible:=true;
       Gprincipal.Visible:=false;
       Dm.Qape.Close;

   if not(key in['a'..'z','A'..'Z',#8]) then
      begin
        key:=#0;
      end
   Else
      begin
        with Dm.Qape do
          begin
              ParamByName ('pape').Value:=ape.text+'%';
              Dm.Qape.Open;

          end;
       end;
  end;

Ojala q me puedan ayudar. algo seguro q estoy haciendo mal

[*Caro*]

Hola de nuevo, tienes que utilizar el evento OnKeyUp de tu edit que es el momento en que sueltas la techa pero también puedes utilizar el evento OnChange de tu edit que se da cuando ha habido un cambio en tu Edit. Solo paar la parte de la busqueda, tu validación de que solo reciba letras lo puedes seguir haciendo en el OnKeypress.

Saluditos

[lucho1981]

Empezado por Caro

Hola de nuevo, tienes que utilizar el evento OnKeyUp de tu edit que es el momento en que sueltas la techa pero también puedes utilizar el evento OnChange de tu edit que se da cuando ha habido un cambio en tu Edit. Solo paar la parte de la busqueda, tu validación de que solo reciba letras lo puedes seguir haciendo en el OnKeypress.

Saluditos

Muchas gracias Carito. Sos una genia y te ganaste mi respeto y cariño.

Saluditos

[lucho1981]

Otra ves yo con problemas y de seguro son super sencillos de resolver
Cuando quiero buscar listar en un grid pero ahora por dni capturados de un edit me da error al compilar porq no me reconoce '%' al pasar el valor del edit por parametro.
Cabe aclarar q lo hice en el evento KeyUp como me enseño Caro para el mismo problema, pero la busqueda por apellido.

Código SQL [-]
begin
             Gleg.Visible:=true;
             Gprincipal.Visible:=false;
             Dm.Qlegmodificar.Close;
        with Dm.Qape do
          begin
              ParamByName ('plega').Value:=StrToInt(lega.Text)+'%';
              Dm.Qlegmodificar.Open;
          end;
end;

Muchas gracias de antemano y perdón por las consultas si es que son molestas.

[*Caro*]

Hola de nuevo, por lo que veo tu DNI debe ser de tipo Integer, para utilizar el like y sus comodines tienes que pasarle como String, no lo conviertas a entero.

Código Delphi [-]
 ParamByName ('plega').Value:=lega.Text+'%';

Nota.- Si te sale un error en tu programa es mejor que nos digas el error exacto que te sale, así nos damos cuenta mas rapido y gracias por no confundirme con amigo.

Saluditos