Crystal Reports 10 y Visual Basic 6.0

Jos?lonso Romero Mat?
26 de Enero del 2005
Hola,

Diseñe una aplicación en Visual Basic 6.0 con una ventana reusable de reportes (Crystal reports 10), y un servidor de datos SQL Server 2000 service pack 3, ahora todo funciona a la perfección, pero cuando quiero mostrar un reporte por primera vez despues de abrir mi aplicación, se tarda mas de un minuto en mostrarlo, y les repito, esto sólo sucede la primera vez, después de eso ya todo sucede de manera normal.

¿Que creen que pueda ser? Les muestro mi código de carga:
-----------------------------------------------------------

Dim cr_App As CRAXDRT.Application
Dim cr_Rep As CRAXDRT.Report

MouseOff
Set cr_App = Nothing
Set cr_Rep = Nothing
' Ahora damos de alta el reporte
Set cr_App = New CRAXDRT.Application
cr_App.NewReport
Set cr_Rep = cr_App.OpenReport(App.Path & "reportes" & is_archivo)


cr_Rep.Database.Tables(1).ConnectionProperties("Connect Timeout") = 6000
cr_Rep.Database.Tables(1).ConnectionProperties("General Timeout") = 6000
cr_Rep.Database.Tables(1).ConnectionProperties("Password") = gs_bdPasswd
cr_Rep.Database.Tables(1).ConnectionProperties("User ID") = "sa"
cr_Rep.Database.Tables(1).ConnectionProperties("Data Source") = gs_servidor

cr_Rep.ReportTitle = is_titulo

cr_Rep.ReportComments = is_comentario
cr_Rep.ReportAuthor = ""

If is_filtro <> "" Then
cr_Rep.RecordSelectionFormula = is_filtro
End If

cr_Rep.ReadRecords
crv_C.DisplayGroupTree = ib_arbol
crv_C.ReportSource = cr_Rep
crv_C.ViewReport

--------------------

Espero puedan ayudarme...

Gracias.

emiliomiguez
26 de Enero del 2005
Pues, a simple vista no se que puede ser; pero, ¿has probado a inertar un punto de interrupción en el inicio del código para ver, línea por línea cual es la que tarda tanto?