Autor Tema: Crystal Reports 8 Y Vb 6 (Leído 2057 veces)

d0Pe · « **en:** Martes 23 de Octubre de 2007, 07:27 »

hola a todos

oigan alguien sabria como puedo hacerle para mandar algo que tengo en una caja de texto en una forma de vb6 a un reporte hecho en crystal reports???

o si alguien tendria un ejemplo que me podria pasar se lo agradeceria mucho

jeobel

bueno por si te entendi queres es cribir algo y al dar una orden te despliegue la cadena olos numero en un reporte en crystal, pues es algo largo pero si queres una idea te digo
1- tenes que guardar la cadena en un registro de tabla haciendo un consulta
Dim sSQL As String
dim texto1 as string:dim texto2 as string
sSQL = "insert into tabla(StrTexto1,StrTexto2)" & _
"VALUES('" & campo1 & "' ,'" &campo2 & "' ,
2- crear el reporte y tenes q hacer acceso a la tabla
eso e otro rollo que es largo de explicarte a traves crystal y no se como
andes hasta alli pero tens que investigarlo
3- hacer la rutina para desplegar el reporte llamandolo
tenes que dar el paramtero, el parametro el valor de campo1
para que haga refernecia a que queres desplegar

bueno esto es solo una idea por q es bastante largo el proceso
te apuesto que todos los q ha visto esto le dio pereza contestarte por q es largo
el asunto

suerte

cpmario

También tengo VB6 y Crystal Report 8
Primero elaboro el reporte en el Crytal Report, lo guardo y después lo llamo desde VB con una rutina como la siguiente:

Código: Text

' Reporte de CP Reparaciones
Sub PrintInReport(strNumBoleta As String)
    Dim strReport As String
    Dim strReportFilename As String
    Dim strTitle As String
    On Error GoTo ErrorPrintReport
    strReport = &#34;Entrada.rpt&#34;
    strReportFilename = gstrAppPath & strReport
    If Not FileExists(strReportFilename) Then
        gstrMsg = &#34;No es posible mostrar el reporte.&#34; & _
        &#34;Falta el archivo de Reporte: &#34; & strReport & vbCrLf & _
        &#34;Debe estar en el mismo directorio que &#34; & gstrAppTitle
        MsgBox gstrMsg, vbCritical
    End If
    strTitle = &#34;Reporte de Entrada&#34;
    'open and fill report
    With CrystalReport
        .ReportFileName = strReportFilename
        '.Password = gstrPG
        .Password = Chr(10) & gstrPG
        .ReportTitle = strTitle
        .DataFiles(0) = gstrDBMainLargeFName
        .SelectionFormula = &#34;{Identificacion.NumBoleta}='&#34; & strNumBoleta & &#34;'&#34;
        .PrinterCopies = 1
        .PrinterCollation = crptDefault
        .WindowControls = True
        .WindowBorderStyle = crptSizable
        .WindowControlBox = True
        '.WindowState = crptNormal
        .WindowState = crptMaximized
        .WindowTitle = .ReportFileName
        .Destination = crptToWindow
        Screen.MousePointer = vbDefault
        .PrintReport
        If .LastErrorNumber &#62; 0 Then
            gstrMsg = &#34;Error en Reporte: &#34; & .LastErrorString & .LastErrorNumber
            MsgBox gstrMsg
        End If
    End With
Exit Sub
ErrorPrintReport:
    GenErrorHandler &#34;frmMain/PrintMainReport&#34;, Err.Number, Err.Description
    Debug.Print &#34;Error en Crystal: &#34; & CrystalReport.LastErrorString & CrystalReport.LastErrorNumber
End Sub
 
 

Espero te sirva.

SoloCodigo

Autor Tema: Crystal Reports 8 Y Vb 6 (Leído 2057 veces)

d0Pe

Crystal Reports 8 Y Vb 6

jeobel

Re: Crystal Reports 8 Y Vb 6

cpmario

Re: Crystal Reports 8 Y Vb 6