Crystal Report - Parametros de Conexion Crystal Reports

Hola buen dia, a ver si me pueden ayudar, la situacion es la siguiente, tengo mi ambiente de desarrollo en mi maquina (SQL Express 2005, V.NET), pero cuando termino de hacer los reportes
funcionan muy bien en mi maquina, pero cuando los llevo a la aplicacion en produccion, que tiene el mismo nombre de la DB, diferente password, no corren, la solucion que tengo que hacer es; abro el proyecto y a cada reporte le tengo que crear una nueva conexion y decirle que ya no vea mi DB sino la de produccion.

Esto es asi?? como lo puedo solucionar de otra forma, ya le estoy pasando los parametros de conexion de las tablas por codigo, pero al reporte no le puedo decir que ahora vea en otro servidor la base de datos.

Se los agradeceria mucho las aportaciones.

En que lenguaje está la aplicación que abre los reportes?
La cadena de conexión se la puedes cambiar entera (bd, host, puerto, usuario, contraseña...)

Un saludo!

Buen dia y gracias por tomarte el tiempo para conetestar mi duda, si te decia, el reporte lo estoy mandando llamar desde VB.NET, realizo la integracion de los parametros de conexion para las tablas, pero cuando lo mando llamar si no es el servidor y la base de datos donde construi la aplicacion, me manda error, lo que hago es que abro los fuentes de los reportes y les doy un set Verify Data Base y les digo que ahora lean el servidor de produccion y la base de datos de produccion, ( el nombre de la base de datos es el mismo, solo cambia el servidor). Realizando esa operacion funciona perfectamente.
La idea es no tener que hacer esa operacion.

Saludos y de antemano gracias.

Hola Felix

Te cuento... yo lo tengo implementado para MySQL 3.51, por lo que uso conexión de tipo RDO así que hice lo siguiente (después de mucho buscar... ) :

Añadi la referencia a "Microsoft Remote Data Object 2.0"

y luego en el código:

Dim Conexion As RDO.rdoConnection

'Esto ya lo tendrás...
Dim App1 As New CRAXDDRT.Application
Dim Report As New CRAXDDRT.Report

'Defino variables:
Dim servidor As String
Dim puerto As String
Dim database As String
Dim usuario As String
Dim pwd As String

Private Sub Command1_Click()
'En el click asigno valores (este es un ejemplo!) de los text del formulario
servidor = Text1.Text
puerto = Text2.Text
database = Text3.Text
usuario = Text4.Text
pwd = Text5.Text

'Asigno reporte...
Set Report = App1.OpenReport(App.Path & "\Ejemplos\ReportePrueba.rpt", 1)

'Establezco conexión
Set Conexion = rdoEngine.rdoEnvironments(0).OpenConnection("", rdDriverNoPrompt, True, "Driver={MySql ODBC 3.51 Driver};Server=" + servidor + ";Port=" + puerto + ";DataBase=" + database + ";Uid=" + usuario + ";Pwd=" + pwd)

'Esto también lo tendrás...
'Abrir reporte
CrystalActiveXReportViewer1.ReportSource = Report
CrystalActiveXReportViewer1.ViewReport

End Sub

No sé si es lo que buscas... si estás usando SQL Server creo también se puede hacer porque toda la información que buscaba era sobre SQL S...

Sí no encontraras nada dilo, a ver si podemos encontrarlo!

Un saludo, espero que te sirva algo...

Mira en lo que estoy desarrollando es en Visual Studio 2005 (Visual Basic .NET)con base de datos SQL Server 2005 pero igual aplica para SQL Server 2000 hasta donde tengo probado.
Seguido te muestro lo que tengo en el boton de la pantalla que emite un reporte, el reporte esta hecho en el VS-2500 osea cristal reports.

Private Sub btnReporte_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReporte.Click
'' codigo nvo ffg 16-abr-2010
''
Dim orptprueba As New rptAlmacenExistencia
Dim oconexInfo As New ConnectionInfo
Dim olistatablas As Tables
Dim otabla As Table
Dim otablaconexinfo As TableLogOnInfo
'' instanciamos el objeto para guardar datos de conexion
oconexInfo.ServerName = xSrv
oconexInfo.DatabaseName = xDB
oconexInfo.UserID = xLog
oconexInfo.Password = xPass
'' instanciamos objeto de reporte
orptprueba = New rptAlmacenExistencia
'' obtenemos las tablas del reporte
olistatablas = orptprueba.Database.Tables
'' por cada tabla del reporte le anexamos el string de conexion
For Each otabla In olistatablas
'' obtenemos el objeto con los datos de la conexion
otablaconexinfo = otabla.LogOnInfo
'' asignamos el objeto con tados de conexion que hemos creado
otablaconexinfo.ConnectionInfo = oconexInfo
' aplicamos cambios de conexion de la tabla
otabla.ApplyLogOnInfo(otablaconexinfo)
Next
'' parametros
'' para pasar parametros
Dim pvValoresparametros As New ParameterValues()
Dim ParamFields As New ParameterFields()
Dim paramfield As New ParameterField()
Dim IDalmacenmov As New ParameterDiscreteValue()
Dim TipoOrigen As New ParameterDiscreteValue()
Dim Valuado As New ParameterDiscreteValue()

paramfield.Name = "@IdAlmacen"
If Me.chkTodos.Checked = True Then
IDalmacenmov.Value = "0"
Else
IDalmacenmov.Value = Me.cmbAlmOrigen.SelectedItem("IdAlmacen").ToString
End If
paramfield.CurrentValues.Add(IDalmacenmov)
ParamFields.Add(paramfield)

If Me.chkConsignacion.Checked = True Then
TipoOrigen.Value = "C"
Else
TipoOrigen.Value = "P"
End If
paramfield = New ParameterField()
paramfield.Name = "@TipoOrigen"
paramfield.CurrentValues.Add(TipoOrigen)
ParamFields.Add(paramfield)

Valuado.Value = "N"
paramfield = New ParameterField()
paramfield.Name = "@Valuado"
paramfield.CurrentValues.Add(Valuado)
ParamFields.Add(paramfield)
''
frmReporte.CrystalReportViewer1.ReportSource = orptprueba
frmReporte.CrystalReportViewer1.ParameterFieldInfo = ParamFields
'orptprueba.DataSourceConnections = (oconexInfo)
frmReporte.ShowDialog()
'' fin codigo nvo
''Me.limpia()
End Sub

Esto funciona siempre y cuando el reporte tenga el set Verify Database con la base de datos de produccion, esto significa que cuando esta en desarrollo y la quiero poner en produccion la aplicacion por cada reporte hago el Verify a cada reporte.. la idea es no tener que hacerlo...

Saludos y gracias de antemano, voy a probar el codigo que mandaste

Hola buena tarde, oye estuve viendo el codigo.. pero mi pregunta es la siguente, si le pones todos los parametros a la conexion pero cuando la mandas llamar, en donde o que.??.. saludos

Dim Conexion As RDO.rdoConnection

'Esto ya lo tendrás...
Dim App1 As New CRAXDDRT.Application
Dim Report As New CRAXDDRT.Report

'Defino variables:
Dim servidor As String
Dim puerto As String
Dim database As String
Dim usuario As String
Dim pwd As String

Private Sub Command1_Click()
'En el click asigno valores (este es un ejemplo!) de los text del formulario
servidor = Text1.Text
puerto = Text2.Text
database = Text3.Text
usuario = Text4.Text
pwd = Text5.Text

'Asigno reporte...
Set Report = App1.OpenReport(App.Path & "\Ejemplos\ReportePrueba.rpt", 1)

'Establezco conexión
Set Conexion = rdoEngine.rdoEnvironments(0).OpenConnection("", rdDriverNoPrompt, True, "Driver={MySql ODBC 3.51 Driver};Server=" + servidor + ";Port=" + puerto + ";DataBase=" + database + ";Uid=" + usuario + ";Pwd=" + pwd)

'Esto también lo tendrás...
'Abrir reporte
CrystalActiveXReportViewer1.ReportSource = Report
CrystalActiveXReportViewer1.ViewReport

End Sub

Oye, ando un poco liado... sí tengo algo de tiempo te intentaré contestar, sino este fin de semana te lo miro, vale?

Yo andaba buscando información de como cambiar la cadena de conexión en VB6 para CR con MySQL y encontré un montón de información de como cambiarla en VB2008 y C# para SQL... pero ni la guardé ni nada.

Sí fuese para MySQL te podría ayudar en VB6, VB2008 y C# pero siendo para SQL tendría que buscar algo.

En cuanto pueda te contesto.
Un saludo!

Hola Alex,
Tengo un sistema en VB.net 2012 con sql server 2012, genero el instalador lo llevo a la pc del cliente y los formularios funcionan bien pero al abrir los reportes me pide usuario y contraseña, por lo que veo no lee los datos de la cadena de conexión del app.config, quiero probar el código que publicaste pero mi consulta es dónde y como cargas las variables que mencionas aquí :

CrystalReport1.Connect = "DSN=" & DSN_Suc & "; uid=" & USU_SUC & "; pwd=" & PASS_SUC & "; dsq=" & BD_SUC & "; SERVER =" & ser_suc & " "

Ojala me puedas ayudar, saludos