ASP.NET - problema solucionado con Crystal

   
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder