A ver si este segmento de código te vale:
los parñametros se los paso a la rutina de la forma 'ByVal ParamArray
Parametros()
As String'
' Fichero del informe
reportDocument.FileName = FicRPT
Application.DoEvents()
' Conexión de la base de datos
If rptConn.EsMDB Then ' Si es MDB
For i = 0 To reportDocument.Database.Tables.Count - 1
reportDocument.Database.Tables(i).Location =
rptConn.BaseDeDatos
Next i
Else
For i = 0 To reportDocument.DataSourceConnections.Count - 1
If rptConn.SeguridadIntegrada Then
reportDocument.DataSourceConnections(i).SetConnection(rptConn.Servidor,
rptConn.BaseDeDatos, True)
Else
reportDocument.DataSourceConnections(i).SetConnection(rptConn.Servidor,
rptConn.BaseDeDatos, rptConn.Usuario, rptConn.Password)
End If
Next i
End If
Application.DoEvents()
' Parámetros del informe
If Parametros.Length > 0 Then
For i = 0 To Parametros.Length - 1
reportDocument.SetParameterValue(i, Parametros(i))
Next i
End If
Saludos. Peni
Para correo:
http://cerbermail.com/?9obrPLaweN
X> Hola a todos;
X>
X> en mi aplicación utilizo bastantes informes de Crystal Reports; el
X> asunto es que si los embebo en la aplicación esta toma un tamaño
X> enorme y además siempre que quiera editarlos tengo que abrir el
X> proyecto y recompilar con los cambios. Es por ello que prefiero
X> utilizarlos como un archivo a parte que cargo desde la aplicación.
X>
X> El problema es que si no lo embebo no sé como pasar parametros al
X> informe, ni modificar las conexión y realizar otras tareas de
X> "configuración" del informe en tiempo real.
X>
X> Por favor, si alguien sabe cómo hacer esto que me lo explique. Ya no
X> se que más probar
X>
X> Muchas gracias
X>
Leer las respuestas