Buenos dias estimados amigos foristas :
Estoy generando una aplicación en visual basic 6 y quiero mostrar la información de la base de datos en reportes empleando el software crystal report 8.5
Cuando trabajo sin parámetros, el reporte me corre sin problemas... Ahora bien, cuando quiero hacer una consulta en la base de datos y mostrar los resultados en el reporte me da el siguiente error :
ERROR 91 en tiempo de ejecución. Variable de tipo object o la variable de bloque with no está establecida...
Cuando depuro la falla está aqui :
.Database.SetDataSource rs
El código que estoy empleando en mi software es el siguiente :
Dim cn As ADODB.Connection
Dim rs As New ADODB.Recordset
Dim conexion As String
Dim conparametro As CrystalReport1
Private Sub Form_Load()
Set cn = New ADODB.Connection
conexion = "DRIVER={mysql odbc 5.1 driver};" _
& "SERVER=XXX.XXX.XXX.XXX;" _
& "Database=---------;" _
& "UID=-------------;" _
& "password=-----------;" _
& "port=3306;option3 "
cn.ConnectionString = conexion
cn.Open
Dim codi
Dim rs
codi= InputBox("Escriba el código del empleado")
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = cn
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open "select * from planificado where cod_audit like '%" & codi & "%' order by cod_audit", cn
End With
With conparametro
.Database.SetDataSource rs
.PaperOrientation = 1
.PaperSize = 45
.DiscardSavedData
End With
CRViewer1.ReportSource = conparametro
CRViewer1.ViewReport
End Sub
Private Sub Form_Resize()
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth
End Sub
De antemano agradezco mucho el apoyo que me puedan brindar...
Buen dia.
Carlos.
