CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Problema Con Reportes

(1/1)

lencho:
Tengo un problema.
Yo anteriormente he usado los reportes pero sin usar procedimiento almacenados, ahora quiero hacerlo y no me sale.

--- Código: Text ---         Dim reporte As New RepLaboratorios        reporte.SetDataSource(Dataset)        CrystalReportViewer1.ReportSource = reporte   Dejpuej de ejecutar esto me muestra todos los datos, sin excepcion alguna, osea no tomando en cuenta la condicion que hay en el procedimiento almacenado, cuando en realidad solo tendria que mostrarme los de codigo mayor a 3

El Dataset ya lo tengo cargado, lo tengo verificado con esto

--- Código: Text ---   MsgBox(dataset.Tables.Count())  MsgBox(dataset.Tables.Item(0).Rows(0).Item(1))  Efectivamente me muestra el dato que quiero.

Aqui va como cargo el DataSet

--- Código: Text ---      Dim cmd = New SqlCommand("CARGARLABORATORIO2", cnx.getConexion)     cmd.CommandType = CommandType.StoredProcedure     cmd.Parameters.Add("@CodLaboratorio", SqlDbType.Int, 4).Value = 3     Dim adapter As SqlDataAdapter = New SqlDataAdapter(cmd)     Dim ds As New DataSet     adapter.Fill(ds)  
En el Procedimiento almacenado es el siguiente

--- Código: Text --- CREATE PROCEDURE CARGARLABORATORIO2@CodLaboratorio as  intASSelect * from TLaboratoriowhere CodLaboratorio > @CodLaboratorio  
Lo raro es que cuando creo que el agrego al form los controles DataSet, SQlDataAdapter, en vista diseño, Me sale bien.

Espero su ayuda.

BYTE.

lencho:
Por ejemplo, esto es lo que hago cuando coloco el dataset y sqldataadapter en modo diseño

--- Código: Text ---         ' Ejecuta la consulta a la base dados        SqlDataAdapter1.Fill(DataSet11)        ' Crea el reporte        Dim Rel As New CrystalReport1        ' Asocia el conjunto de datos con el reporte        Rel.SetDataSource(DataSet11)         ' Asocia el reporte con el Visualizador        CrystalReportViewer1.ReportSource = Rel  
y es identico al que coloco el dataset y sqldatadapter en modo codigo

--- Citar ---CODE
       Dim reporte As New RepLaboratorios
       reporte.SetDataSource(Dataset)
       CrystalReportViewer1.ReportSource = reporte

--- Fin de la cita ---

Existe algo que no estoy tomando en cuenta ??,
Por favor ayudenme.

BYTE.

Navegación

[0] Índice de Mensajes