Generar reporte con CrystalReports

[DavidNovato]

Buenas,

Ya mi aplicacion esta casi lista, solo le falta la parte de generar reportes que la verddad si que estoy algo fritoo .. Estoy trabajando en visualstudio 2005 y ya tiene el Crystal integrado.. pero ahora como hago para conectarlo con la BD Mysql .. he buscado por la web.. y lo poco que entiendo no m resulta.. espero que puedan ayudarme .. gracias

[DavidNovato]

Ayuuuuuuuuuuuuuuuuuuuuuuuudaaaaaaaaaaaaaaaaaa

[Dradi7]

Pero por que no trabajas con un dataset tipado y por codigo lo rellenas el dataset con una consulta de tu MySql y lo envias al reporteador

Saludos

[DavidNovato]

SI eso he leiidoo .. pero no tengo idea como mndarlo al crystal... no se por mas q leo en la web no lo entiendo, de paso q no hablan de codigos ni nada.. solo hablan d la conexion pero por la opcion que te sale cuando creas el crystal, que elijes el formato y esas cosas .. :s

[Dradi7]

Pero en la web existen varios ejemplos no pongas excusas simples que no hay, yo he encontrado varios mira este por ejemplo

http://www.elguille.info/colabora/NE...roReportes.htm

[DavidNovato]

no son excusas ;) .. Gracias...

[DavidNovato]

BUENAS.!!!

necesito algo de ayuda.... tengo este codigo para generar el reporte.. :

Código vb:

Public Function Reportecliente() As DataTable
        Dim dt As New DataTable
        Dim conexion As New MySqlConnection("Server=localhost; Database=controlsmi; user=root; password=Smi2012") 'cadena conexion
        Dim consulta As String = "SELECT cliente.nombre, sede.nombre_sede, contacto.nombre from cliente, sede, contacto where cliente.id_cliente='" + cbocliente2.SelectedValue.ToString() + "' AND sede.id_sede='" + cbosede2.SelectedValue.ToString() + "' AND contacto.id_sede='" + cbosede2.SelectedValue.ToString() + "' "  'consulta a la tabla
        Dim comando As New MySqlCommand(consulta, MyConnect)
        Dim adap As New MySqlDataAdapter(comando)
        MyConnect.Open()
        adap.Fill(dt)
        MyConnect.Close()
        Return dt
    End Function
 

Código vb:

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
 
        Try
            Dim mireporte As New CrystalReport1
            Dim dt As New DataTable
            dt = Reportecliente()
            mireporte.SetDataSource(dt)
            frmreporte.CrystalReportViewer1.ReportSource = mireporte
            frmreporte.CrystalReportViewer1.RefreshReport()
            frmreporte.Show()
 
        Catch ex As Exception
            MsgBox("No se pudo generar el reporte", MsgBoxStyle.Critical)
            Return
        End Try
    End Sub
 

No se si eso esta bien, pro viendo tutoriales fue lo que pude sacar.... de 2 combobox elijo el cliente y la sede para que me de unn reporte de ese cliente en especifico... pro no lo genera se va por el CATCH

[DavidNovato]

el erro que me lanza es : "ERROR: Referencia a objeto no establecida como instancia de un objeto"

[DavidNovato]

Listo ya solucione...

Código vb:

Dim mireporte As New CrystalReport1
        Dim ds As New DataSet
        mireporte.SetDataSource(ds)
        frmreporte.CrystalReportViewer1.ReportSource = mireporte
        frmreporte.CrystalReportViewer1.RefreshReport()
        frmreporte.Show()
 

De esa manera me generar el reporte... pero me gustaria que fuera dependiendo de lo que yo seleccione de unos combobox.. y con un rango de fecha.. "desde xx/xx/xx hasta xx/xx/xx" si alguien sabe como hacerlo.. se lo agradeceria...