Error CR 11 con VB6
Publicado por tzalejo (4 intervenciones) el 28/08/2009 01:16:36
hola a todos...quisiera saber si ustedes pueden ver el error que me sale...yo no logro encontrarlo...El error me dice que "No implementado" pero antes pareciera querer abrir la bd c abre y c cierra varias veces y recien me dice el error...
Esto tengo en mi formulario cuando lo llamo...
On Error GoTo Fallo
Dim Crystal As New CRAXDRT.Application
Dim CrxReport As CRAXDRT.Report
strReport = App.Path & "EstadisticaCurso.rpt"
'apertura del informe
Set CrxReport = Crystal.OpenReport(strReport)
Dim CrxDatabaseTable As CRAXDRT.DatabaseTable
Dim RutaDatos As String
RutaDatos = App.Path & "cec.mdb"
For Each CrxDatabaseTable In CrxReport.Database.Tables
CrxDatabaseTable.Location = RutaDatos
Next
strSql = "{Comisiones.Cod_Curso} = " & Curso
CrxReport.RecordSelectionFormula = strSql
CRViewerCurso.ReportSource = CrxReport
CRViewerCurso.ViewReport
While CRViewerCurso.IsBusy
DoEvents
Wend
CRViewerCurso.Zoom 75
On Error GoTo 0
Exit Sub
Fallo:
MsgBox Err.Number
tbm agrego mi reporte...
en la bd tengo estas dos tablas
Cursos(Cod_Curso,NombreCurso,#Cuota,CostoMes,Inscripcion)
Comisiones(Cod_Comision,NombreCom,Horario,FechaInicio,FechaFinal,Cod_Curso)
PD:utilizo access y Crystal Report 11
muchas gracias......
Esto tengo en mi formulario cuando lo llamo...
On Error GoTo Fallo
Dim Crystal As New CRAXDRT.Application
Dim CrxReport As CRAXDRT.Report
strReport = App.Path & "EstadisticaCurso.rpt"
'apertura del informe
Set CrxReport = Crystal.OpenReport(strReport)
Dim CrxDatabaseTable As CRAXDRT.DatabaseTable
Dim RutaDatos As String
RutaDatos = App.Path & "cec.mdb"
For Each CrxDatabaseTable In CrxReport.Database.Tables
CrxDatabaseTable.Location = RutaDatos
Next
strSql = "{Comisiones.Cod_Curso} = " & Curso
CrxReport.RecordSelectionFormula = strSql
CRViewerCurso.ReportSource = CrxReport
CRViewerCurso.ViewReport
While CRViewerCurso.IsBusy
DoEvents
Wend
CRViewerCurso.Zoom 75
On Error GoTo 0
Exit Sub
Fallo:
MsgBox Err.Number
tbm agrego mi reporte...
en la bd tengo estas dos tablas
Cursos(Cod_Curso,NombreCurso,#Cuota,CostoMes,Inscripcion)
Comisiones(Cod_Comision,NombreCom,Horario,FechaInicio,FechaFinal,Cod_Curso)
PD:utilizo access y Crystal Report 11
muchas gracias......
Valora esta pregunta
0