problema solucionado con Crystal
Publicado por Rotsen (16 intervenciones) el 16/03/2009 22:57:27
Ya solucione el problema: Espero pueda servirles en Algo...
1). He agregado un SQLDATASOURCE al Form donde obtengo los datos de la Base de datos. 2). He Agregado un CrystalDataSource y un CrystalReporViewer 3.) Agregar al proyecto en la carpeta App_code un DataSET en el cual creo una Tabla llamada REGISTRO de forma manual con los mismos campos extradidos con el SQLDATASOURCE
ejecutar el siguiente código desde un Boton:
Dim objdataset As New DANomarcadas ' Este es el Dataset Creado
Try
With objdataset.Tables(0) ' Para con la tabla creada en el DataSet
Dim Fechas As IEnumerable = SqlDataSourceFechas.Select(DataSourceSelectArguments.Empty)
For Each row As Data.DataRowView In Fechas
Dim fila As System.Data.DataRow = .NewRow()
fila(objdataset.REGISTRO.Emplea_idColumn) = row("Emplea_id").ToString.ToUpper
fila(objdataset.REGISTRO.FechaColumn) = row("FECHA")
fila(objdataset.REGISTRO.EmpleadoColumn) = row("EMPLEADO").ToString.ToUpper
fila(objdataset.REGISTRO.EntradaColumn) = row("ENTRADA").ToString
fila(objdataset.REGISTRO.SalidaColumn) = row("SALIDA").ToString
.Rows.Add(fila)
Next
Dim oView As New DataView(objdataset.Tables(0)) ''' Para visualizar los Datos
''' enviando los parametros para el reporte
Me.CrystalReportSource1.Report.FileName = "Tarjeta_Marcacion.rpt"
Me.CrystalReportSource1.ReportDocument.SetDataSource(objdataset.Tables(0))
Me.CrystalReportViewer1.ReportSource = Me.CrystalReportSource1
End With
Catch oExcep As SqlException
Response.Write("Se ha producido un error en la conexion: ")
Finally
Me.SqlDataSourceFechas.Dispose()
End Try
1). He agregado un SQLDATASOURCE al Form donde obtengo los datos de la Base de datos. 2). He Agregado un CrystalDataSource y un CrystalReporViewer 3.) Agregar al proyecto en la carpeta App_code un DataSET en el cual creo una Tabla llamada REGISTRO de forma manual con los mismos campos extradidos con el SQLDATASOURCE
ejecutar el siguiente código desde un Boton:
Dim objdataset As New DANomarcadas ' Este es el Dataset Creado
Try
With objdataset.Tables(0) ' Para con la tabla creada en el DataSet
Dim Fechas As IEnumerable = SqlDataSourceFechas.Select(DataSourceSelectArguments.Empty)
For Each row As Data.DataRowView In Fechas
Dim fila As System.Data.DataRow = .NewRow()
fila(objdataset.REGISTRO.Emplea_idColumn) = row("Emplea_id").ToString.ToUpper
fila(objdataset.REGISTRO.FechaColumn) = row("FECHA")
fila(objdataset.REGISTRO.EmpleadoColumn) = row("EMPLEADO").ToString.ToUpper
fila(objdataset.REGISTRO.EntradaColumn) = row("ENTRADA").ToString
fila(objdataset.REGISTRO.SalidaColumn) = row("SALIDA").ToString
.Rows.Add(fila)
Next
Dim oView As New DataView(objdataset.Tables(0)) ''' Para visualizar los Datos
''' enviando los parametros para el reporte
Me.CrystalReportSource1.Report.FileName = "Tarjeta_Marcacion.rpt"
Me.CrystalReportSource1.ReportDocument.SetDataSource(objdataset.Tables(0))
Me.CrystalReportViewer1.ReportSource = Me.CrystalReportSource1
End With
Catch oExcep As SqlException
Response.Write("Se ha producido un error en la conexion: ")
Finally
Me.SqlDataSourceFechas.Dispose()
End Try
Valora esta pregunta


0