Problema con Cristal Report 8.5 y BDD Access 2003 con password
Publicado por Ciro (14 intervenciones) el 05/10/2011 23:19:29
Hola Foro, buen día.
En un Sistema VB6+CR 8.5 SP3 + Access 2003 todo funcionaba perfecto hasta que decidí ponerle una clave a la BDD Access (para evitar que algún usuario curioso toque los datos).
Al hacer lo mencionado, cuando quiero generar los reportes me presente al siguiente error:
"Server has not yet been opened" [0]
Aclaro, que la cadena de conexión que uso hardcodeada dentro del sistema funciona perfecto y me permite grabar, borrar y/o editar datos, el problema solo es con los reportes del crystal report.
Acon.Open "cadenaodbc", "sa", "clave"
Donde, "cadenaodbc" es el nombre que tengo registrado en el ODBC de Windows XP, y "clave" es la clave que le puse a la BDD Access.
El código que utilizo para presentar el reporte es este:
Public WithEvents aRs As ADODB.Recordset 'Principal
Dim Report As rptEjemplo
Private Sub Form_Load()
Set Report = Nothing
Set Report = New rptEjemplo
Set aRs = New Recordset
Screen.MousePointer = vbHourglass
aRs.Open "consultaTraeDatos", Acon, adOpenStatic, adLockOptimistic
Report.Database.Tables(1).SetDataSource aRs
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
CRViewer1.Zoom 100
CRViewer1.DisplayGroupTree = False
Screen.MousePointer = vbDefault
End Sub
He probado agregar lo del SetSessionInfo pero sigue sin funcionar.
[0] http://s2.subirimagenes.com/otros/previo/thump_6996602dibujo123.jpg
En un Sistema VB6+CR 8.5 SP3 + Access 2003 todo funcionaba perfecto hasta que decidí ponerle una clave a la BDD Access (para evitar que algún usuario curioso toque los datos).
Al hacer lo mencionado, cuando quiero generar los reportes me presente al siguiente error:
"Server has not yet been opened" [0]
Aclaro, que la cadena de conexión que uso hardcodeada dentro del sistema funciona perfecto y me permite grabar, borrar y/o editar datos, el problema solo es con los reportes del crystal report.
Acon.Open "cadenaodbc", "sa", "clave"
Donde, "cadenaodbc" es el nombre que tengo registrado en el ODBC de Windows XP, y "clave" es la clave que le puse a la BDD Access.
El código que utilizo para presentar el reporte es este:
Public WithEvents aRs As ADODB.Recordset 'Principal
Dim Report As rptEjemplo
Private Sub Form_Load()
Set Report = Nothing
Set Report = New rptEjemplo
Set aRs = New Recordset
Screen.MousePointer = vbHourglass
aRs.Open "consultaTraeDatos", Acon, adOpenStatic, adLockOptimistic
Report.Database.Tables(1).SetDataSource aRs
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
CRViewer1.Zoom 100
CRViewer1.DisplayGroupTree = False
Screen.MousePointer = vbDefault
End Sub
He probado agregar lo del SetSessionInfo pero sigue sin funcionar.
[0] http://s2.subirimagenes.com/otros/previo/thump_6996602dibujo123.jpg
Valora esta pregunta
0