Pasar datos a un report

[Javiglez]

Hola, tengo un formulario donde saco una serie de datos de una base de datos SQL SERVER y quiero luego generar un pdf con el crystal repor...entonces el código que tengo en el Boton de generar el pdf es el siguiente...

Código:

Dim f As New PlantillaReport

        Dim rpt As CrystalDecisions.CrystalReports.Engine.ReportDocument
        If VG.TipoEtiquetaInspeccion = "Animales" Or VG.TipoEtiquetaInspeccion = "Contenedores de Animales" Then

            rpt = New ActaInspeccionAnimales

        Else

            rpt = New ActaInspeccionSubproductos

        End If

        Me.Close()

 
        f.CrystalReportViewer1.ReportSource = rpt

        rpt.SetDataSource(Dniter.Text)

        rpt.SetDataSource(LugarInspt.Text)

        'rpt.SetDataSource(ComboBox1.SelectedIndex)

        rpt.SetDataSource(pert.Text)

        rpt.SetDataSource(Letra.Text)

        rpt.SetDataSource(Presen.Text)

 

        f.Show()

Lo muestro con el f.Show pero me falta saber como paso los datos que quiero sacar...estoy probando con el SetDataSource pero no hay manera...a ver si me podeis encarrilar porque no doy con ello y no encuentro ejemplos....Gracias un saludo.

[mvazquez]

Hola Javiglez

Te paso una liga ahi hay varias opciones de como crear PDF's en base a un reporte de crystal


http://vazquezvega.wordpress.com/cat...ystal-reports/

Saludos.

[Javiglez]

Iniciado por mvazquez

Hola Javiglez

Te paso una liga ahi hay varias opciones de como crear PDF's en base a un reporte de crystal


http://vazquezvega.wordpress.com/cat...ystal-reports/

Saludos.

Hola, ya he conseguido pasar los datos así,

Código:

Dim f As New PlantillaReport

        Dim rpt As CrystalDecisions.CrystalReports.Engine.ReportDocument

        Dim DS As DataSet

        Dim Query As String

 

        If VG.TipoEtiquetaInspeccion = "Animales" Or VG.TipoEtiquetaInspeccion = "Contenedores de Animales" Then

            rpt = New ActaInspeccionAnimales

        Else

            rpt = New ActaInspeccionSubproductos

        End If

 

        Query = " SELECT * FROM trav_acta " + _

               " WHERE c_tipo_transp = '" + VG.TipoTransp + "'" + _

                              "  AND c_tipo_medio = '" + VG.TipoMedio + "'" + _

                              "  AND c_anno_acta = " + VG.AnnoActa + _

                              "  AND c_prov_acta = " + VG.ProvActa + _

                              "  AND c_sec_acta = " + VG.SecActa

 

 

        Dim da As New SqlClient.SqlDataAdapter(Query, VG.ConexionBD)

        DS = New DataSet

        da.Fill(DS, "Actas")

        rpt.SetDataSource(DS.Tables("Actas"))

        CrystalReportViewer1.ReportSource = rpt

El tema es que tiene que haber alguna forma de con pasarle unos parámetros sacarme todo el report, porque si os fijais le paso un datatable con el resultado de una query pero que es bastante más complicada que lo que tengo puesto...y pienso que tiene que haber una forma que pasaron los campos clave de la tabla que le paso trav_acta, como el esquema de la base de datos y los cruces ya les tengo en el report, no tengo que ponerlos de nuevo en esta query...no se si me explico bien....