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?