Validar busqueda en base de datos

[lucho1981]

Hola gente, les comento q este es mi primer hilo y q tambien soy nuevito en el mundo de delphi. Utilizo delphi 7 y MySQL, conectados por ODBC.
Mi problema surge intentar hacer una consulta.
Tengo un DBGrid (donde me mostrará la consulta) conectado a un DataSource y este a un Query. En el Query recibo por parametros el valor del TEdit.
La consulta se realiza con exito si pongo en el edit un apellido existente o el comienzo correcto de alguno, pero me salta un error cuando pongo a buscar un apellido q no existe en la DB.

Adjunto el codigo de la consulta por parametros y a continuacion de la consulta en MySQL

with Dm.Qape do
begin
ParamByName ('pape').Value:= ape.Text+'%';
ExecSQL;
Dm.Qape.Close;
Dm.Qape.Open;
end;


SELECT * FROM usuarios
WHERE apellido LIKE :pape


Espero haber sido muy claro y no repetitivo y q puedan contestar mi pregunta.
Muchas gracias.

[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