Visual Basic 6.0 con Cryatal Report 8

[Yaxchilan74]

alguien tiene ejemplos de como intereactuar desde visual basic 6.0 con crystal reports 8 , para que le pueda mandar parametros a mi reporte y asi me despliegue inforamcion de acuerdo al parametro que le mande con una instruccion sql u alguna otra forma


gracias

[forvan]

lo que queres hacer es que dependiendo del parametro que le envias utilice una consulta sql u otra ?
o seria la misma consulta con solo algunas modificaciones en las condiciones where?

[jrp01]

Yo utilizo VB 6 con Crystal 8.5 Developer y los hago de la siguiente forma

En Referencias del proyecto selecionas

Crystal Report Engine 8 Object library
Crystal Report 8.5 ActiveXDesigner Run time library

en el codigo:

Dim crpApplication As CRPEAUTO.Application ' Variable para crear una aplicación de Cristal con Automation Server
Dim crpReport As CRPEAUTO.Report ' Variable para abrir el reporte
Dim crpDatabase As CRPEAUTO.Database ' Variable para la Base de Datos
Dim crpTables As CRPEAUTO.DatabaseTables ' Variable para tablas de la base de datos
Dim crpTable As CRPEAUTO.DatabaseTable ' Variable para una tabla
Dim rs As ADODB.Recordset
Dim repView As View
Dim cn As New ADODB.Connection

'si es access si no la cambias
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\tu_BD.mdb" & ";Persist Security Info=False;Jet OLEDB:Database Password=hola"

sentencia = "Tu sentencia SQL"
Set rs = cn.Execute(sentencia)
Set crpApplication = CreateObject("crystal.crpe.application")
Set crpReport = crpApplication.OpenReport(App.Path & "\Reporte.rpt")
Set crpDatabase = crpReport.Database
Set crpTables = crpDatabase.Tables
Set crpTable = crpTables.Item(1)
Call crpTable.SetPrivateData(3, rs)
Set CrSections = crpReport.Sections
crpReport.ReadRecords
Set repView = crpReport.Preview("Mi reporte", 0, 0, 800, 600)


Mis reportes los hice definidos por tabulacion .TTX asi no dependo de un ODBC

Espero que te sirva

[g_mer]

Necesito saber si hay alguna forma para poder generar desde VB 6, reportes y guardarlos con la extecion .rpt, que yo diseñe los reportesde desde VB y le de las columnas el ancho de cada una y la agrupacion. Si tienen alguna idea sobre como se puede hacer si a travez de las declaraciones abajo mensionadas pueda manipular un reporte y darle un "save as.." y ponerle el nombre del reporte que se diseño en base a una estructura.

Dim crpReport As CRPEAUTO.Report ' Variable para abrir el reporte
Dim crpDatabase As CRPEAUTO.Database ' Variable para la Base de Datos
Dim crpTables As CRPEAUTO.DatabaseTables ' Variable para tablas de la base

Saludos!!!