DataGridView y CrystalReportView
De nuevo experto aquí tratando de recurrir a usted para ver si me puede ayudar con este código que he hecho y quiero que haga lo siguiente: Cuando el usuario presione el botón imprimir dentro del mismo formulario salga el crystalreportview y muestre el reporte con los datos del datagridview que tengo de una consulta.
Que me esta pasando todo funciona perfectamente lo único que es el datagridview1 no conecta con el crystalreportview y cuando presiono el botón imprimir sale el el reporte que he creado pero sin los datos, me imagino que el datagridview no esta pasando los datos.
No obstante el datagridview1 si tiene los datos de la consulta que he hecho pero no se en que estoy fallando anexo el código para ver si me pueden ayudar muchas gracias de nuevo.
Private Sub btnImprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnImprimir.Click
Dim cnn As New OleDbConnection
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Jose Tallaferro\Escritorio\Efemerides\Reportes Diarios Dirección de Zona\Reportes Diarios Dirección de Zona\Data.mdb"
Dim ds_efemerides As New DataSet
Dim Adaptador As New OleDb.OleDbDataAdapter
Try
cnn.Open()
Dim consulta As String = "SELECT * FROM Efemerides WHERE N = " & Me.tbBusca.Text
Dim comando As New OleDbCommand(consulta, cnn)
Adaptador.SelectCommand = comando
Adaptador.Fill(ds_efemerides)
DataGridView1.DataSource = ds_efemerides.Tables(0)
Me.btnCerrarReporte.Visible = True
Me.crvReporteEfemerides.Visible = True
Me.DataGridView1.Visible = False
Dim Reporte As New rptEfemerides
Reporte.SetDataSource(ds_efemerides)
crvReporteEfemerides.ReportSource = Reporte
Catch ex As Exception
MessageBox.Show("No Hay Datos Para Imprimir")
Me.crvReporteEfemerides.Visible = False
Finally
If (cnn.State And ConnectionState.Open) <> 0 Then
cnn.Close()
End If
End Try
Que me esta pasando todo funciona perfectamente lo único que es el datagridview1 no conecta con el crystalreportview y cuando presiono el botón imprimir sale el el reporte que he creado pero sin los datos, me imagino que el datagridview no esta pasando los datos.
No obstante el datagridview1 si tiene los datos de la consulta que he hecho pero no se en que estoy fallando anexo el código para ver si me pueden ayudar muchas gracias de nuevo.
Private Sub btnImprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnImprimir.Click
Dim cnn As New OleDbConnection
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Jose Tallaferro\Escritorio\Efemerides\Reportes Diarios Dirección de Zona\Reportes Diarios Dirección de Zona\Data.mdb"
Dim ds_efemerides As New DataSet
Dim Adaptador As New OleDb.OleDbDataAdapter
Try
cnn.Open()
Dim consulta As String = "SELECT * FROM Efemerides WHERE N = " & Me.tbBusca.Text
Dim comando As New OleDbCommand(consulta, cnn)
Adaptador.SelectCommand = comando
Adaptador.Fill(ds_efemerides)
DataGridView1.DataSource = ds_efemerides.Tables(0)
Me.btnCerrarReporte.Visible = True
Me.crvReporteEfemerides.Visible = True
Me.DataGridView1.Visible = False
Dim Reporte As New rptEfemerides
Reporte.SetDataSource(ds_efemerides)
crvReporteEfemerides.ReportSource = Reporte
Catch ex As Exception
MessageBox.Show("No Hay Datos Para Imprimir")
Me.crvReporteEfemerides.Visible = False
Finally
If (cnn.State And ConnectionState.Open) <> 0 Then
cnn.Close()
End If
End Try
2 respuestas
Respuesta de desig54
1
Respuesta de Roberto Alvarado
1