Informe sin datos cuando la DB está en el servidor
Publicado por Jesus (8 intervenciones) el 15/11/2009 20:46:45
Buenas tardes a todos, tengo el siguiente problema.
Tengo un base de datos en sql server conectada a vb6 + CR8.5 mediante ODBC y cuando la DB está en local, me saca perfectamente el informe, el problema me viene cuando está en el servidor, entonces me devuelve un informe vacío, ya sea en PDF o por el CRviewer, y ya no se que hacer, he probado mil cosas.
Este código va dentro de una función donde le paso la ruta y nombre del reporte, la conexión y el resultset.
...... código para abrir el reporte
' también he probado con LogOnServer (parametros) pero es igual, no me saca nada, nose si se puede deber a la dll, y ya estoy un poco desesperado.
CRXReport.Application.LogOnServerEx "p2ssql.dll", Servidor, Cn.Name, Usuario, Clave
For i = 1 To CRXReport.Database.Tables.Count
' CRXReport.Database.Tables(i).SetLogOnInfo Servidor, Cn.Name, Usuario, Clave ' si le quito el rem me da error "El servidor aun no está abierto"
CRXReport.Database.Tables.Item(i).SetSessionInfo Usuario, Chr(10) & Clave
CRXReport.Database.Tables(i).Location = CRXReport.Database.Tables(i).Name
CRXReport.Database.Tables(i).SetDataSource Rs
Next i
..... según la opción elegida pasa a pdf o muestra en pantalla.
Gracias.
Un saludo.
Tengo un base de datos en sql server conectada a vb6 + CR8.5 mediante ODBC y cuando la DB está en local, me saca perfectamente el informe, el problema me viene cuando está en el servidor, entonces me devuelve un informe vacío, ya sea en PDF o por el CRviewer, y ya no se que hacer, he probado mil cosas.
Este código va dentro de una función donde le paso la ruta y nombre del reporte, la conexión y el resultset.
...... código para abrir el reporte
' también he probado con LogOnServer (parametros) pero es igual, no me saca nada, nose si se puede deber a la dll, y ya estoy un poco desesperado.
CRXReport.Application.LogOnServerEx "p2ssql.dll", Servidor, Cn.Name, Usuario, Clave
For i = 1 To CRXReport.Database.Tables.Count
' CRXReport.Database.Tables(i).SetLogOnInfo Servidor, Cn.Name, Usuario, Clave ' si le quito el rem me da error "El servidor aun no está abierto"
CRXReport.Database.Tables.Item(i).SetSessionInfo Usuario, Chr(10) & Clave
CRXReport.Database.Tables(i).Location = CRXReport.Database.Tables(i).Name
CRXReport.Database.Tables(i).SetDataSource Rs
Next i
..... según la opción elegida pasa a pdf o muestra en pantalla.
Gracias.
Un saludo.
Valora esta pregunta


0