Report Viewer

¿Cómo crear un Report en Visual Basic?

·        

Tener una base de datos creada en Access

Cuando estemos en  nuestra base de datos le daremos  clic en examinar

Seleccionaremos nuestra base de datos de Access y vamos a dar clic en abrir

Vamos a elegir objetos de nuestra tabla de base de datos y por ultimo damos clic en finalizar

Ahora vamos a diseñamos nuestro informe

En el diseñador de informes se inserta un objeto lista (doble clic en el objeto) cuando aparezca el nombre la vamos a llamar DataSet después seleccionaremos el origen de datos,

 

 insertamos los campos que deseamos aparezcan

En un formulario insertamos ReportViewer y lo editamos dando doble clic en la esquina superior izquierda. Primero seleccionamos la opción acoplar en contenedor primario, y después vamos a escoger el informe (debe aparecer el nombre del informe que hicimos) una vez elegido el informe.

 En la parte inferior del diseñador de formularios hay algunos objetos que necesitaremos para llenar con el registro al informe (dsTablas y VehiculosBindingSource). Hacer doble clic sobre el formulario, se tendrá que abrir la página de código y esto es lo que deberá ir escrito:

Imports System.Data.OleDb

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'Crear la conexion con la base de datos y abrirla

Dim CadenaDeConexion As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Publicaciones_blog\Publicacion_Informe\Registro_de_vehiculos.accdb"

Dim oConexion As New OleDbConnection(CadenaDeConexion)

oConexion.Open()

'Crear una instruccion SQL-Select para obtener los datos

Dim cSQL As String = "Select * from Vehiculos order by Ciudad"

Dim da As New OleDbDataAdapter(cSQL, oConexion)

da.Fill(dsTablas, "Vehiculos")

'Cerrar la conexion

oConexion.Close()

Me.ReportViewer1.RefreshReport()

End Sub

End Class

Ejecutamos nuestro reporte con F5

Si se tuviere algún error quizá podría ser el DataSet o verifique que el código está bien escrito.