Crystal Report - Crystal Reports XI con XML

   
Vista:

Crystal Reports XI con XML

Publicado por jordi (1 intervención) el 11/02/2010 09:50:42
Buenos dias a todos.

Escribo para haber si me podrias ayudar con un problema que tengo con Crystal Reports XI.

Trabajo con Visual Basic 6 y crystal reports XI los reports tiene el origen de datos
en un fichero XML con Ado.net y necesitaria desde visual basic 6 cambiarle la ubicacion del archivo.

Tengo hecho este codigo pero no me funciona:

Dim crApp As New CRAXDDRT.Application
Dim crRep As New CRAXDDRT.Report
Dim ofrmRep As New FrmReporte

Set crRep = crApp.OpenReport("c:\Informe1.rpt", 1)
crRep.Database.LogOnServer "crdb_adoplus.dll", "C:\Cd\Prueba5.xml", "", "", ""

ofrmRep.Caption = "titulo"
ofrmRep.CRViewer1.ReportSource = crRep
ofrmRep.CRViewer1.DisplayGroupTree = False
ofrmRep.CRViewer1.ViewReport

Set crRep = Nothing
Set crApp = Nothing

ofrmRep.Show
Set ofrmRep = Nothing

Porfavor necesito ayuda.

Muchas gracias por la ayuda.
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

Crystal Reports XI con XML

Publicado por Roberto (2 intervenciones) el 09/10/2013 17:28:21
Pudiste resolverlo?
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

Crystal Reports XI con XML

Publicado por Juan Gilberto (129 intervenciones) el 10/10/2013 18:09:27
-----------------------------------
VB6 y OBJETOS CRYSTAL REPORTS (RDC)
-----------------------------------
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
Global CRApplication As New CRAXDRT.Application
Global CRReport      As New CRAXDRT.Report
Global CRConProp     As CRAXDRT.ConnectionProperty
Global CRTabla       As CRAXDRT.DatabaseTable
Global CRFormula     As CRAXDRT.FormulaFieldDefinition
Global CRSections    As CRAXDRT.Sections
Global CRSection     As CRAXDRT.Section
Global CRSubRpt      As CRAXDRT.Report
Global CRSubRptObj   As CRAXDRT.SubreportObject
Global CRRptObjs     As CRAXDRT.ReportObjects
Global CRField       As CRAXDRT.DatabaseFieldDefinition
Global ReportObject  As Object
Global GSelFor       As String
Global GTituloA      As String
Global MEnt2         As Integer
 
Ejemplo reporte "rec.rpt" utiliza DAO y Access
----------------------------------------------
    GTituloA = "Original Socio"
    GSelFor = "{Recibos.Recibo}=" & Chr(39) & "123" & Chr(39)
    Set CRReport = CRApplication.OpenReport(MyPath & "\rec.rpt", 1)
    For MEnt2 = 1 To CRReport.Database.Tables.Count
        Set CRTabla = CRReport.Database.Tables(MEnt2)
        Set CRConProp = CRTabla.ConnectionProperties("Database Type")
            CRConProp.value = "Access/Excel (DAO)"
        Set CRConProp = CRTabla.ConnectionProperties("Database Name")
            CRConProp.value = App.Path & "\Caja.mdb"
        Set CRConProp = CRTabla.ConnectionProperties("Database Type")
            CRConProp.value = "Access"
        Set CRConProp = CRTabla.ConnectionProperties("Session UserID")
            CRConProp.value = ""
    Next MEnt2
 
Ejemplo reporte "rec.rpt" utiliza ODBC y DSN y SQL
--------------------------------------------------
    Set CRReport = CRApplication.OpenReport(App.Path & "\rec.rpt", 1)
 
   For MEnt2 = 1 To CRReport.Database.Tables.Count
       Set CRTabla = CRReport.Database.Tables(MEnt2)
       Set CRConProp = CRTabla.ConnectionProperties("Provider")
           CRConProp.value = "MSDASQL"
       Set CRConProp = CRTabla.ConnectionProperties("Data Source")
           CRConProp.value = "myDSN"
       Set CRConProp = CRTabla.ConnectionProperties("Initial Catalog")
           CRConProp.value = "myDBname"
       Set CRConProp = CRTabla.ConnectionProperties("User ID")
           CRConProp.value = ""
       Set CRConProp = CRTabla.ConnectionProperties("Locale Identifier")
           CRConProp.value = "2058"
       Set CRConProp = CRTabla.ConnectionProperties("OLE DB Services")
           CRConProp.value = "-5"
   Next MEnt2
 
Ejemplo reporte "rec.rpt" utiliza OLE DB (ADO) y Access
-------------------------------------------------------
    Set CRReport = CRApplication.OpenReport(App.Path & "\rec.rpt", 1)
 
    For MEnt2 = 1 To CRReport.Database.Tables.Count
        Set CRTabla = CRReport.Database.Tables(MEnt2)
        Set CRConProp = CRTabla.ConnectionProperties("Database Type")
            CRConProp.Value = "OLE DB (ADO)"
        Set CRConProp = CRTabla.ConnectionProperties("Provider")
            CRConProp.Value = "Microsoft.Jet.OLEDB.4.0"
        Set CRConProp = CRTabla.ConnectionProperties("Data Source")
            CRConProp.Value = App.Path & "\sysGAP.mdb"
        Set CRConProp = CRTabla.ConnectionProperties("User Id")
            CRConProp.Value = "Admin"
        Set CRConProp = CRTabla.ConnectionProperties("Database Type")
            CRConProp.Value = "Access"
        Set CRConProp = CRTabla.ConnectionProperties("Locale Identifier")
            CRConProp.Value = "1033"
        Set CRConProp = CRTabla.ConnectionProperties("OLE DB Services")
            CRConProp.Value = "-6"
    Next MEnt2
 
 
Ejemplo de como modificar FORMULAS en tiempo de ejecucion y de
           como pasar la RecordSelectionFormula
--------------------------------------------------------------
    For MEnt1 = 1 To CRReport.FormulaFields.Count
        Select Case CRReport.FormulaFields(MEnt1).name
            Case "{@a}": CRReport.FormulaFields(MEnt1).Text = "Trim(" & Chr(39) & "MexMarketing,

Inc." & Chr(39) & ")"
            Case "{@b}": CRReport.FormulaFields(MEnt1).Text = "Trim(" & Chr(39) & GTituloA &
 
Chr(39) & ")"
        End Select
    Next MEnt1
    If Trim(GSelFor) <> "" Then
        CRReport.RecordSelectionFormula = GSelFor
    End If
 
Ejemplo de como modificar origen de datos en tiempo de ejecucion en SUBREPORTES
-------------------------------------------------------------------------------
    Set CRSections = CRReport.Sections
    For Each CRSection In CRSections
        Set CRRptObjs = CRSection.ReportObjects
        For Each ReportObject In CRRptObjs
            If ReportObject.Kind = CRAXDRT.CRObjectKind.crSubreportObject Then
                Set CRSubRptObj = ReportObject
                Set CRSubRpt = CRSubRptObj.OpenSubreport
                For MEnt2 = 1 To CRSubRpt.Database.Tables.Count
                    Set CRTabla = CRSubRpt.Database.Tables(MEnt2)
                    Set CRConProp = CRTabla.ConnectionProperties("Database Type")
                        CRConProp.value = "Access/Excel (DAO)"
                    Set CRConProp = CRTabla.ConnectionProperties("Database Name")
                        CRConProp.value = App.Path & "\Caja.mdb"
                    Set CRConProp = CRTabla.ConnectionProperties("Database Type")
                        CRConProp.value = "Access"
                    Set CRConProp = CRTabla.ConnectionProperties("Session UserID")
                        CRConProp.value = ""
                Next MEnt2
            End If
        Next ReportObject
    Next CRSection
 
Ejemplo de como modificar campos de SORT en tiempo de ejecucion
---------------------------------------------------------------
    'Selecciona para Sort el campo 2 de la Tabla=1 del rpt
    Set CRField = CRReport.Database.Tables.Item(1).fields.Item(2)

    CRReport.RecordSortFields.Item(1).field = CRField
    CRReport.RecordSortFields.Item(1).SortDirection = crAscendingOrder
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