Help VB Parametros a Crystal

18/09/2006 - 15:40 por Jaime Infante | Informe spam
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

#1 Peni (Francisco)
18/09/2006 - 17:21 | Informe spam
Cual es el problema? No entiendes el código que puse?


Saludos. Peni
Para correo: http://cerbermail.com/?9obrPLaweN

JI> A ver si este segmento de código te vale:
JI>
JI> los parñametros se los paso a la rutina de la forma 'ByVal
JI> ParamArray
JI> Parametros()
JI> As String'
JI> ' Fichero del informe
JI> reportDocument.FileName = FicRPT
JI> Application.DoEvents()
JI> ' Conexión de la base de datos
JI> If rptConn.EsMDB Then ' Si es MDB
JI> For i = 0 To reportDocument.Database.Tables.Count - 1
JI> reportDocument.Database.Tables(i).Location JI> rptConn.BaseDeDatos
JI> Next i
JI> Else
JI> For i = 0 To reportDocument.DataSourceConnections.Count
JI> - 1
JI> If rptConn.SeguridadIntegrada Then
JI>
JI> reportDocument.DataSourceConnections(i).SetConnection(rptConn.Servid
JI> or,
JI> rptConn.BaseDeDatos, True)
JI> Else
JI>
JI> reportDocument.DataSourceConnections(i).SetConnection(rptConn.Servid
JI> or,
JI> rptConn.BaseDeDatos, rptConn.Usuario, rptConn.Password)
JI> End If
JI> Next i
JI> End If
JI> Application.DoEvents()
JI> ' Parámetros del informe
JI> If Parametros.Length > 0 Then
JI> For i = 0 To Parametros.Length - 1
JI> reportDocument.SetParameterValue(i, Parametros(i))
JI> Next i
JI> End If
JI> --
JI>
JI> JI> Saludos. Peni
JI> 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>>

Preguntas similares