Generar PDF a partir de resultado de consulta desde Visual Basic 2005

[Carlojas]

Buenos dias compañeros, mi inquietud es la siguiente: me gustaría saber la forma(Si existe claro) de generar un reporte de cierta consulta a mi BD SQL Server en formato PDF desde VB 2005, utilizo los objetos de la colección System.Data.Odbc, ahora se necesita de un programa adicional al VS para hacerlo? o existe alguna librería en el VS que permita realizar este proceso?, de antemano muchas gracias por sus valiosos aportes.



Saludos.

[Carlojas]

Alguna idea al respecto compañeros?



Saludos.

[mvazquez]

Hola Carlojas...

Ahí tienes la solución, así es como yo lo hago, pero ahorita estoy teniendo un problema de que ya cuando van.......... digamos 700 o 800 PDF's me los empieza a poner "borrosos" o solo me pone pedazos del contenido, yo atribuyo a la memoria del motor de crystal pero no estoy seguro, estoy en espera de un comentario de la gente que sabe mas, pero si generaras pocos pdf's así te funciona muy bien, yo genero en promedio 5000 pdf's
Saludos.


http://www.forosdelweb.com/f29/reportes-blanco-647429/

[erick_arcini]

Por que no utilizas iTextSharp, es fácil, portable y gratis, digo, con crystal también lo podrías hacer, pero siento que la dll itextsharp trabaja más rápido.

[mvazquez]

Hola erick_arcini, sabes si esa Dll funciona para WinForm?

[Peterpay]

claro que funciona.

[mvazquez]

Ok, intentare aplicarlo para ver si me puede generar 5000 pdf's sin problema alguno.

Gracias.

[mvazquez]

Nop, no funciona para lo que quiero, solo CREA pdf pero no Convierte, yo necesito convertir reportes de crystal a PDF...

[Peterpay]

ah pues eso es completamente diferente, jajajaja, asi pasa mvazquez pero hay q revisar tu codigo para ver que demoños (demonios) esta pasando

[mvazquez]

Por hace todo perfectamente bien Peter, pero ya cuando lleva unos 700 o 800 PDF's me los empieza a crear borrosos, como si pasara un borrador sobre el texto, te pongo aqui el codigo.

Código:

ReportDocument rptDocument = new ReportDocument();
rptDocument.Load("C:\Reportes\Uno.rpt");

DiskFileDestinationOptions destino = new DiskFileDestinationOptions();
ExportOptions Exp = new CrystalDecisions.Shared.ExportOptions();
Exp.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.PortableDocFormat;
Exp.ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.DiskFile;
destino.DiskFileName = "C:\Reportes\Uno.pdf";
                  

Exp.ExportDestinationOptions = destino;
rptDocument.Export(Exp);
                   
rptDocument.Dispose();

Te comento, todo funciona de maravilla solo eso, al crear grandes cantidades los pone borrosos y para solucionarlo cierro la aplicacion y lo vuelvo a correo y ya funciona bie pero ese no es el caso, tal parece como si al motor de Crystal o PDF no se, sele acabara la memoria... help me!!

[Peterpay]

ok, pregunta tonta hay algun reporte que se repita???

haces todo en secuencial, o implementas un hilo para que vaya haciendo 2 o mas reportes a la vez????


desde donde invocas a este codigo??

a mi me late que tu memoria se esta quedando ocupada y pues al hacer sobre escritura no se limpia todo.

[mvazquez]

No, no es tonta tu pregunta............

Primero voy a la base de datos a buscar unidades (no se repiten) luego, creo un PDF por cada unidad, el formato de reporte es el mismo solo que contiene diferente informacion.

Acabo de hacer esto, que opinas?

Como limpio la memoria????????????????????????????

Le estoy agregando memoria pero no se si en realidad eso funcione

Código:

IntPtr ptr = Marshal.AllocHGlobal(1024);
GC.AddMemoryPressure(1024);

ReportDocument rptDocument = new ReportDocument();
rptDocument.Load(Settings.Default.PathReportes + NombreReporteCrystal);

DiskFileDestinationOptions destino = new DiskFileDestinationOptions();
ExportOptions Exp = new CrystalDecisions.Shared.ExportOptions();
Exp.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.PortableDocFormat;
Exp.ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.DiskFile;
destino.DiskFileName = RutaDestino + @"\" + NomPDF;
                  

Exp.ExportDestinationOptions = destino;
rptDocument.Export(Exp);
                   
rptDocument.Dispose();
Contador++;
                                                                            
if (ptr != IntPtr.Zero)
{
Marshal.FreeHGlobal(ptr);
      ptr = IntPtr.Zero;
      GC.RemoveMemoryPressure(1024);
} 

[Peterpay]

ok, porq no haces depsues del Export(exp)

rpt.Dispose(); //como ya lo tienes.
exp.Dispose();
destino.Dispose();

o en el mejor de los casos si el destino es el mismo sea global y pasado por referencia asi garantizas reutilizar ese objeto. y no crear 800 veces lo mismo.

es lo que veo que puedes probar.

PD: el codigo que colgaste como que no me da mucha confianza pero pues no se pierde nada con intentar.

[Carlojas]

Gracias a todos por sus aportes estaré investigando al respecto.


Saludos.