with ClientDataSet do
begin
Close;
Determinar_Tipo_de_CombinacionSQL;
CommandText := strCadenaSQL;
dbgrid1.Columns.Clear; for i := 0 to FieldCount-1 do
dbgrid1.Columns.Add.FieldName := Fields[i].FieldName;
FetchParams;
Params.ParamByName('NombreParámetro').Text := ElEditAsociado.Text;
Open;
end;