CRX! + VB6 = Error 429 Activex
Publicado por rhyno (1 intervención) el 14/08/2007 16:18:41
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
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
0