Power Builder - Power con Crystal Report

Hola Amigos Programadores:
Saben , he intentado visualizar el reporte creado en Crystal Report en la ventana del power, PERO ME SALE UN ERROR, ES QUE NO SE USAR LOS OBJETOS OLE... Y SUS PROPIEDADES... NO SE SI ALGUIEN ME PODRIA AYUDAR EN TRATAR DE HACER LA CONECCION YA QUE POWER ES MUY POTENTE EN BASE DE DATOS PERO POBRE EN REPORTES GRAFICOS Y ESTO SERIA DE UNA GRAN AYUDA PARA TODOS

A TODOS LOS PROGRAMADORES SI PUDIERAN PONER SUS APORTACIONES Y LLEGAR A CULMINAR ESTA CONECCION...

he encontrado este codigo para realizar la coneccion atravez de un objeto OLE

variables globales

OLEOBJECT g_ole_crx_aplication
OLEOBJECT g_ole_crx_report
OLEOBJECT g_ole_crx_connection_info
OLEOBJECT g_ole_crx_export


EN EL PRIMER BOTON :

g_ole_crx_aplication = CREATE OleObject
g_ole_crx_report = CREATE OleObject
g_ole_crx_connection_info = CREATE OleObject
g_ole_crx_export = CREATE OleObject

gi_return = g_ole_crx_aplication.ConnectToNewObject('CrystalRuntime.Application.10')
if gi_return < 0 then
MessageBox("Error", "Did not connect to Crystal Application Object")
return
End if

gs_gs_rpt_filename = "C:\Employee Profile.rpt"
g_ole_crx_report = g_ole_crx_aplication.OpenReport(gs_gs_rpt_filename, 1)

g_ole_crx_connection_info = g_ole_crx_aplication.database.tables[1].ConnectionProperties
g_ole_crx_connection_info.deleteAll

g_ole_crx_connection_info.add("DSN", "Xtreme Sample Database 10")

g_ole_crx_connection_info.add("Database", "Xtreme")
g_ole_crx_connection_info.add("User ID", "UID")
g_ole_crx_connection_info.add("Password", "PWD")

g_ole_crx_aplication.database.Verify

g_ole_crx_aplication.ParameterFields[1].AddCurrentValue(3)

g_ole_crx_aplication.ParameterFields.GetItemByName("Employee ID").AddCurrentValue(4)


EN EL SEGUNDO BOTON

ole_crviewer.object.ReportSource(g_ole_crx_aplication )
ole_crviewer.object.EnablePrintButton = True
ole_crviewer.object.EnableExportButton = True

PREVIAMENTE CREE UNA VENTANA CON 2 BOTONES Y UN OBJETO OLE DEL CRISTAL REPORT
NOTA: ESTOY USANDO EL CRYSTAL REPORT 10 Y POWER 9 ( este codigo lo saque de una pagina que te explica, pero al aplicarlo no funciona )

GRACIAS DE ANTEMANO SUS RESPUESTAS Y SUS COMPLEMENTOS PARA LA CONECCION

Hola amigo,,, creo que el comentario sobre el reporteador de Pb es totalmente erronea,,,

para generar reporte en pb es lo mejor que encontre,,, creo que tienes que investigar un poco mas... y sobre graficos ,,, hasta puedes cambiar dinamicacmente las presentaciones.... bueno creo deberias leer un poco mas...
sobre el reporteador de Pb.

hola amigo:
Yo he utilizado power desde la version 6.5 y desde ahi creo que todos sabemos que power en el modi grafico es muy simple. ya que he probado ed todo con sus graficos, incluso he hecho que cambien de grafico dinamicamente atravez del usuario. colores y todo lo demas, pero sus graficos no son muy amigables que digamos si en algun momento te has metido de lleno a ese aspecto, pues veo que no..
A y ademas , ya encontre la forma de hacer la coneccion con CrYstal Report y si esta bien, solo me falta estudiar un poco de Crystal Report para poder plasmarlo en Power...
les dejo esta direccion:

http://support.businessobjects.com/communityCS/FilesAndUpdates/pb_rdc9.exe.asp

gracias de Todas maneras a todos

La informacion la encontre en

http://support.businessobjects.com/communityCS/FilesAndUpdates/pb_rdc9.exe.asp


///////////////////////////////////////////////////////////////////////////Variable globales:

OLEObject g_ole_crx_application // application object
OLEObject g_ole_crx_report // report object
OLEObject g_ole_crx_connection_info // database connection properties
OLEObject g_ole_crx_export_options // export options

string gs_rpt_filename // full path to the report file
integer gi_return

///////////////////////////////////////////////////////////////Codigo en un boton

// create OLE object
g_ole_crx_application = CREATE OLEObject

// connect to craxdrt.Application
gi_return = g_ole_crx_application.ConnectToNewObject('CrystalRuntime.Application.11')
if gi_return < 0 then
MessageBox("Error", "Did not connect to Crystal Application Object")
return
else
MessageBox("O.K", "Connection to Crystal Application Object succeeded")
end if

//gs_rpt_filename = "C:\Program Files\Crystal Decisions\Crystal Reports 9\Samples\En\Reports\General Business\World Sales Report.rpt"
gs_rpt_filename = "C:\comprobante_contable2.rpt" //

// Open the report object
g_ole_crx_report = g_ole_crx_application.OpenReport(gs_rpt_filename)

// Logon to the database
//
// Set connection_info to Report ConnectionProperties
g_ole_crx_connection_info = g_ole_crx_report.database.tables[1].ConnectionProperties

// Delete old connections
// Works with updating older reports
g_ole_crx_connection_info.deleteAll

// Add new connection
g_ole_crx_connection_info.add("DSN", "CARGA")
//g_ole_crx_connection_info.add("Database", "C:\Archivos de programa\Business Objects\BusinessObjects Enterprise 11\Samples\En\Databases\xtreme.mdb")
g_ole_crx_connection_info.add("User ID", "CARTERA")
g_ole_crx_connection_info.add("Password", "*****")

// Verify the database.
//
g_ole_crx_report.database.Verify

MessageBox("Bien", "finalizo")


ole_crviewer.object.ReportSource(g_ole_crx_report )
ole_crviewer.object.EnablePrintButton = True
ole_crviewer.object.EnableExportButton = True

ole_crviewer.object.viewReport