Cristal Report XI

[javierjava]

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 

[gulabyte]

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 [Seleccionar] Expandir

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

[Angeldj27]

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 [Seleccionar] Expandir

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 [Seleccionar] Expandir

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...