¡ 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