Quiero imprimir un reporte crystal con ODBC
Publicado por Luís Alberto (1 intervención) el 08/08/2007 22:14:50
Hola a todos y felicidades por el foro:
pues miren, tengo un pequeño problema: primero tengo VB60, una base de datos access 2003 con una lista de todos los alumnos del establecimiento y finalmente un reporte hecho en CR 4.6. en las instrucciones que le dí me da el error "20536 en tiempo de ejecución" "imposible conectar: registro de parámetros incorrectos".
alguien del foro del visual me indicaba que podría ser que el error se debe a que el crystal ese que tengo no puede conectarse con el access 2003, entonces me sugieren que la codificación la haga con el método ODBC. si alguien me puede dar una mano os agradezco mucho, y ahí le pongo lo que tengo.
Private Sub imprimir_Click()
If DataCombo1 <> "" Then 'con este datacombo selecciono el curso a listar
strFormula = "({curso}='" & ensayo.DataCombo1.Text & " ')"
strlistado = "Listado Generales de Alumnos"
strtitulo = "Listado por curso"
rport = "c:\encanto\rpt\datosgen1.rpt"
With MDIprobando.reporte
.ReportFileName = rport
.SelectionFormula = strFormula
.DataFiles(0) = "C:\encanto\integrl.mdb"
.WindowTitle = strtitulo
.Destination = crptToPrinter
.Action = 1 ' aquí me da el error mencionado
End With
Else
MsgBox "Por favor elija un curso para imprimir", vbOKOnly
End If
End Sub
pues cualquier ayuda que me pudiesen brindar será bien recibida, gracias a todos y saludos cordiales
Luís Alberto
pues miren, tengo un pequeño problema: primero tengo VB60, una base de datos access 2003 con una lista de todos los alumnos del establecimiento y finalmente un reporte hecho en CR 4.6. en las instrucciones que le dí me da el error "20536 en tiempo de ejecución" "imposible conectar: registro de parámetros incorrectos".
alguien del foro del visual me indicaba que podría ser que el error se debe a que el crystal ese que tengo no puede conectarse con el access 2003, entonces me sugieren que la codificación la haga con el método ODBC. si alguien me puede dar una mano os agradezco mucho, y ahí le pongo lo que tengo.
Private Sub imprimir_Click()
If DataCombo1 <> "" Then 'con este datacombo selecciono el curso a listar
strFormula = "({curso}='" & ensayo.DataCombo1.Text & " ')"
strlistado = "Listado Generales de Alumnos"
strtitulo = "Listado por curso"
rport = "c:\encanto\rpt\datosgen1.rpt"
With MDIprobando.reporte
.ReportFileName = rport
.SelectionFormula = strFormula
.DataFiles(0) = "C:\encanto\integrl.mdb"
.WindowTitle = strtitulo
.Destination = crptToPrinter
.Action = 1 ' aquí me da el error mencionado
End With
Else
MsgBox "Por favor elija un curso para imprimir", vbOKOnly
End If
End Sub
pues cualquier ayuda que me pudiesen brindar será bien recibida, gracias a todos y saludos cordiales
Luís Alberto
Valora esta pregunta
0