crystal reports 11 vb6

[carnero]

hola, necesito hacer reportes en mi aplicacion y voy a usar crystal reports 11.
la cosa es que no se nada de crystal reports y me gustaria que me ayudaran un poco, lo primero que no puedo hace es conectar el crystal reports con la base de datos uso sql server 2005 y conecto mi proyecto con ADODB
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

[abrahamvj]

Al instalar el CR XI Dev (OJO, DEV) este crea un asistente en tu VB 6.0 en el menu "Poyecto", usalo y comentas.. OJO, lee algo del tema

Abraham

[lokoman]

Hola!

Chequea el link:
http://www.recursosvisualbasic.com.a...vb-ejemplo.zip

[carnero]

Iniciado por lokoman

Hola!

Chequea el link:
http://www.recursosvisualbasic.com.a...vb-ejemplo.zip

gracias voy a reviar

[carnero]

Iniciado por abrahamvj

Al instalar el CR XI Dev (OJO, DEV) este crea un asistente en tu VB 6.0 en el menu "Poyecto", usalo y comentas.. OJO, lee algo del tema

Abraham

me sirve??

en proyecto si tengoo la opcion agregar CR11

[abrahamvj]

No sabria decirte si sirve o no, ya que no entrare a ese enlace y menos lo descargare.

OJO, edita tu mensaje y borra el enlace, va contra las relgas del foro

Yendo a la parte positiva, pues ya tienes como agregar en tu VB 6.0 tu CR XI

Saludos

Abraham

[carnero]

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")

[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

[carnero]

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

me puedes explicar aunque sea un poco???
trate de hacer algo y nada me resulto

graciasssss
me urgeeeeeeeeeeeeeeeeeeeeeeeeeeee