Crystal Reports, embebido o no embebido

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>

Muchas gracias. Efectivamente funcionó


"Peni (Francisco)" escribió en el mensaje
news:

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>

A mandar :-)


Saludos Peni

Para correo:
http://cerbermail.com/?h4s9sbNqzW

"XTV" escribió en el mensaje
news:

Muchas gracias. Efectivamente funcionó


"Peni (Francisco)" escribió en el mensaje
news:

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>