Informe con Crystal
Publicado por Zer0 (8 intervenciones) el 30/11/2003 03:03:46
Tengo un informe hecho con crystal que muestro en un reportviewer dentro de u formulario. El problema que tengo es que no consigo conectarlo con la base de datos que en cada momento me interesa y siempre me muestra los datos de la base que utilicé para diseñar el informe. El código que uso es el que está debajo:
crReportDocument = New RPT()
crConnectionInfo = New ConnectionInfo()
Dim LOG As CrystalDecisions.Shared.TableLogOnInfo
LOG = crReportDocument.Database.Tables.Item("TABLA").LogOnInfo
LOG.ConnectionInfo.ServerName = SERVIDOR
LOG.ConnectionInfo.DatabaseName = BASEDATOS
lOG.ReportName = "RPT.RPT"
With crConnectionInfo
.ServerName = SERVIDOR
.DatabaseName = BASEDATOS
.UserID = ""
.Password = ""
End With
crDatabase = crReportDocument.Database
crTables = crDatabase.Tables
For Each crTable In crTables
crTableLogOnInfo = crTable.LogOnInfo
crTableLogOnInfo.ConnectionInfo = crConnectionInfo
crTable.ApplyLogOnInfo(crTableLogOnInfo)
Next
crReportDocument.Refresh()
FrmInforme.CrwInforme.ReportSource = crReportDocument
FrmInforme.Show()
se me olvidaba, uso la seguridad integrada de windows para conectarme con la base de datos. Gracias por todo, un saludo.....
crReportDocument = New RPT()
crConnectionInfo = New ConnectionInfo()
Dim LOG As CrystalDecisions.Shared.TableLogOnInfo
LOG = crReportDocument.Database.Tables.Item("TABLA").LogOnInfo
LOG.ConnectionInfo.ServerName = SERVIDOR
LOG.ConnectionInfo.DatabaseName = BASEDATOS
lOG.ReportName = "RPT.RPT"
With crConnectionInfo
.ServerName = SERVIDOR
.DatabaseName = BASEDATOS
.UserID = ""
.Password = ""
End With
crDatabase = crReportDocument.Database
crTables = crDatabase.Tables
For Each crTable In crTables
crTableLogOnInfo = crTable.LogOnInfo
crTableLogOnInfo.ConnectionInfo = crConnectionInfo
crTable.ApplyLogOnInfo(crTableLogOnInfo)
Next
crReportDocument.Refresh()
FrmInforme.CrwInforme.ReportSource = crReportDocument
FrmInforme.Show()
se me olvidaba, uso la seguridad integrada de windows para conectarme con la base de datos. Gracias por todo, un saludo.....
Valora esta pregunta


0