problemas con parametros en adoquery

[elsamurai]

hola a todo el mundo hace algunos dias pedi ayuda para poder lograr un reporte de un solo cliente y no de toda la base de datos,con ayuda de los expertos del foro entendi como hacerlo,pero ahora tengo una duda,estoy usando un componente adoquery y tengo las siguientes propiedades asi,

sql=select * from clientes

parameters=nombre del tipo isstring

conectionstring =base de datos

y en el boton de imprimir tengo este codigo

Código Delphi [-]
with adocliente do
close;
parameters.parambyname.('nombre').value:=nombre
open
end;
end;
form2.quickrep1.preview;
form2.close;
end;
end.

que ustedes opinan,mi intensión es poder imprimir el cliente que seleccione a través de el dbgrib,cuando tengas tiempo agradecería una pequeña ayuda,gracias desde ahora

[rgstuamigo]

Existe dos formas de crear un parametro para un Dataset(Query,Table,etc) una es atraves de la propiedad Parameters, ya sea agregandolo manualmente en tiempo de Diseño o creandolo en ejecucion atraves de los métodos Add ó AddParameter; y la otra forma es atraves de la consulta SQL anteponiendo los dos puntos( : ) a un nombre específico que queramos.

¿Pero qué te quiero decir con esto?
Bueno. la cuestion es que en tu consulta SQL que has puesto en ningun momento estas haciendo uso del parametro.
Para que lo hagas,tu consulta SQL en tu DataSet(Query) debería ser así:

Código SQL [-]
select * from clientes where Nombre = :Nombre_de_Tu_Parámetro

Al poner los dos Puntos, automáticamente se está creando un parámetro en el DataSet con el nombre "Nombre_de_Tu_Parámetro", lo cual significa que ya no sería necesario crearlo en la propiedad Parameters.
Ahora sí ya se podría hacer algo como:

Código Delphi [-]
with adocliente do
close;
parameters.parambyname.('Nombre_de_Tu_Parámetro').value:=nombre
open
end;
...
...

Saludos...

[elsamurai]

saludos,gracias por responderme,mira modifique mi consulta y puse

Código SQL [-]
select * from cliente where nombre=:variable

le puse el nombre de variable a mi parametro y en el codigo del boton tengo esto

Código Delphi [-]
with  dm.ADOfactura do
begin
 close;
parameters.ParamByName('nombre').Value:=variable ;
  open;
     if IsEmpty then
      begin
        ShowMessage('Registro no existe...');
        exit;
      end;
end;
rptfactura.quickrep1.preview;
rptfactura.close;

cuando lo intento ejecutar me dice un error que dice que la palabra variable no esta declarada,que crees que pueda ser ?

[rgstuamigo]

Empezado por elsamurai

cuando lo intento ejecutar me dice un error que dice que la palabra variable no esta declarada,que crees que pueda ser ?

Debes entender que si has creado un parametro de nombre "variable" en tu consulta SQL

Código SQL [-]
select * from cliente where nombre=:variable  <--  

entonces debes buscarlo con ese mismo nombre >

Código Delphi [-]
with  dm.ADOfactura do
begin
 close;
parameters.ParamByName('variable').Value:=variable ;//<--en esta linea estaba tu error 
...
...

Saludos...

[elsamurai]

mira probe lo que me dices,puse lo siguiente

Código Delphi [-]
with  dm.ADOfactura do
begin
 close;
parameters.ParamByName('variable').Value:= variable ;
  open;
     if IsEmpty then
      begin
        ShowMessage('Registro no existe...');
        exit;
      end;
end;
rptfactura.quickrep1.preview;
rptfactura.close;

y todavia me dice que variable esta sin declarar

[rgstuamigo]

Empezado por elsamurai

mira probe lo que me dices
...
...
y todavia me dice que variable esta sin declarar

Haber...Pusiste la consulta SQL en la propiedad SQL de tu DataSet (ADOQuery)?
Por que si no has puesto pues estamos fritos.; Humm...bueno en todo caso lo vamos a poner por código>

Código Delphi [-]
with dm.ADOfactura do
begin
 Close;
 SQL.Text:='select * from cliente where nombre = :variable';//añado mi consulta SQL que quiero ejecutar
 Parameters.ParamByName('variable').Value:=Edit1.Text;// Asigno lo que tengo e mi Edit a mi parámetro de nombre "Variable"
 Open;
   if IsEmpty then
    begin
     ShowMessage('Registro no existe...');
     exit;
    end;
...
...

Saludos...

[elsamurai]

muchas gracias rgstuamigo,el codigo que me diste me sirvio mucho y me saco de una gran duda que tenia desde hace tiempo,espero que este tema le pueda servir a otros como me sirvio a mi,gracias de nuevo,asi es como deje el codigo final

Código Delphi [-]
with dm.ADOfactura do
begin
 Close;
 SQL.Text:='select * from clientes where nombre = :variable';//añado mi consulta SQL que quiero ejecutar
 Parameters.ParamByName('variable').Value:=dbedit1.Text;;// Asigno lo que tengo e mi Edit a mi parámetro de nombre "Variable"
 Open;

rptfactura.quickrep1.preview;
rptfactura.close;
  end
end;

end.