dudas con crystal reports

[chato13]

la duda es la siguiente ,tengo que hacer varios reportes en crystal con vb 2005 ,y cada uno tiene cadena de consultas bastantes complejas ....no tengo idea de como hacer los reportes,me gustaria que me lo expliquen desde cero

[l222p]

mira este PDF yo he hecho reportes pero en VB 2008 Y 2010 supongo q es lo mismo en 2005

http://www.willydev.net/InsiteCreation/v1.0/descargas/prev/crearcrystal.pdf

[chato13]

trate de pasar el codigo y me da error ,me gustaria que me aclares mas ese codigo ya que no manejo mucho esto de los reportes

[l222p]

{
// Ejecuta la consulta a la base dados
sqlDataAdapter1.Fill(dataSet11);
// Crea el reporte
CrystalReport1 Rel = new CrystalReport1();
// Asocia el conjunto de datos con el reporte
Rel.SetDataSource(dataSet11);
// Asocia el reporte con el Visualizador
crystalReportViewer1.ReportSource = Rel;
}

supongo q es este???

bueno alli esta explicado...
el lenguaje es C#

en esta linea estas llenando el DataSet11 desde el SqlDataADapter1
sqlDataAdapter1.Fill(dataSet11);

en este creas el reporte
CrystalReport1 Rel = new CrystalReport1();

en esta linea los datos que estan almacenados los muestra en el reporte
Rel.SetDataSource(dataSet11);

y aqui es mostrado en pantalla el reporte
Rel.SetDataSource(dataSet11);

[chato13]

te mando mi codigo ,para ver donde esta el error....me abre el reporte pero no me muestra nada..

Dim dsprueba As New dsDeudasAno 'dataset
dim mireporte As New R_reporte_ano '
Dim cadena As String = "PROVIDER=Microsoft.JET.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Mercado_Municipal.mdb"
Dim con As New OleDb.OleDbConnection(cadena)


con.Open()


Dim da As New OleDb.OleDbDataAdapter("SELECT p.pagmesFecPago AS fechaP, p.pagmesPreciototal AS precio, p.pagmesPrecioSaldo AS saldo, b.boxnom AS nombre, c.dpagmesrec AS recibo, c.dpagmespag, c.dpagmesfec FROM C_Pago_x_mes AS p, Box AS b, D_Pago_cuota AS c WHERE (p.pagmesPreciototal<>p.pagmesPrecioSaldo) And (p.pagmesBoxcod=b.boxcod) And (p.pagmesRecibo=0) And (p.pagmesCod=c.dpagmesCod) and p.pagmesFecPago like '*2010' ORDER BY b.boxnom DESC", con)

da.Fill(dsprueba)

mireporte.SetDataSource(dsprueba)

Me.CrystalReportViewer1.ReportSource = mireporte
Me.CrystalReportViewer1.Show()
con.Close()

[l222p]

ese codigo es VB.NET y el q te di es de C#, no entiendo mucho el VB.NET asi q no puedo ayudarte...

[emmax]

Dim Reporte As New CrystalDecisions.CrystalReports.Engine.ReportDocum ent
Reporte = New CrystalDecisions.CrystalReports.Engine.ReportDocum ent()
Reporte.Load("Ruta de tu reporte")
Reporte.SetDataSource(DataTable)
CrystalReportViewer1.ReportSource = Reporte

Este es un codigo que tengo ya funcionando, la unica diferencia es que yo cargo los datos del DataAdapter a un DataTable que es lo que le doy como fuente de datos al Reporte, espero te sirva de algo.

[chato13]

la verdad no se como hacerlo, trate de hacer lo que me decis pero no me da

[Ka0stj]

Prueba con lo siguiente:

Código vb:

Private Sub Llenar_Reporte()
 
        Dim MiDataSetDatos As New DataSet
 
        Dim Adaptador As SqlDataAdapter
        Dim SQL_Adaptador As String = "Aquí tu Query"
 
        Try
            'Crear la conexión
            objConn = New SqlConnection(MiConexion.StrConexion)
 
            'Abro la conexion 
            objConn.Open()
 
            Adaptador = New SqlDataAdapter(SQL_Adaptador, objConn)
 
            'Llamando al metodo Fill para llenar mi DataSet
            Adaptador.Fill(MiDataSetDatos, "Tabla o vista")
 
            'Creo una instancia de mi Reporte
            Dim info As New Reporte
 
            info.SetDataSource(MiDataSetDatos)
 
            CrystalReportViewer1.ReportSource = info
 
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
 
    End Sub
 

Yo utilizo este procedimiento Sub y me funciona a la perfección.

Saludos!

[emmax]

Private Sub frm_reporte_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim conexion As String = "string de conexion"
Dim sqlcon As New SqlConnection(conexion)
sqlcon.Open()
Dim da As SqlDataAdapter
Dim dt As DataTable
da = New SqlDataAdapter("aqui tu Query", sqlcon)
dt = New DataTable
da.Fill(dt)
sqlcon.Close()
Dim CrReport As New CrystalDecisions.CrystalReports.Engine.ReportDocum ent
CrReport = New CrystalDecisions.CrystalReports.Engine.ReportDocum ent()
CrReport.Load("ruta del tu reporte junto con el nombre del reporte \*.rpt")
CrReport.SetDataSource(dt)
CrystalReportViewer1.ReportSource = CrReport
End Sub

Este es el sub que uso para cargar el reporte, solo adapta los comandos SQL a OLEDB y te debe de funcionar, tambien yo tengo el ReportViewer en un Form aparte y al reporte le debes de agregar un datatable con los campo del select que tengas para que te agregue los datos

como te digo el ReportViewer lo tengo en un form y este sub lo pongo en el load del form.

[chato13]

cuando paso el codigo me da error en este comando SqlDataAdapter

[chato13]

muchas gracias ,despues de mucho buscar me lo solucionaron

[l222p]

Ka0stj y emmax, donde se escriben esos códigos??? en MenuItem????? con evento click?? o donde??

[Ka0stj]

Ese método lo puedes escribir en la mima clase de tu Form, es decir, lo puedes poner en el Form donde tienes el ReportViewer y lo mandas llamar desde el método Load del mismo. Cualquier duda la hacer saber.

Saludos!

[l222p]

hice una base de datos (ADO.NET) ... y tambien un reporte.. segui los pasos pero no me salia nada en el reporte... mira este link
http://www.forosdelweb.com/f29/crystal-report-no-muestra-datos-664384/
lo mismo me pasa a mi, es en VB.NET
que tendo q agregar para que salga el reporte???

[emmax]

l222p toma el pedaso de codigo que puse, y adaptalo a tus necesidades y ponlo en el evento load del form donde tienes el reportviewer, te debe de funcionar.

[Ka0stj]

Estas usando el método Sub que te dije???
Pon tu código algo tienes mal, puede ser que no se este llenando tu Dataset

[visualtig]

en vb.net hay formas sencillas de llenar un datagridview, puedes hacer procedimientos almacenados en tu base de datos y en vb.net solo mandarlo a llamar con dichos paramatros y te ahorras un buen de trabajo y le das mas elegancia a tu programacion creando funciones clases y objetos.
saludos