elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Security Series.XSS. [Cross Site Scripting]


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Cristal Report XI
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Cristal Report XI  (Leído 1,595 veces)
javierjava

Desconectado Desconectado

Mensajes: 19


Ver Perfil
Cristal Report XI
« en: 18 Julio 2008, 19:00 pm »

que tal.. alguien me puede ayudar de como puedo usar un reporte de cristal report XI en visual basic 6.0 ya tengo una  peña base de datos y esos datos quiero mostrarlos en un reporte pero no tengo idea de como  >:(


En línea

gulabyte

Desconectado Desconectado

Mensajes: 97



Ver Perfil
Re: Cristal Report XI
« Respuesta #1 en: 18 Julio 2008, 19:28 pm »


No se lo que es eso de reporte de cristal report XI pero se me ocurre que igual podrias leer el texto o lo que sea con el bloc de notas, es posible que aparezca lo que necesitas sin el programa ese.

Si es posible, si puedes ver el texto o las cifras o lo que necesites pues cambiale la extensión a .txt y abrelo desde visual basic como si fuera un archivo de texto. Así vas agregando cada linea o lo que sea a un listbox o a un textbox.

Código:
Private Sub Form_Load()
Dim Line As String

Open "C:\text.txt" For Input As #1
    Do While Not EOF(1) 'End Of File
        Input #1, Line
        ListWow.AddItem List
    Loop
Close #1

End Sub

Quizás tengas que arreglartelas un poco para separar las lineas o los datos de cada linea pero eso lo puedes hacer ya en visual basic metiendolo todo en una variable y apañandola.

Repito no sé ni lo que es eso de Cristal Report XI pero podría funcionar, a ver que tal.

Salu10


En línea

Angeldj27

Desconectado Desconectado

Mensajes: 199


Ahorra Agua... Beba Cerveza


Ver Perfil
Re: Cristal Report XI
« Respuesta #2 en: 18 Julio 2008, 19:53 pm »

Aki te dejo un pequeño ejemplo aunque yo utilizo cristal report 10 pero en ecencia debe ser lo mismo

claro con un report externo con un DNS (ODBC) para su facil manejo en mi caso esta con una database de Sql Server

Código:
en el form 
Public m_Application As New CRAXDDRT.Application
Dim m_Report As CRAXDDRT.Report
Dim FileReport As String

FileReport = App.Path + "\REPORTES\ESTUDIANTE_DATOS.rpt" 'ruta del report
    Set m_Report = m_Application.OpenReport(FileReport, 1)
    m_Report.Database.Tables(1).SetLogOnInfo "DNSName", "Database", "usuario", "pssword" 
   
   SQL = "{ESTUDIANTE_PRINT.CampoFiltro} = '" & (DBCCodigo.Text) + "'"
       
      '**********************************
        Set SectD = Nothing       
        Set SectD = m_Report.Sections("PH") ' Aqui va el nombre corto de la sección donde va a salir la foto en el reporte (si vas a enviar una foto o imagen )
        '**********************************
 
 
    FileReport = FileReport
    Set m_Report = m_Report
    m_Report.RecordSelectionFormula = SQL
    FormX.Show  'En este Formulario agregas este componente el CRViewer1 para visualizar el report



Oh se me olvidaba en el FormX va este codigo

Código:
Private Sub Form_Resize()
On Error Resume Next

CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth
End Sub

esta es una forma de las mas facil de hacerlo eso creo antes lo tenia en el mismo codigo pero con el report externo se me hace mejor por la razon de las mejoras o cambios que se hacen o te solicitan.

Talves te sirva de algo
Saludos...
« Última modificación: 18 Julio 2008, 19:59 pm por misterpc27 » En línea



"Que vamos a hacer Mañana?..... Lo mismo que hacemos todos los dias Pinky tratar de Conquistar el Mundoooo!!!!!
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Desarrollan un `cristal invisible´en Japón
Noticias
wolfbcn 0 1,578 Último mensaje 1 Noviembre 2011, 13:43 pm
por wolfbcn
Como se quita los rayones de la gafas de cristal?
Foro Libre
derden32 8 3,967 Último mensaje 1 Septiembre 2015, 23:33 pm
por f7eo
rayaduras cristal « 1 2 »
Foro Libre
biblio_656 13 6,490 Último mensaje 25 Julio 2016, 06:55 am
por engel lex
Cristal movil
Foro Libre
desna 1 1,530 Último mensaje 18 Agosto 2018, 02:10 am
por EdePC
Las creencias con las que se fabrica el techo de cristal
Foro Libre
Machacador 6 2,859 Último mensaje 10 Marzo 2020, 20:06 pm
por **Aincrad**
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines