Reportes VB.NET con crystal Reports y Sql Server

Empezamos

1. Creamos un proyecto en Visual Studio.Net
2. Nos situamos en las propiedades del proyecto.
3. Seleccionamos la pestaña Settings creamos una variable tipo Connection String.
4. Le damos un valor en la Opción Value.
5. Elegimos nuestro servidor en mi caso .\SQLEXPRESS utilizo el punto para indicar el local Host.
6. Seleccionamos nuestra base de datos. 

1. Elegimos en el menú la Opción Data 
2. En la siguiente pantalla Opción DataBase,DataSet.
3. Elegimos nuestra cadena de conexión agregada anteriormente.(Aquí se puede agregarla también )
4. Elegimos todos nuestros objetos si los tuviésemos yo en este caso tengo :Tablas y Vistas.

5. Diseño de nuestro Reporte

1. Agregamos un nuevo Reporte y realizamos el diseño lo podemos realizar muy rápidamente con el asistente.
2. Agregamos Formulario (Frm_Reporte y en el un CrystalReportViewer con la opción de Modifiers= Public. (Nota:Si no lo tenemos en el Toolbox el CrystalReportViewer cambiamos nuestro .Net Framework a : Net Framework 4 y agregamos las lineas en el archivo App.conf

Si tienes errores al ver los reportes agrega estas lineas en el App.conf


 6.Formularios

1. Creamos otro formulario para que contenga todos nuestros posibles reportes en el.
2. Agregamos un modulo en el cual tendrá un código  para poblar nuestro reporte.

Visual Studio.Net
Imports CrystalDecisions.CrystalReports.Engine Imports System.Data.SqlClient Module Module1 Public Sub poblarreporte(ByVal titulo As String, ByVal consultaSql As String, ByVal tabla As String, ByVal reporte As String) Dim sqlConn As SqlConnection Dim sqlDaCate As SqlDataAdapter Dim dsPc As New dbCrystalREjemploDataSet Dim strConn As String = My.Settings.Cn_db Dim StrCommCate As String = consultaSql Try 'Crear los DataAdapters sqlConn = New SqlConnection(strConn) sqlDaCate = New SqlDataAdapter(StrCommCate, sqlConn) 'Poblar las tablas del dataset desde los dataAdaperts ' sqlDaCate.Fill(dsPc, "V_TIME_WORK" ) sqlDaCate.Fill(dsPc, tabla) 'Poblar el informe con el dataSet y mostrarlo Dim info As New ReportDocument info.FileName = Application.StartupPath + "\Reportes\" + reporte info.SetDataSource(dsPc) Dim cnx As New SqlConnection cnx = New SqlConnection(strConn) Dim cmd As New SqlCommand(consultaSql, cnx) cmd.CommandType = CommandType.Text cnx.Open() Dim lectura As SqlDataReader = cmd.ExecuteReader() If lectura.Read = True Then Dim frm_hijo As New Frm_Reportes frm_hijo.Text = titulo frm_hijo.CrystalReportViewer1.ReportSource = info frm_hijo.Show() Else MessageBox.Show( "ERROR NO HAY REGISTROS" ) 'MENSAJE SI NO HAY REGISTROS End If Catch ex As Exception MessageBox.Show(ex.ToString) End Try End Sub End Module
Para poblar el reporte agregamos un botón al formulario principal y agregamos este código
poblarreporte("Lista de Productos", "select * from V_LISTA_PRODUCTOS", "V_LISTA_PRODUCTOS", "Rpt_ListaProductosrpt.rpt")


PRUEBAS