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