dataset y Crystal report

09/01/2012 - 19:37 por roberto | Informe spam
¡ Hola ! a todos, necesito de ayuda con un dataset elazado a Crystal report el Visual 2008+ postgresql 8.4, segui todos los pasos que se indican, pero cuando ejecuto el reporte desde visual no me despiega los datos, solo los encabezados. con este codigo lo estoy llamando al report:
Dim oCnn As New NpgsqlConnection ' Objeto de conexion a la base de datos
Dim daDatos As New NpgsqlDataAdapter 'OleDbDataAdapter ' Objeto Adaptador para leer datos de la Base de datos
Dim cmdExec As New NpgsqlCommand ' objeto comando para ejecutar sentencias sql
Dim dtDatos As New DataTable ' datatable para recibir los datos de la base de datos
Dim sbQuery As String 'para armar cadenas
Dim CrReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Try

oCnn.ConnectionString = Gbcadena
oCnn.Open()
cmdExec = oCnn.CreateCommand
cmdExec.Connection = oCnn


sbQuery = "select a.id_articulo,a.nombre,a.codigo_barras,ar.stock, ar.numero_sucursal "
sbQuery += "from "
sbQuery += "articulos a, "
sbQuery += "sucursales s, "
sbQuery += "articulos_sucursales ar "
sbQuery += "where a.id_articulo = ar.id_articulo "
sbQuery += "and s.numero_sucursal=ar.numero_sucursal "
sbQuery += "and ar.numero_sucursal=1 "

cmdExec.CommandText = sbQuery.ToString
daDatos = New NpgsqlDataAdapter(cmdExec) 'OleDbDataAdapter(cmdExec)
daDatos.Fill(dtDatos)


' Asigno el reporte
'CrReport = New CrystalDecisions.CrystalReports.Engine.ReportDocument()
CrReport.Load(CurDir() & "/reportes/CRPlanillas.rpt")
MsgBox("el reporte fue cargado : " & CrReport.IsLoaded)
CrReport.SetDataSource(dtDatos)

Crystal.ReportSource = CurDir() & "/reportes/CRPlanillas.rpt"
MsgBox("dsdatos: ")
Catch ex As Exception
MessageBox.Show("excepcion: " & ex.Message, "Mostrando Reporte")
End Try

Gracias a todos y espero me ayuden.-
 

Leer las respuestas

#1 roberto
11/01/2012 - 13:28 | Informe spam
roberto escribió el 09/01/2012 19:37 :
¡ Hola ! a todos, necesito de ayuda con un dataset elazado a Crystal
report el Visual 2008+ postgresql 8.4, segui todos los pasos que se indican,
pero cuando ejecuto el reporte desde visual no me despiega los datos, solo los
encabezados. con este codigo lo estoy llamando al report:
Dim oCnn As New NpgsqlConnection ' Objeto de conexion a la base de datos
Dim daDatos As New NpgsqlDataAdapter 'OleDbDataAdapter ' Objeto Adaptador para
leer datos de la Base de datos
Dim cmdExec As New NpgsqlCommand ' objeto comando para ejecutar sentencias sql
Dim dtDatos As New DataTable ' datatable para recibir los datos de la base de
datos
Dim sbQuery As String 'para armar cadenas
Dim CrReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Try

oCnn.ConnectionString = Gbcadena
oCnn.Open()
cmdExec = oCnn.CreateCommand
cmdExec.Connection = oCnn


sbQuery = "select a.id_articulo,a.nombre,a.codigo_barras,ar.stock,
ar.numero_sucursal "
sbQuery += "from "
sbQuery += "articulos a, "
sbQuery += "sucursales s, "
sbQuery += "articulos_sucursales ar "
sbQuery += "where a.id_articulo = ar.id_articulo "
sbQuery += "and s.numero_sucursal=ar.numero_sucursal "
sbQuery += "and ar.numero_sucursal=1 "

cmdExec.CommandText = sbQuery.ToString
daDatos = New NpgsqlDataAdapter(cmdExec) 'OleDbDataAdapter(cmdExec)
daDatos.Fill(dtDatos)


' Asigno el reporte
'CrReport = New CrystalDecisions.CrystalReports.Engine.ReportDocument()
CrReport.Load(CurDir() & "/reportes/CRPlanillas.rpt")
MsgBox("el reporte fue cargado : " & CrReport.IsLoaded)
CrReport.SetDataSource(dtDatos)

Crystal.ReportSource = CurDir() & "/reportes/CRPlanillas.rpt"
MsgBox("dsdatos: ")
Catch ex As Exception
MessageBox.Show("excepcion: " & ex.Message, "Mostrando
Reporte")
End Try

Gracias a todos y espero me ayuden.-


Hola a todos, klogre solucionar por fin mi drama con los reportes Visual .et 2008 + postgresql con Dataset, era muy sencillo.

MyCommand.CommandText = sql
MyCommand.CommandType = CommandType.Text
myDA.SelectCommand = MyCommand

myDA.Fill(dataset.dtliquidacion_vended) --esta parte es lo fundamental, llenar el dataset creado.
rpt.SetDataSource(dataset) --asigno el dataset cargado al reporte
rep.Crystal.ReportSource = rpt --se asignar el reporte cargado al CrystalReprtviewer
rep.ShowDialog() --se despliega el formulario del reporte y ya esta

Preguntas similares