actualizar datos crystal report
Publicado por jose (35 intervenciones) el 02/03/2004 19:56:19
A ver quien me puede ayudar.
He creado un reporte con crystal report 9 y una aplicacion con visual basic net para abrir este reporte. La primera vez que lo abro lo hace bien pero luego no refresca los datos que cambio en la base de datos
He leido por este foro de desactivar la opcion Archivo-Guardar datos con informe. Ya lo he hecho pero nada de nada.
A continuacion adjunto el codigo para ver si alguien ve algun error.
Dim rpt As CrystalDecisions.CrystalReports.Engine.ReportDocument
rpt = New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim strFilePath As String
crviewer.ReportSource = Nothing
strFilePath = "C:\Documents and Settings\Administrador\Mis documentos\Visual Studio Projects\borrame\BORRAME2" & "\PersonalInterior.rpt"
rpt.Load(strFilePath)
Dim logOnInfo As TableLogOnInfo
logOnInfo = New TableLogOnInfo
Dim i As Integer
For i = 0 To rpt.Database.Tables.Count - 1
logOnInfo.ConnectionInfo.ServerName = ""
logOnInfo.ConnectionInfo.DatabaseName = ""
logOnInfo.ConnectionInfo.UserID = ""
logOnInfo.ConnectionInfo.Password = "inquidesa2080"
rpt.Database.Tables.Item(0).ApplyLogOnInfo(logOnInfo)
Next
crviewer.ReportSource = rpt
rpt.Refresh()
Gracias por vuestra ayuda
He creado un reporte con crystal report 9 y una aplicacion con visual basic net para abrir este reporte. La primera vez que lo abro lo hace bien pero luego no refresca los datos que cambio en la base de datos
He leido por este foro de desactivar la opcion Archivo-Guardar datos con informe. Ya lo he hecho pero nada de nada.
A continuacion adjunto el codigo para ver si alguien ve algun error.
Dim rpt As CrystalDecisions.CrystalReports.Engine.ReportDocument
rpt = New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim strFilePath As String
crviewer.ReportSource = Nothing
strFilePath = "C:\Documents and Settings\Administrador\Mis documentos\Visual Studio Projects\borrame\BORRAME2" & "\PersonalInterior.rpt"
rpt.Load(strFilePath)
Dim logOnInfo As TableLogOnInfo
logOnInfo = New TableLogOnInfo
Dim i As Integer
For i = 0 To rpt.Database.Tables.Count - 1
logOnInfo.ConnectionInfo.ServerName = ""
logOnInfo.ConnectionInfo.DatabaseName = ""
logOnInfo.ConnectionInfo.UserID = ""
logOnInfo.ConnectionInfo.Password = "inquidesa2080"
rpt.Database.Tables.Item(0).ApplyLogOnInfo(logOnInfo)
Next
crviewer.ReportSource = rpt
rpt.Refresh()
Gracias por vuestra ayuda
Valora esta pregunta


0