Crystal Report 8.5 y VB6

[Victor Herrera]

Hola
tengo un problema, un reporte hecho en CR 8.5 lo conecto a una BD MySQL,
todo bien hasta que llega el momento de probarlo en otro servidor, aca lo
conecto a localhost que es donde hago las pruebas, pero finalmente deberia
conectarse a un servidor de la empresa que utilizara estos reportes. La
pregunta es

Cómo le cambio el servidor, el usuario, password y BD al reporte en tiempo
de ejecucion para que asi se conecte al servidor que sea?

Gracias

[Lluís Franco]

:-)
Hola,

Puedes usar los objetos "CRAXDRT.Application" y "CRAXDRT.Report", que
permiten un meyor control:

Dim crxApplication As New CRAXDRT.Application
Dim crxReport As CRAXDRT.Report
Set crxReport = crxApplication.OpenReport(PATH_TU_RPT)
crxReport.Database.Tables(1).SetLogOnInfo TU_SERVER, TU_DB, TU_USER,
TU_PWD
With crxReport
.DiscardSavedData
.EnableParameterPrompting = False
End With
Set frmVisorCrystal.oReport = crxReport
frmVisorCrystal.CRViewer1.ReportSource = crxReport
frmVisorCrystal.CRViewer1.DisplayGroupTree = False
frmVisorCrystal.CRViewer1.ViewReport
frmVisorCrystal.Show vbModal

Saludos,
--

Lluís Franco i Montanyés
[MS-MVP-MCP Visual Basic]
--
Web: http://www.uyssoft.com
Blog: http://msmvps.com/lfranco
--
(Guía de netiquette del foro)
http://www.uyssoft.com/MSNews.aspx?sm=10
FIMARGE, S.A.
Principat d'Andorra
lfranco@ODIO_EL_SPAMfimarge.ad
Tel.: +376 805 100
Fax: +376 824 500
--
Mi Perfil MVP en:
https://mvp.support.microsoft.com/profile=02aa1615-1a2f-4202-bc3f-aec297d967d2
--
This posting is provided "AS IS" with no warranties, and confers no rights.
Este mensaje se proporciona "COMO ESTA" sin garantias y no otorga ningun
derecho

[Victor Herrera]

Despues de setear los objetos y abrir el reporte con OpenReport puse esto a
modo de prueba:

Dim intCount as Integer
For intCount = 1 To .Database.Tables.Count
.Database.Tables(intCount).SetLogOnInfo "127.0.0.1", "bd", "user", "pass"
Next intCount

Pero no se conecta, me responde el Crystal Report Viewer con un:
"Server has not yet been opened"

Donde le indico que es MySQL? y hago que se conecte. Otro dato es que el
reporte cada ve que lo abro con CR me pide esa informacion, pero se conecta y
logro trabajar, el problema es desde VB a CR.

muchas gracias

[Edgar Contreras]

Que tal Victor,

Fijate si el ejemplo que tengo en www.generationdigital.net/~vb te funciona.

--

Saludos,

Edgar Contreras
suppor...@ESTOgenerationdigital.net

[Conectado desde Tijuana, B.C. México]

DISCLAIMER: La información es presentada como es, sin ninguna
responsabilidad, sin garantía alguna y no otorga
derecho alguno.

"Victor Herrera" <Victor...@discussions.microsoft.com> wrote in message
news:52BC9319-7FB5-4152...@microsoft.com...

[Victor Herrera]

Hola Edgar

lo baje y me da un error el vb cuando trata de cargar los archivos .DSR.

Tienes un ejemplo mas sencillo, donde solo le pueda cambiar la coneccion al
reporte (o conectarlo) sin que me aparezca el mensaje ese: Server has not yet
been opened

Gracias

[cali]

si estas trabajando con el control crystal report , este en tiempo de diseño tiene una propieda CONNECT ahi le tendrias k pasar la cadena de conexion

 

 

"Victor Herrera" <Victor...@discussions.microsoft.com> wrote in message news:2BB07DC6-BD3C-4168...@microsoft.com...

[melomano]

Report.DiscardSavedData 'Descartamos la información que pueda traer el
reporte consigo.
Report.EnableAsyncQuery = True
Report.EnablePerformQueriesAsynchronously = True

For Each Base In Report.Database.Tables
Base.SetLogOnInfo ruta, tubd.mdb, user, password
Base.Location = ruta\tudb.mdb
Next Base

"Victor Herrera" <Victor...@discussions.microsoft.com> escribió en el
mensaje news:2BB07DC6-BD3C-4168...@microsoft.com...

[Victor Herrera]

Los objetos y controles del crystal report 8.5 no tiene el metodo CONNECT :(

de que otra forma lo puedo hacer?
gracias por la informacion

[Victor Herrera]

Hola melomano

si he logrado imprimir con Access y con SQL Server, pero ahora estoy usando
MySQL.

Gracias de todas formas

[Edgar Contreras]

Que error te marca con los archivos DSR????....

Tienes la version 8.5 de CR, correcto?...

--

Saludos,

Edgar Contreras
suppor...@ESTOgenerationdigital.net

[Conectado desde Tijuana, B.C. México]

DISCLAIMER: La información es presentada como es, sin ninguna
responsabilidad, sin garantía alguna y no otorga
derecho alguno.

"Victor Herrera" <Victor...@discussions.microsoft.com> wrote in message

news:0773F4E9-E109-4151...@microsoft.com...

[Edgar Contreras]

De cualquier manera, si te marca error con los archivos DSR, la parte
importante se encuentra en el código. Los DSR es solo una muestra de
reporte.

--

Saludos,

Edgar Contreras
suppor...@ESTOgenerationdigital.net

[Conectado desde Tijuana, B.C. México]

DISCLAIMER: La información es presentada como es, sin ninguna
responsabilidad, sin garantía alguna y no otorga
derecho alguno.

"Victor Herrera" <Victor...@discussions.microsoft.com> wrote in message

news:0773F4E9-E109-4151...@microsoft.com...

[cali]

EL CR TIENE UN CONTROL K NO TIENE INTERFAZ K LO PEGAS NE TU FORMULARIO , NO VAYA SER K ESTES PINTANDO EL REPORTE MEDIANTE CODIGO CON EL CRYSTAL VIEWER QUE AHI SI HAY K ECHAR CODIGO..DE SER ASI... ES POCO LO K PUEDO HACER YA QUE NO HE USADO ESA FORMA DE MOSTRAR EL REP

 

"Victor Herrera" <Victor...@discussions.microsoft.com> wrote in message news:CD511AD5-7B6C-41D6...@microsoft.com...