Visual Basic - CRX! + VB6 = Error 429 Activex

Life is soft - evento anual de software empresarial
 
Vista:

CRX! + VB6 = Error 429 Activex

Publicado por rhyno (2 intervenciones) el 14/08/2007 18:58:03
Buenas.

Tengo un problema al tratar de instalar mi sistema en otra maquina cualquiera, me tira el error 429 de que no puede crear el objeto ActiveX. Tengo instaladas las .dll correspondientes crviewer y el craxdrt20. He leido en varias partes como actualizar errores del CRXI (DEVELOPER) y lo hice, actulizar el MDAC y no me dejo hacerlo en las maquinas destino pero se que esta actualizado, en vex de colocar Dim Application As New CRAXDRT.Application sacarle el NEW y dejarlo solo pero no funciona, lo probe en maquina con win2000, winXP, winUE 6.0 y winUE 7.0 y en todas me sale lo mismo, instale VB6 en una maquina destino no funciono, le instale CRXI tampoco, le puse los dos y tampoco funciono, ya me volvi loco tratando de soluionar este problema pero no llego nada y estoy contra el tiempo, alquien ha tenido este problema que me pueda ayudar a solucionarlo. Dejo aki el codigo.

Dim Report As CRAXDRT.Report 'Inicia Reporte
Dim crParamDefs As CRAXDRT.ParameterFieldDefinitions
Dim Application As New CRAXDRT.Application 'Inicia Aplicacion
Dim crpDatabase As CRAXDRT.Database
Dim crpTables As CRAXDRT.DatabaseTables
Dim crpTable As CRAXDRT.DatabaseTable

Private Sub Form_Load()
Abro_Datos
Set Aux = Datos.OpenRecordset("select * from informe where curso = '" & Trim(nombrecurso) & "'")
Set Report = Application.OpenReport(App.Path & "\rpt\Reporte.por.Curso.rpt", 1)
Report.DiscardSavedData
Set crxDatabase = Report.Database
Set crxDatabaseTables = crxDatabase.Tables
Report.Database.SetDataSource Aux
CrystalActiveXReportViewer1.ReportSource = Report
CrystalActiveXReportViewer1.EnableExportButton = True
CrystalActiveXReportViewer1.DisplayGroupTree = False
CrystalActiveXReportViewer1.EnablePopupMenu = False
CrystalActiveXReportViewer1.EnableDrillDown = False
CrystalActiveXReportViewer1.EnableSelectExpertButton = False
CrystalActiveXReportViewer1.ViewReport
CrystalActiveXReportViewer1.Zoom 80
Screen.MousePointer = vbDefault

End Sub

rhyno
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:CRX! + VB6 = Error 429 Activex

Publicado por Juan Lopez Mendoza (1 intervención) el 27/10/2007 00:24:23
Hola que tal rihno cheque tu codigo y pues veo que consultas las tablas no te seria mas facil hacer el filtrado atravez del recordselectionformula te paso el codigo debe de estar en tu formulario donde pusiste el viewer de crystal espero te sirva si no ahi ta mi correo.

Dim crystal As New CRAXDDRT.Application
Dim report As New CRAXDRT.report
Dim varReport As CRAXDRT.report

Private Sub Command1_Click()
crviewer.DisplayBorder = False
crviewer.DisplayTabs = False
crviewer.EnableDrillDown = False

On Error Resume Next

Set crystal = CreateObject("CrystalRuntime.Application")

Set crystal = New CRAXDRT.Application
Set report = crystal.OpenReport(App.Path & "\REPOTEMODECOD.rpt")

****** en esta parte pasas parametros de visual a crystal reports *********
report.ParameterFields(1).AddCurrentValue ("REPORTE DE LECTURA POR CODIGO DE BARRAS")

******* en esta otra parte haces el filtrado de una seleccion de campo de determinada tabla y la visualizas ***************
report.RecordSelectionFormula = "{tconteo.codigo} = '" & Trim(Frmophistorial.unidad2) & "'"
crviewer.Refresh
crviewer.ReportSource = report
crviewer.ViewReport
frmreportes.Caption = ""
Do While crviewer.IsBusy
DoEvents
Loop

crviewer.EnableAnimationCtrl = False
crviewer.Zoom 100
frmreportes.WindowState = 2

Set crystal = Nothing
Set report = Nothing

End Sub

Private Sub Form_Load()
crviewer.DisplayBorder = False
crviewer.DisplayTabs = False
crviewer.EnableDrillDown = False

On Error Resume Next

Set report = Nothing
Set crystal = Nothing
Set crystal = CreateObject("CrystalRuntime.Application")

Set crystal = New CRAXDRT.Application
Set report = crystal.OpenReport(App.Path & "\REPOTEMODECOD.rpt")

crviewer.Refresh
crviewer.ReportSource = report
crviewer.ViewReport
frmreportes.Caption = ""
Do While crviewer.IsBusy
DoEvents
Loop

crviewer.EnableAnimationCtrl = False
crviewer.Zoom 100
frmreportes.WindowState = 2

Set crystal = Nothing
Set report = Nothing
End Sub

Private Sub Form_Unload(Cancel As Integer)
Unload Me
End Sub

Private Sub Form_Resize()
crviewer.Top = 0
crviewer.Left = 0
crviewer.Height = ScaleHeight
crviewer.Width = ScaleWidth
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar