Hola amigo te envio algo de codigo para tratar los query desde codigo
a mi me funciona bien pasandole paramtros
Código Delphi
[-]
procedure Mquey2(DtoEdit:array of string;opc,opc1: integer); begin
DataModule2.Query2.CLOSE;DataModule2.Query2.SQL.Clear;
DataModule2.query2.sql.add('SELECT CODCLI, NOMECLI, NIF, DIRECCION, POBLACION,
PROVINCIA, TF_FAX, TF_1, TF_MV, OFERTA, T_PRECIO1, T_PRECIO2, T_DTO1, ULTCOMPRA, LIMT_RIESG');
DataModule2.query2.sql.add('FROM "CLIENT.DBF" Client');
Case Opc Of
1: begin
Case Opc1 Of
1: begin DataModule2.query2.sql.add('WHERE (CODCLI = :CODCLI)');
DataModule2.Query2.Params[0].AsString := DtoEdit[0]; DataModule2.query2.sql.add('ORDER BY CODCLI') ;
end;
2: begin
DataModule2.query2.sql.add('WHERE NOMECLI LIKE :NOMECLI '); DataModule2.Query2.Params[0].AsString:= (DtoEdit[0] + '%') ;
DataModule2.query2.sql.add('ORDER BY NOMECLI') ;
end;
end;
DataModule2.Query2.open;
end;
end;
end;
saludos