query con parametros ayudenme?

[juangabriel1786]

Alguien ayudeme como hacer una consulta con un adoquery pasandole un parametro que se lee de un edit1, osea que mientras se baya digitando algo en el edit se balla filrtando en un dbgrid abajo que esta asociado al query en el evento onkey press yo tengo este codigo

consulta,s : String;
begin
s:='';
consulta:='';
//seleccionamos el campo activo o inactivo
if RadioGroup1.ItemIndex = 0 then
begin
s:='cod_unidad';
with Myquery do
begin
Myquery.Close;
Myquery.Parameters.ParamByName('parametro').Value := s;
Myquery.Parameters.ParamByName('parametro1').Value := criterio.text;
//Myquery.SQL.Add('select cod_unidad,descripcion,nota from unidad where cod_unidad =arametro1');
Myquery.Open;

// DBgrid1.DataSource:=DSMyquery;
end;
end
else
begin
s:='descripcion';
with Myquery do
begin
Myquery.Close;
Myquery.Parameters.ParamByName('parametro').Value := s;
Myquery.Parameters.ParamByName('parametro1').Value := criterio.text;
Myquery.Open;

//DBgrid1.DataSource:=DSMyquery;
end;

y en la propiedad sql del query tengo esto:


select cod_unidad,descripcion,notas from unidad where arametro like arametro1;

[droguerman]

sin parametros podria ser algo asi:

Código Delphi [-]
  with dataset do
  begin
     filtered := false;
     filter := 'cod_unidad LIKE '+quotedStr(edit1.text+'%');
     filtered := true;
  end;

[ContraVeneno]

¿para que utilizas "With" si de todos modos estas escribiendo todo el componente?

Es como ponerte zapatos deportivos y no hacer ejercicio...

Si utilizas:

Código Delphi [-]
with MyQuery do begin

No es necesario que pongas el componente otra vez:

Código Delphi [-]
with MyQuery do begin
 MyQuery.Open; //esto no es lógico
end; //with

Lo correcto sería:

Código Delphi [-]
with MyQuery do begin
  Open; 
end; //with

[ramonc]

A mi me gusta montar las queries dinámicamente dentro del código, por ejemplo

Código Delphi [-]
 
    q.SQL.Add('SELECT  a.PUMPID, a.CABNOM, a.MAXFRE, a.TIP, B.MAXVOL, B.STA, B.ENA');
    q.SQL.Add('from TCALPUMP a, TTNK b');
    q.SQL.Add('WHERE A.PUMPID = ' + vPumpId; //numero de bomba
    q.SQL.Add('ORDER BY 1');

y si te fijas, el parámetro lo concatenas.

Saludos

[[basti]]

El problema creo que es que estás intentando utilizar un parámetro como nombre de campo. Los parámetros sólo valen para valores. Tendrías que hacer una combinación entre crear la consulta y el parámetro. Algo así:

Código Delphi [-]
Myquery.Close;
Myquery.SQL.Clear;
Myquery.SQL.Add('select cod_unidad,descripcion,notas from unidad ');
Myquery.SQL.ADD('where '  + s + ' like : parametro1');
Myquery.Parameters.ParamByName('parametro1').Value := criterio.text;
Myquery.Open;