Hola a todos
help plisss!!!
Tengo uan duda consrespecto a como invocar una plantilla de crystal report desde vb 6.0 he consultado ya infinidad de codigos y ejemplos pero nada em funciona al correr mi aplticacion me aprece un error que me dice que se requiere un objeto les comparto mi codigo para que me puedan
Private Sub Form_Load()
On Error GoTo err_handler
Dim crxApp As CRAXDRT.Application
Dim crxRpt As CRAXDRT.Report
Dim strSql As String
Dim rs As ADODB.Recordset
Dim ConexionActual As New ADODB.Connection
' Dim cTCSolicitud, cTCaplicado, cValorTemp As Currency
Dim cadena As Stream
'Obtener los datos
Screen.MousePointer = 13
ConexionActual = Conexion(BDNomina, UsrConexionNomina, PwdBDNomina, 0)
ConexionActual.Open
'Abre el recordset
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
'asignación del query
strSql = "SELECT TRANS_folio,trans_cc_id_origen,trans_cc_id_destino ,trans_id_cliente_origen,trans_id_cliente_destino, trasn_tipo_operacion,trans_monto,trans_fecha_aplic acion,trans_fecha_solicitud,trans_moneda, trans_descripcion,trans_afecta_edo_operacion from COFI_TRANSFERENCIAS where trans_afecta_edo_operacion=1"
With rs
Set .ActiveConnection = ConexionActual
.CursorType = adOpenStatic
.LockType = adLockBatchOptimistic
.CursorLocation = adUseClient
.Source = strSql
.Open
End With
Screen.MousePointer = 0
CRViewer.DisplayTabs = False
CRViewer.EnableRefreshButton = False
Set crxApp = New CRAXDRT.Application
Set crxRpt = crxApp.OpenReport("C:\Documents and Settings\admin\Desktop\COFI - Prototipo\Reportes\ReporteTransferencias.rpt")
' Set crxRpt = crxApp.OpenReport(App.Path & "\Reportes\ReporteTransferencias.rpt")
crxRpt.DiscardSavedData
crxRpt.Database.SetDataSource rs
CRViewer.ReportSource = crxRpt
CRViewer.ViewReport
Do While CRViewer.IsBusy
DoEvents
Loop
CRViewer.Zoom 100
rs.Close
Set rs = Nothing
Set crxRpt = Nothing
Set crxApp = Nothing
exit_sub:
Exit Sub
err_handler:
Screen.MousePointer = 0
MsgBox Err.Description, vbCritical
End Sub
Private Sub Form_Resize()
With CRViewer
' .Top = 0
' .Left = 0
' .Height = ScaleHeight
' .Width = ScaleWidth
End With
End Sub
ayudar mejor gracias de antemano, llevo varias horas con esto
anexo mi manejado de BD es Oracle 8.1 y la version de crystal es 8.5
