SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: zambito en Jueves 9 de Octubre de 2003, 14:12
-
Hola todos estoy usando el Seagate Crystal Report v8. Mi duda es...como hago para insertar mis informes a mi aplicacion VB? o es q tengo q usar la version q viene incluida en el Visual Studio? alguien me ayuda porfa?
-
Yo lo hago asi, inserto el objeto de cristal report. y luego eligo dependiendo de los parametros selecionados cual es el informe que debo mostrar.
'*Nos conectamos con Crystal Reports.
'*Informe de Proyectos.
Set Rpt = cr.OpenReport("Ges-fsspPruebas BIZControl_Horas_DatosProyecto.rpt")
FrmInformesResultado.CrInforme.ReportSource = Rpt
Rpt.Database.SetDataSource Rs
FrmInformesResultado.CrInforme.ViewReport
FrmInformesResultado.Show 1
-
es q es la recien he comenzado con el crystal...no se como agregarlo a mi aplicacion, tu dices por ejemplo"nos conectamos con Crystal..."como se ha ce eso?...o "inserto el objeto Crystal Report"...me puedes dar una idea mas espaecifica?
-
Insertas en un formulario el componente crystal.
Te creas tantos informes como necesites y lo que haces es visualizarlos en el control de Crystal de tu formulario.
-
me podrias decir como hago para q l,os registros del reporte varien de la misma forma q varian en mi objeto ado(al cual le aplico filtros y ordenamientos en ejecucion), osea q se alimente del record set y no de la tabla para se reflejen todos los cambios q hago en modo ejecucion?
-
Yo normalmente asocio a una consulta y no a una tabla, la consulta son todos los campos de de la tabla con algún tipo de ordenación. luego me construyo una Sql en visual y le digo que el origen de ese informe es la sql que me he currado.
Call ElegirSql
' DB.CursorLocation = adUseServer
' Rs.LockType = adLockReadOnly
' Rs.CursorType = adOpenForwardOnly
Set Rs = DB.Execute(StrSql)
If Rs.EOF = False Then
Call ElegirInForme
FrmInformesResultado.CrInforme.ReportSource = Rpt
Rpt.Database.SetDataSource Rs
FrmInformesResultado.CrInforme.ViewReport
FrmInformesResultado.Show 1
Rs.Close
Set Rs = Nothing
' DB.Close
'Set DB = Nothing
Else
FrmSinDatos.Show 1
End If
Espero que te valga.
Un saludo.