
27/03/2009, 09:05
|
| | Fecha de Ingreso: marzo-2009
Mensajes: 1
Antigüedad: 16 años Puntos: 0 | |
Respuesta: Crystal (abrir reporte) Yo tengo un problema similar, le agregue seguridad a la base de datos y ya no funciono mi reporte, y me da el mismo error logon failed, he probado muchas soluciones que ecuentro en los foros y nada el codigo es el siguiente:
Dim crParamDefs As CRAXDRT.ParameterFieldDefinitions
Dim crParamDef As CRAXDRT.ParameterFieldDefinition
On Error GoTo ErrHandler
'Abrir el reporte
Screen.MousePointer = vbHourglass
mflgContinuar = True
c
Set crReport = crApp.OpenReport(App.Path & mStrParametro1, 1)
crReport.DiscardSavedData
' Parametros del reporte
Set crParamDefs = crReport.ParameterFields
For Each crParamDef In crParamDefs
Select Case crParamDef.ParameterFieldName
Case "IdEmpleado"
crParamDef.AddCurrentValue (mLongParametro2)
'Case "Parametro2"
' crParamDef.AddCurrentValue (mlngParametro2)
End Select
Next
CrViewer.ReportSource = crReport
CrViewer.Refresh
CrViewer.EnableRefreshButton = False
CrViewer.ViewReport
Screen.MousePointer = vbDefault
Set crParamDefs = Nothing
Set crParamDef = Nothing
Exit Sub
Es el codigo mas significativo, me falto agregar el manejador de errores, si alguien sabe la respuesta hagamelo saber, gracias. |