Elaborar un informe utilizando un DataSet y pasarle parámetros

A continuación tenemos un ejemplo que nos permitirá elaborar un informe utilizando.

• DataSet.xsd Un conjunto de datos , por lo general se presentan en forma de tabla. Cada columna representa una variable en particular. Cada fila corresponde a un determinado miembro del conjunto de datos en cuestión
• Report.rdlc Permitirá procesar y mostrar el informe en la aplicación
• ReportViewer Se utiliza para alojar informes en proyectos de aplicaciones para windows

En nuestro caso estamos utilizando un DataSet, esta compuesta por un procedimiento almacenado que tiene una variable "@estado".

Paso 1: Agregamos un nuevo DataSet

Paso 2: Pulsamos clic en Explorador de servidores.

Paso 3: Establecemos la conexión con el origen de datos.

Paso 4: Seleccionamos procedimientos almacenados, en nuestro caso SP_LISTAR_PRODUCTOS_POR_ESTADO, la cual tiene un parámetro Fil,GetData(@ESTADO)

Paso 5: Agregamos nuevo informe.

Paso 6: Una vez agregado el informe seleccionamos

Datos de informe > Nuevo > Conjunto de datos

 

Elijemos el conjunto de datos.

Paso 7: Configuramos nuestro informe.

Paso 8: Agregamos nuevo formulario.

Paso 9: Agregamos un nuevo control ReporViewer

Luego elejimos el informe que vamos a mostrar y automáticamente nos creara lo siguientes: DataSet, BindingSource, TableAdapter.

Paso 10: Programamos el evento SelectedIndexChanged del combobox.

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

Try

  'capturamos el valor de items seleccionado

  Dim _Estado As String = ComboBox1.SelectedItem

  Me.SP_LISTAR_PRODUCTOS_POR_ESTADOTableAdapter.Fill(Me.DataSet1.SP_LISTAR_PRODUCTOS_POR_ESTADO, _Estado)

  Me.ReportViewer1.RefreshReport()

Catch ex As Exception

    MessageBox.Show(ex.Message, "vb.net", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try

End Sub

Paso 11: Vista final del informe