Programación General > Visual Basic 6.0 e inferiores

 Crystal Reports 8 Y Vb 6

(1/1)

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

Navegación

[0] Índice de Mensajes