Crystal Report - Problema con Cristal Report 8.5 y BDD Access 2003 con password

   
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Problema con Cristal Report 8.5 y BDD Access 2003 con password

Publicado por Ciro (14 intervenciones) el 11/10/2011 01:58:43
Por si a alguien le sirve les comento que lo he solucionado con esto:
For i = 1 To Report.Database.Tables.Count
Report.Database.Tables(i).SetLogOnInfo "", "", "", "miclave"
Next i
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar