Ver Mensaje Individual
  #8  
Antiguo 15-10-2011
Avatar de felipe88
[felipe88] felipe88 is offline
Miembro Premium
 
Registrado: may 2007
Ubicación: Mi Valle del Cauca... Colombia!!!
Posts: 1.120
Reputación: 18
felipe88 Va por buen camino
Hola Casimiro, he logrado solucionarlo con el parámetro de sustitución, la verdad estaba confundido al principio de como usarlo, pero fué simple.
Ejemplo, yo tengo la siguiente consulta: SELECT * FROM CLIENTE WHERE NOMBRE LIKE :PARAMETRO, el parámetro de este tipo solo reemplaza la cadena o frase que le indique, en este caso solo le indique cambiar "NOMBRE" por "ID" y en Delphi sería algo así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var rept: OleVariant;
begin
  rept := CreateOleObject('ReportMan.ReportManX');
  rept.Preview := true;
  rept.ShowProgress := false;
  rept.ShowPrintDialog:= false;
  rept.Title := 'Informe de Prueba';
  rept.Filename := 'C:\MiReporte.rep';
  rept.Report.Params.Items[0].Value := 'ID';
  rept.SetParamValue('PARAMETRO',123); // 123 seria el ID del cliente
  rept.execute;
end;

Y funciona perfecto... ahora solo me surgió un pequeño detalle que me dejó volando , yo declaré el parámetro para el caso de buscar por nombre como cadena, pero no sé cómo pasarle el valor, ya que si hago algo como:

rept.SetParamValue('PARAMETRO','Fulanito');

no me retorna los datos, ¿cómo debo pasarle ese valor al like de la consulta?



Saludos!
__________________
Web
Responder Con Cita