Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Falla crystal report 8.5 VB6

Estas en el tema de Falla crystal report 8.5 VB6 en el foro de Visual Basic clásico en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 30/03/2011, 09:56
 
Fecha de Ingreso: septiembre-2009
Ubicación: Venezuela
Mensajes: 92
Antigüedad: 10 años, 4 meses
Puntos: 1
Falla crystal report 8.5 VB6

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.
  #2 (permalink)  
Antiguo 30/03/2011, 10:43
Avatar de culd  
Fecha de Ingreso: noviembre-2003
Mensajes: 959
Antigüedad: 16 años, 2 meses
Puntos: 19
Respuesta: Falla crystal report 8.5 VB6

Pusiste un
Dim rs
de mas...

Aparte en .Open del recorset, tenes que al final poner 2 comas mas, y establecer el tipo de cerradura.

En
CRViewer1.ReportSource = conparametro
Pone un SET
Set CRViewer1.ReportSource = conparametro

Fijate modificando eso y despues cantame

Etiquetas: crystal, falla, report, vb
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 15:45.