la cosa es que no se nada de crystal reports

quiero saber como conectar el royecto de crystal reports, como se hacen los reprtes y como conectar el reporte a visual basic 6
muuchas gracias

| |||
![]() hola, necesito hacer reportes en mi aplicacion y voy a usar crystal reports 11. la cosa es que no se nada de crystal reports ![]() quiero saber como conectar el royecto de crystal reports, como se hacen los reprtes y como conectar el reporte a visual basic 6 muuchas gracias ![]() |
| |||
![]() Cita: me sirve?? en proyecto si tengoo la opcion agregar CR11 Última edición por carnero; 28/05/2010 a las 18:50 |
| |||
Respuesta: crystal reports 11 vb6 he leido los tutoriales y todo eso, pero la verdad no me sale no se como darle los datos al crystal report si hago la consulta sql, como le digo que datos debe mostrar?? CR1 = RST.Filds("LOL") |
| ||||
Respuesta: crystal reports 11 vb6 Ya, te voy entendindo. Mira, la idea es crear el reporte con el asistente y luego ya con codigo vas enviandole los datos que desees. Mira y analiza esto, que va en el modulo del reporte CR: Option Explicit Private Report As Object Private Sub Form_Resize() CRViewer1.Top = 0 CRViewer1.Left = 0 CRViewer1.Height = ScaleHeight CRViewer1.Width = ScaleWidth End Sub Private Sub Form_Load() Dim rs As ADODB.Recordset, rs2 As ADODB.Recordset, rs3 As ADODB.Recordset Dim strSQL As String Set cnn = New ADODB.Connection cnn.ConnectionString = _ "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & m_ruta & "\DatossistemaIDL.mdb" & ";" & _ "Jet OLEDB:Database Password=xxx" cnn.Open WindowState = 0 Screen.MousePointer = vbHourglass Set Report = New CrystalReport1 Set rs = New ADODB.Recordset Set rs2 = New ADODB.Recordset If strreporte$ = "Area" Then strSQL = "SELECT * FROM Actividades WHERE Area='" & strarea$ & "' AND Fecha Between #" & diainicial & "# AND #" & diafinal & "#" ElseIf strreporte$ = "Responsable" Then strSQL = "SELECT * FROM Actividades WHERE Responsable='" & strresponsable$ & "' AND Fecha Between #" & diainicial & "# AND #" & diafinal & "#" End If Set rs = New ADODB.Recordset Set rs2 = New ADODB.Recordset Set rs3 = New ADODB.Recordset With rs .CursorLocation = adUseClient .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open strSQL, cnn, , , adCmdText End With strSQL = "SELECT * FROM Lugares" With rs2 .CursorLocation = adUseClient .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open strSQL, cnn, , , adCmdText End With strSQL = "SELECT * FROM TbltmpFin" With rs3 .CursorLocation = adUseClient .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open strSQL, cnn, , , adCmdText End With With Report .Database.SetDataSource rs .OpenSubreport("Lugares").Database.SetDataSource rs2 .OpenSubreport("Financiamiento").Database.SetDataS ource rs3 .PaperOrientation = 1 .PaperSize = 9 .DiscardSavedData End With With CRViewer1 .EnableDrilldown = False .DisplayGroupTree = False .DisplayTabs = False .EnableRefreshButton = True .ReportSource = Report .ViewReport .Zoom (2) End With WindowState = 2 Screen.MousePointer = vbDefault Set Report = Nothing rs.Close Set rs = Nothing rs2.Close Set rs2 = Nothing rs3.Close Set rs3 = Nothing End Sub |
| |||
![]() Cita: me puedes explicar aunque sea un poco???
Iniciado por abrahamvj ![]() Ya, te voy entendindo. Mira, la idea es crear el reporte con el asistente y luego ya con codigo vas enviandole los datos que desees. Mira y analiza esto, que va en el modulo del reporte CR: Option Explicit Private Report As Object Private Sub Form_Resize() CRViewer1.Top = 0 CRViewer1.Left = 0 CRViewer1.Height = ScaleHeight CRViewer1.Width = ScaleWidth End Sub Private Sub Form_Load() Dim rs As ADODB.Recordset, rs2 As ADODB.Recordset, rs3 As ADODB.Recordset Dim strSQL As String Set cnn = New ADODB.Connection cnn.ConnectionString = _ "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & m_ruta & "\DatossistemaIDL.mdb" & ";" & _ "Jet OLEDB:Database Password=xxx" cnn.Open WindowState = 0 Screen.MousePointer = vbHourglass Set Report = New CrystalReport1 Set rs = New ADODB.Recordset Set rs2 = New ADODB.Recordset If strreporte$ = "Area" Then strSQL = "SELECT * FROM Actividades WHERE Area='" & strarea$ & "' AND Fecha Between #" & diainicial & "# AND #" & diafinal & "#" ElseIf strreporte$ = "Responsable" Then strSQL = "SELECT * FROM Actividades WHERE Responsable='" & strresponsable$ & "' AND Fecha Between #" & diainicial & "# AND #" & diafinal & "#" End If Set rs = New ADODB.Recordset Set rs2 = New ADODB.Recordset Set rs3 = New ADODB.Recordset With rs .CursorLocation = adUseClient .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open strSQL, cnn, , , adCmdText End With strSQL = "SELECT * FROM Lugares" With rs2 .CursorLocation = adUseClient .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open strSQL, cnn, , , adCmdText End With strSQL = "SELECT * FROM TbltmpFin" With rs3 .CursorLocation = adUseClient .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open strSQL, cnn, , , adCmdText End With With Report .Database.SetDataSource rs .OpenSubreport("Lugares").Database.SetDataSource rs2 .OpenSubreport("Financiamiento").Database.SetDataS ource rs3 .PaperOrientation = 1 .PaperSize = 9 .DiscardSavedData End With With CRViewer1 .EnableDrilldown = False .DisplayGroupTree = False .DisplayTabs = False .EnableRefreshButton = True .ReportSource = Report .ViewReport .Zoom (2) End With WindowState = 2 Screen.MousePointer = vbDefault Set Report = Nothing rs.Close Set rs = Nothing rs2.Close Set rs2 = Nothing rs3.Close Set rs3 = Nothing End Sub trate de hacer algo y nada me resulto ![]() graciasssss me urgeeeeeeeeeeeeeeeeeeeeeeeeeeee Última edición por carnero; 14/06/2010 a las 02:56 |
Etiquetas: |