RE:Pasar datos de datable a crystal reports
Publicado por
Marcos (1 intervención) el 07/02/2010 23:58:43
Dim query6 As String = " SELECT continente.nombre,pais.nombre,provincia.nombre,ciudad.nombre FROM pais INNER JOIN continente ON (pais.codigoContinente=continente.codigoContinente) INNER JOIN provincia ON (provincia.CodigoPais=pais.codigoPais) INNER JOIN ciudad ON (ciudad.codigoProvincia=provincia.codigoProvincia)"
Dim ta As New DataTable
ta = operacion.Recuperar(conexion.Conexion, query6)
Dim reporte As New ReporteContinentes
reporte.SetDataSource(ta)
Me.DataGridView1.DataSource=ta
Me.CrystalReportViewer1.ReportSource = reporte
Me.CrystalReportViewer1.RefreshReport()
Me.CrystalReportViewer1.Refresh()
en donde recuperar es un metodo de una clase operacion , create una clase operacion y agrega este metodo
Function Recuperar(ByVal conexion As MySql.Data.MySqlClient.MySqlConnection, ByVal query As String) As DataTable
Dim estructura As New DataTable
Try
comando.Connection = conexion
comando.CommandText = query
datadapter.SelectCommand = comando
datadapter.SelectCommand.ExecuteNonQuery()
datadapter.Fill(estructura)
Catch ex As Exception
End Try
Return estructura
End Function
Espero te haya sido de utilidad saludos