Fran Diaz

DESPUES DE QUE SE HA DEFINIDO EL DATASOURCE PUEDE SER FILTRADO MEDIANTE PROGRAMACION EN UNA FUNCION LANZADA DESDE FUERA DEL FORMULARIO DONDE SE ENCUENTRA REPORTVIEWER QUIEN CONSUMIRA LA INFORMACION AL SER LANZADO EN EL EVENTO LOAD, DE LA SIGUIENTE MANERA:

*VISUAL BASIC 2008

   Function IniciarForma() As Integer 'Devuelve el numero de registros de: dsForm.tables(0)

       IniciarForma = 0

       strSQL = "SELECT"

       Select Case strTipoDelInforme.ToUpper

           Case "INCIDENCIAS"

               strSQL += " INC.idIncidencias,"

               strSQL += " INC.idEmpresa,"

               strSQL += " INC.idPeriodo,"

               strSQL += " INC.TipoPeriodo,"

               strSQL += " INC.Ejercicio,"

               strSQL += " INC.Periodo,"

               strSQL += " INC.Incidencia,"

               strSQL += " INC.Descripción,"

               strSQL += " INC.FechaHora,"

               strSQL += " EMP.NombreLargo,"

               strSQL += " ERE.NombreEmpresa,"

               strSQL += " HOR.DescripcionHorario,"

               strSQL += " EMP.Departamento,"

               strSQL += " EMP.Puesto,"

               strSQL += " EMP.TipoEmpleado,"

               strSQL += " EMP.Status"

               strSQL += " FROM"

               strSQL += " tbIncidencias AS INC,"

               strSQL += " tbEmpresas AS ERE, "

               strSQL += " tbHorarios AS HOR,"

               strSQL += " tbEmpleados AS EMP"

               strSQL += " WHERE"

               strSQL += " ERE.idEmpresa = INC.idEmpresa"

               strSQL += " AND"

               strSQL += " INC.idEmpleado = EMP.idEmpleado"

               strSQL += " AND"

               strSQL += " HOR.idHorario = EMP.idHorario"

               'NOMBRE DEL INFORME

               Select Case strNombreDelInforme.ToUpper

                   Case "INCIDENCIAS1"

                       strSQL += " AND"

                       strSQL += " Aplicado = 'SI'"

                       strNombreArchivoInforme = "rsIncidencias1.rdlc"

                   Case "INCIDENCIAS2"

                       strNombreArchivoInforme = "rsIncidencias2.rdlc"

               End Select

               'EMPLEADOS

               If strEmpleados.Length > 0 Then

                   strSQL += strEmpleados

               End If

               'FILTRO POR FECHAS O POR PERIODOS

               If strTipoPeriodo.Length > 0 Then

                   'FILTRO POR PERIODOS

                   strSQL += " AND"

                   strSQL += " INC.TipoPeriodo = '" & strTipoPeriodo & "'"

                   strSQL += " AND"

                   strSQL += " idPeriodo >= " & intIdPeriodoInicial.ToString

                   strSQL += " AND"

                   strSQL += " idPeriodo <= " & intIdPeriodoFinal.ToString

               End If

               If strFechaInicial.Length > 0 Then

                   'FILTRO POR FECHAS

                   strSQL += " AND"

                   strSQL += " FechaHora"

                   strSQL += " BETWEEN"

                   strSQL += " CONVERT(CHAR(10), CONVERT(DATETIME, '" & strFechaInicial & " 00:00:00 AM'), 112)"

                   strSQL += " AND"

                   strSQL += " CONVERT(CHAR(10), CONVERT(DATETIME, '" & strFechaFinal & " 00:00:00 AM'), 112)"

               End If

       End Select

       dsForm = Obtener_dsDeSQL(strSQL, , , , gl.NombreSistema, gl.BaseDatos)

       IniciarForma = dsForm.Tables(0).Rows.Count

       If IniciarForma > 0 Then 'Si hay registros por mostrar

           Select Case strTipoDelInforme.ToUpper

               Case "INCIDENCIAS"

                   rvReportes.LocalReport.ReportEmbeddedResource = "TempoControl." & strNombreArchivoInforme

                   tbIncidenciasBindingSource.DataSource = Nothing

                   tbIncidenciasBindingSource.DataSource = dsForm

                   tbIncidenciasBindingSource.DataMember = dsForm.Tables(0).TableName.ToString

                   Me.tbIncidenciasTableAdapter.Fill(Me.dsIncidencias.tbIncidencias)

           End Select

       End If

   End Function

   Private Sub FrmReportes_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown

       'Lanzar el reporte

       rvReportes.RefreshReport()

   End Sub

Fran en tu experiencia, haber si te ha sucedido algo asi, mis informes los muestro con un ReportViewer conectandolo a una BD SQl Server, pero de manera local, he evitado que te pida la contrasena un inicio de sesion y demas, pero cuando ejecutamos en una red(acceso remoto), te vuelve a hacer el mismo cuadro auqnue no pone el nombre de la DB y aunque le des el pass y user correcto no se conecta, habra una forma de evitar esto?

Bueno soy nuevo en esto y posiblemente mi pregunta sea algo muy muy simple.

La cosa es que no me aparece la pestaña Data y ya la busque por todos lados y no la encuentro

Hola Fran, cuando uno lo hacer pero utilizando el control Report View y el archivo .rdlc, que no es una interfaz igual a la que muestras, 1)pero supongo que todo se hace igual con DataSet?, 2) Cuando uno crea una consulta SQL para obtener los datos de access pero la implementa desde Visual Studio, se hace con SQL de SQL Server o SQL de Access?

Gracias,

Saludos

Jose Antonio::..

El Dataset se configura bien pero ahora como se le puede pasar algun parametro a la consulta? O solo pueden ser Selects estaticas?