mostrar un reporte desde vb6
Publicado por raymundo (1 intervención) el 08/05/2006 21:15:08
hola a todos hize un reporte en cr10 y quiero que desde vb6 se muestre no se como hacerlo dicenque qeu con el crystalActiveXreportviewer lo colo en un formulario y despues dicen que agrege estas lineas al form pero me da error no se como se utiliza o que componentes o librerias hay que anexar por que me da error
Dim crReport As New CRAXDRT.Report
Dim tbl As CRAXDRT.DatabaseTable
Dim cadena(3) As String
cadena(0) = ""
cadena(1) = "bdfarma.mdb"
cadena(2) = ""
cadena(3) = ""
Set crReport = crApp.OpenReport(App.Path & "\orden de compra.rpt", 1)
For Each tbl In crReport.Database.Tables
tbl.SetLogOnInfo cadena(0), cadena(1), cadena(2), cadena(3)
Next
'Para filtrar la información del reporte sería así (ejemplo para rango de fecha):
crReport.RecordSelectionFormula = "{NOMTABLA.Fecha}>=date('" & VFecha1 & ") AND "{NOMTABLA.Fecha}<=date(" & VFecha2 & ")"
Crviewer1.ReportSource = crreport
Crviewer1.EnableExportButton = True
Crviewer1.ViewReport
cual es la soluciona este problema eh estado investigando y no encuetro nada al respecto espero me ayuden se los agradeceria muchisimo
Dim crReport As New CRAXDRT.Report
Dim tbl As CRAXDRT.DatabaseTable
Dim cadena(3) As String
cadena(0) = ""
cadena(1) = "bdfarma.mdb"
cadena(2) = ""
cadena(3) = ""
Set crReport = crApp.OpenReport(App.Path & "\orden de compra.rpt", 1)
For Each tbl In crReport.Database.Tables
tbl.SetLogOnInfo cadena(0), cadena(1), cadena(2), cadena(3)
Next
'Para filtrar la información del reporte sería así (ejemplo para rango de fecha):
crReport.RecordSelectionFormula = "{NOMTABLA.Fecha}>=date('" & VFecha1 & ") AND "{NOMTABLA.Fecha}<=date(" & VFecha2 & ")"
Crviewer1.ReportSource = crreport
Crviewer1.EnableExportButton = True
Crviewer1.ViewReport
cual es la soluciona este problema eh estado investigando y no encuetro nada al respecto espero me ayuden se los agradeceria muchisimo
Valora esta pregunta


0