error de logueo al intentar abrir reporte con t mu
Publicado por juanm (1 intervención) el 15/03/2006 15:49:21
Tengo un problema al intentar abrir un reporte, la base de datos es sql server 2000.
El error que me tira es que el usuario no es valido de la base de datos pero si lo es.
Ej. Si el reporte tiene una sola tabla funciona bien, pero si tiene mas de una tabla ya no funciona. que puede ser les paso el codigo.
Dim CRReport As CRAXDRT.Report
Dim CRApp As New CRAXDRT.Application
Dim CRParam As New CRAXDRT.ParameterValue
Dim CRConn As New CRQUERYENGINE.QEUtil
Set rs = New ADODB.Recordset
Set CRReport = CRApp.OpenReport(App.Path & "\reports\pruebaa.rpt")
With CRReport
rs.Open sqlq, objconn, adOpenStatic, adLockReadOnly
.DiscardSavedData
.Database.SetDataSource rs
'.Database.Tables(1).
.EnableSelectDistinctRecords = True
.DisplayProgressDialog = True
CrystalActiveXReportViewer1.EnableToolbar = True
CrystalActiveXReportViewer1.EnableRefreshButton = True
End With
CrystalActiveXReportViewer1.ReportSource = CRReport
CrystalActiveXReportViewer1.ViewReport
El error que me tira es que el usuario no es valido de la base de datos pero si lo es.
Ej. Si el reporte tiene una sola tabla funciona bien, pero si tiene mas de una tabla ya no funciona. que puede ser les paso el codigo.
Dim CRReport As CRAXDRT.Report
Dim CRApp As New CRAXDRT.Application
Dim CRParam As New CRAXDRT.ParameterValue
Dim CRConn As New CRQUERYENGINE.QEUtil
Set rs = New ADODB.Recordset
Set CRReport = CRApp.OpenReport(App.Path & "\reports\pruebaa.rpt")
With CRReport
rs.Open sqlq, objconn, adOpenStatic, adLockReadOnly
.DiscardSavedData
.Database.SetDataSource rs
'.Database.Tables(1).
.EnableSelectDistinctRecords = True
.DisplayProgressDialog = True
CrystalActiveXReportViewer1.EnableToolbar = True
CrystalActiveXReportViewer1.EnableRefreshButton = True
End With
CrystalActiveXReportViewer1.ReportSource = CRReport
CrystalActiveXReportViewer1.ViewReport
Valora esta pregunta


0