none
Mostrar datos de busqueda en reporte RRS feed

  • Pregunta

  • Buen día.

    estoy trabajando en un proyecto en VB2010 y tengo un formulario llamado Form1 donde el usuario puede ingresar un código de búsqueda, según el cual se buscara en la base de datos en SQL 2008 el empleado correspondiente para luego ser mostrado en un formulario llamado Show el cual se llena con la información del reporte de Crystal Report.

    Así pues:  Form1(búsqueda) -->muestra Show(resultado en reporte), el problema que tengo es que no me muestra ningún dato y no se cual es el error, les dejo el código que utilizo en el Form1 talvez puedan ayudarme:

    *se realiza la búsqueda al presionar el Button1 y textbox1 es el nombre del textbox donde se introduce el código a buscar

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

            Dim codigo As String = TextBox1.Text     'de aqui tomo el valor del codigo a buscar

            Dim ds As New Datos                      'nombre del dataset   

            Dim rpt As New Reporte                   'nombre del reporte en Crystal Report

            Dim muestra As New Show                  'nombre del formulario con el CrystalReportViewer

            Try

                UsingSql As New SqlConnection(My.Settings.cnn)  'cnn es el nombre de mi conexión en app.config

                    Sql.Open()

                    Using cmd As New SqlCommand()

                        cmd.Connection = Sql

                        cmd.CommandText = "select * from empleado where codigo=@codigo"  'empleado es el nombre de la tabla

                        cmd.Parameters.AddWithValue("@codigo", codigo)

                        Using da As New SqlDataAdapter(cmd)

                            da.Fill(ds, "empleados")    'lleno el Dataset ds

                            rpt.SetDataSource(ds)       'especifico la informacion para el reporte    

                            muestra.CrystalReportViewer1.ReportSource = rpt     'muestro la información

                            muestra.ShowDialog()  'si aparece el reporte pero no muestra ningún dato asociado al código de búsqueda

                        End Using

                    End Using

                End Using

            Catch ex As Exception

                MessageBox.Show(ex.Message)

            End Try

        End Sub


    pabletoreto

    jueves, 22 de noviembre de 2012 16:14