Boletín mugperu Digital - Julio 2009!
  Search 
Saturday, May 19, 2012 ..:: Foros de Discusión ::.. Register  Login
Foros MUGPERU Minimize
Forums > Otros Temas y Discusiones de Interés > Visual Basic 6 : El de ayer, hoy y siempre
Subject: Imprimir en Crystal Reports 8.5
Prev Next
You are not authorized to post a reply.

Author Messages
oblacionx
Posts:3
26/04/2005 10:00 AM  
Hola tengo un formulario que contiene un boton que al ser presionado deberia de imprimir un reporte, el usuario tiene la opcion de ingresar dentro de un textbox una cadena, y este parametro sera pasado a la consulta, para ejecutar la impresion he desarrollado un stor procedure en MSSQL 2000, mi problema nace en que no tengo ni la menor idea de como conectar en reporte desarrollado con el crystal report 8.5 con el visual basic, algunos me dicen q tengo q agregar referencias y componentes, pero quisiera que me ayuden diciendo cuales son y que codigo necesito dentro del boton imprimir, se los agradece.
roberth20032002
Posts:88
27/04/2005 01:22 PM  

Hola, mira lo que puedes hacer es usar DSN. osea referencias el DSN a tu base de datos del SQL, y al momento de generar el reporte lo enlazas a ese DSN.

en visual Basic tienes que codificar y enlazar ese DSN. Como?? Bueno en tu formulario tienes que añadirle el objeto crystalreport o referenciar ese objeto para que lo puedas usar en tu formulario, y seguidamente usar las propiedades del objeto que has añadido a tu formulario. Si sigues teniendo dudas pasame la vocina.
hmedinac
Posts:22
07/07/2005 09:34 AM  
Hola :

Tienes que hacer referencia a :
- Crystal Report Engine
- Crystal Data Object

y Agregar los componentes : (boton derecho de la barra de herramientas: componentes):
- Crystal Report Control


Bueno esto es un ejemplo en Crystal Report 6, seria equivalente a 8.5. con SQL 2000.

crtReporte1.Connect = "DSN= tuDSN_odbc ;UID=SA;PWD=;DSQ=dbo;"
crtReporte1.WindowState = crptMaximized
crtReporte1.Destination = crptToWindow
crtReporte1.ReportFileName = "c:\reportes\REPORTE083.RPT"
crtReporte1.SQLQuery = "SELECT * FROM tuTABLA"
crtReporte1.Formulas(0) = "IDDPTO='015'"
crtReporte1.Destination = 0
crtReporte1.Action = 1

Espero que se de tu ayuda.
Henry Medina C.
Analista - Programador
You are not authorized to post a reply.
Forums > Otros Temas y Discusiones de Interés > Visual Basic 6 : El de ayer, hoy y siempre > Imprimir en Crystal Reports 8.5


ActiveForums 3.7
        
Copyright 2001-2012 MUGPERU   Terms Of Use  Privacy Statement