Post on 13-Jul-2015
GUIA DE PROGRAMACION REPORTES
Para el desarrollo de este formulario hay que tener en cuenta lo siguiente
1. Crear un origen de datos
2. Crear el reporte con el programa CRYSTALREPORT
3. Insertar los campos a visualizar en la banda detalle
4. Diseñar el formulario con el control CrystalReportyViewer
DECLARAMOS VARIABLES
Dim DaDocente As OleDbDataAdapter
Dim DsDocente As DataSet
BOTOM IMPRIMIR
If ChkGeneral.Checked = False Then
conexion.Open()
sql = "Select * From docente where nivel_enseñanza_nombramiento='" &
CmbNivel.SelectedValue & "'"
DaDocente = New OleDbDataAdapter(sql, conexion)
Try
DsDocente = New DataSet()
DsDocente.Clear()
DaDocente.Fill(DsDocente, "docente")
conexion.Close()
Dim Mirptdocente As New RptDocente
Mirptdocente.SetDataSource(DsDocente)
Me.CrystalReportViewer1.ReportSource = Mirptdocente
Me.CrystalReportViewer1.Zoom(75)
DsDocente.Dispose()
conexion.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
If conexion.State = ConnectionState.Open Then
conexion.Close()
End If
End Try
End If
If ChkGeneral.Checked = True Then
conexion.Open()
sql = "Select * From docente "
DaDocente = New OleDbDataAdapter(sql, conexion)
Try
DsDocente = New DataSet()
DsDocente.Clear()
DaDocente.Fill(DsDocente, "docente")
conexion.Close()
Dim Mirptdocente As New RptDocente
Mirptdocente.SetDataSource(DsDocente)
Me.CrystalReportViewer1.ReportSource = Mirptdocente
Me.CrystalReportViewer1.Zoom(75)
DsDocente.Dispose()
conexion.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
If conexion.State = ConnectionState.Open Then
conexion.Close()
End If
End Try
End If
End Sub