Reportes con muchas tablas
Publicado por Hernaldo (5 intervenciones) el 03/04/2006 21:06:10
El problema que tengo es que necesito crear un reportes con la informacion de varias tablas de un dataset,
No tengo ningun problema si hago el reporte con una tabla porque tengo muchas fila de una solo, pero si intento combinar todas las filas de multiples tablas, tengo muchos problemas
Este es el codigo que utilizo
' lleno el dataset
Dim cadena$ = "Workstation id = ""UMVS01""; packet size=4096; integrated security=SSPI; data source=""(local)""; persist security info=true ; initial catalog= Tesis"
Dim cnnCatClientes As New SqlConnection(cadena)
Dim cmdCatClientes As New SqlCommand("SELECT * FROM Vista_ingresos", cnnCatClientes)
Dim daCatClientes As New SqlDataAdapter(cmdCatClientes)
Dim dsCatClientes As New DataSet
Dim cbCatClientes As New SqlCommandBuilder(daCatClientes)
'SE LO ENVIO AL REPORTES ASI
Try
Dim mi_dsRepCatclientes As New marcas
daCatClientes.Fill(mi_dsRepCatclientes, "Vista_ingresos")
Dim mi_rptCatClientes As New Planilla
mi_rptCatClientes.SetDataSource(mi_dsRepCatclientes)
Me.crvPlanilla.ReportSource = mi_rptCatClientes
Me.Text = "Reporte de Clientes"
Catch ex As Exception
MessageBox.Show(ex.Message, "Imprimir", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Supongo que para cargar otros tablas solo las agrego al sqlcommand las tablas y ya, pero para cargarlo al reporte como lo hago por si se lo agrego asi
dacatclientes.fill(mi_dsrepcatclientes,"vista_ingreso, otra tabla") ----
' me manda al reporte un producto cartesiano,
' como se lo mando para evitar el problema porque
' necesito que la informacion de las otras tablas aparesca.
Gracias por toda la ayuda que me puedan brindar
porque
No tengo ningun problema si hago el reporte con una tabla porque tengo muchas fila de una solo, pero si intento combinar todas las filas de multiples tablas, tengo muchos problemas
Este es el codigo que utilizo
' lleno el dataset
Dim cadena$ = "Workstation id = ""UMVS01""; packet size=4096; integrated security=SSPI; data source=""(local)""; persist security info=true ; initial catalog= Tesis"
Dim cnnCatClientes As New SqlConnection(cadena)
Dim cmdCatClientes As New SqlCommand("SELECT * FROM Vista_ingresos", cnnCatClientes)
Dim daCatClientes As New SqlDataAdapter(cmdCatClientes)
Dim dsCatClientes As New DataSet
Dim cbCatClientes As New SqlCommandBuilder(daCatClientes)
'SE LO ENVIO AL REPORTES ASI
Try
Dim mi_dsRepCatclientes As New marcas
daCatClientes.Fill(mi_dsRepCatclientes, "Vista_ingresos")
Dim mi_rptCatClientes As New Planilla
mi_rptCatClientes.SetDataSource(mi_dsRepCatclientes)
Me.crvPlanilla.ReportSource = mi_rptCatClientes
Me.Text = "Reporte de Clientes"
Catch ex As Exception
MessageBox.Show(ex.Message, "Imprimir", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Supongo que para cargar otros tablas solo las agrego al sqlcommand las tablas y ya, pero para cargarlo al reporte como lo hago por si se lo agrego asi
dacatclientes.fill(mi_dsrepcatclientes,"vista_ingreso, otra tabla") ----
' me manda al reporte un producto cartesiano,
' como se lo mando para evitar el problema porque
' necesito que la informacion de las otras tablas aparesca.
Gracias por toda la ayuda que me puedan brindar
porque
Valora esta pregunta


0