Visual Basic - Conectar Crystal con Visual

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Conectar Crystal con Visual

Publicado por anonymous (171 intervenciones) el 15/06/2005 22:22:50
Hola
Hice un reporte en Crystal Reports 9, sin fórmulas ni nada, por lo que aparecen cada uno de los registros de mi base de datos, en mi programa hecho en VB6 quiero poner un botón para que me mande a imprimir ese reporte de crystal pero únicamente el registro que pongo en pantalla en el programa.
Ojalá alguien pueda ayudarme a descifrar mi duda porque hasta ahora no he podido hacerlo
Gracias de antemano.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Julio Meza

RE:Conectar Crystal con Visual

Publicado por Julio Meza (9 intervenciones) el 16/06/2005 04:26:40
Ok. Para ello debes hacer lo siguiente:

1. Debes agregar el componente de Crystal Report:
Menu Project - Components... - Crystal Report Control.

2. Agrega este control (Crystal Report) a tu ventana principal para que no tengas que estarlo haciendo en cada ventana desde donde lo quieras ejecutar, este componente no es visible en tiempo de ejecucion. Llamalo cryReportes.

3. En la ventana desde donde deseas ejecutar tu reporte (llamemole Form1 para efectos del ejemplo con un boton command1) create una variable global para capturar la condicion de la busqueda que deseas ejecutar o filtrar.

Sub command1_Click()
Dim vl_Cond As String

vl_Cond = "{tabla.columna1} = '" + Trim(txtText(1).Text) + "'"
vl_Cond = vl_Cond + " and {tabla.columna2} = '" + Trim(txtText(2).Text) + "'"

Form1.cryReportes.WindowState = crptMaximized
Form1.cryReportes.Destination = crptToWindow
Form1.cryReportes.ReportFileName = "Ruta completa del reporte "
Form1.cryReportes.SelectionFormula = vl_Cond

' Esta linea solo si tu base de datos es SQL Server, Sybase y si tiene password
Form1.cyrReportes.Connect = ConnectionString de tu variable de Coneccion

Form1.cryReportes.Action = 1
Form1.cryReportes.SelectionFormula = ""
End Sub

Espero que esto te ayude si no cualquier cosa nomas me escribes, ok.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Gracias Julio Meza

Publicado por anonymous (171 intervenciones) el 17/06/2005 03:56:27
Gracias nuevamente amigo, voy a poner en práctica tu consejo y cualquier cosa te hago saber a tu correo.
Espero que estés bien.
Saludos desde Zacatecas, Mex.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar