Control Crystal Reports 9.2

[Martin]

Hola amigos, estoy haciendo un sistema con visual basic 6.0 en el cual
tengo que utilizar reportes, los reportes los hice con crystal 9.2
usando un fichero de definición de campos (TTX), el problema que tengo
es que al incluir el control Crystal Report Viewer Control 9 en mi
proyecto, no encuentro como indicarle al control que reporte tiene que
abrir, en la version 8.5 de crystal tenia esto CR.ReportFileName =
App.Path & "\informes\impform.rpt.
en esta version no lo encuentro, o estoy utilizando el control
equibocado?

Saludos!
Martin

[Nelson Enrique]

Estimado Amigo yo he trabajado con la version 8.5 y nunca me ha dado
problemas y parto del principio si algo te funciona para

[Nelson Enrique]

Estimado Agimo yo he tabajado con la versión 8.5 y nunca me ha generado
problemas y parto del principio q si algo te funciona para q cambiarlo???

ahora bien desde la version 9 no trae el control ocx q traian las versiones
anteriores (instale la versio 9 y no me gusto y segui con la 8.5), asi q
tienes q mostrat los informes desde elcontrol crystal report viewer
(CRViewer) espero haberte ayudado

[Diego MŽ Romero]

Martin,
Respetando la opinion de Nelson Enrique, para mi siempre es mejor una nueva
versión.

Para Crystal Report 9, debes trabajar con el control RDC-Reporte Designer
Component
Active la referencia, Proyecto/Referencias, a las librerias :Crystal Report
9 ActiveX Designer Run Time Library y Crystal report Viewer Control 9

En proyecto/componentes: Acive Crystal report Viewer Control 9
Inserte el control en el formulario un control con nombre CRViewer1

Defina las varibles a nivel de modulo del formulario
Dim Cra As CRAXDRT.Application
Dim Crp As CRAXDRT.Report
Dim CnnP As CRAXDRT.ConnectionProperty
Dim Tbl As CRAXDRT.DatabaseTable
Dim Dbs1 As CRAXDRT.Database

En el procedimiento que usted haga para imprimir:

Set Cra = New CRAXDRT.Application
Set Crp = Cra.OpenReport("c:\ejemplo\report1.rpt")
Crp.PaperSize = crPaperLetter
Crp.PaperOrientation = crLandscape

Para Roportes con origen de datos Active Data, es decir directamente de un
recordset, el siguiente código:

Set Dbs1 = Crp.Database
Dbs1.SetDataSource Rs, 3, 1 'Rs= es el objeto ADODB.Recordset abierto.

Para los reportes de origen de datos ADODB, de tablas Access 2000

For Each Tbl In Crp.Database.Tables 'por cada tabla que incluiya en el
reporte
Tbl.ConnectionProperties("Provider") = "Microsoft.Jet.OLEDB.4.0"
Tbl.ConnectionProperties("Data Source") = "c:\ejemplo\db1.mdb" 'nombre de
la base de de datos access
Tbl.ConnectionProperties("Initial Catalog")=''
Tbl.ConnectionProperties("User ID") = "Admin"
Tbl.ConnectionProperties("Password") = ""
Tbl.ConnectionProperties("Jet Database Password") = "CONTRASEÑA DE BASE DE
DATOS"
Tbl.ConnectionProperties("Database Type") = "Access"
Next Tbl

Para los reportes de origen de datos ADODB, de tablas SQL SERVER
For Each Tbl In Crp.Database.Tables 'por cada tabla que incluiya en el
reporte
Tbl.ConnectionProperties("Provider") = "SQLOLEDB"
Tbl.ConnectionProperties("Data Source") = "NOMBRE DEL SERVIDOR"
Tbl.ConnectionProperties("Initial Catalog")='Nombre base de datos'
Tbl.ConnectionProperties("User ID") = "Id usuario"
Tbl.ConnectionProperties("Password") = "Contraseña de usuario"
Next Tbl

crp.RecordSelectionFormula ='' 'aqui la formula de seleccion de registros,
si la tiene

CRViewer1.ReportSource = Crp 'asignar el objeto reporte al control vista de
reportes
CRViewer1.ViewReport 'ver el reporte
'Si desea mas información echele una mirada a las propiedades del control
CRViewer1 y la libreria RDC-Reporte Designer Component, los objetos
CRAXDRT.Report

Espero le sirva

Diego

"Martin" <mga...@infoservi.com.ar> escribió en el mensaje
news:769d45e9.05041...@posting.google.com...

[Martin]

Gracias Diego por este pequeño tutorial, con esto tengo para sacar lo que necesito.
Voy a hacer lo que me dices y luego lo posteo en el foro.

Saludos,
Martin

"Diego M® Romero" <dm_r...@hotmail.com> wrote in message news:<##um6IdQF...@tk2msftngp13.phx.gbl>...