SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: d0Pe en Martes 23 de Octubre de 2007, 07:27

Título: Crystal Reports 8 Y Vb 6
Publicado por: 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

Título: Re: Crystal Reports 8 Y Vb 6
Publicado por: jeobel en Viernes 26 de Octubre de 2007, 23:22

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

Título: Re: Crystal Reports 8 Y Vb 6
Publicado por: cpmario en Sábado 27 de Octubre de 2007, 06:32

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

1. ' Reporte de CP Reparaciones
2. Sub PrintInReport(strNumBoleta As String)
3.     Dim strReport As String
4.     Dim strReportFilename As String
5.     Dim strTitle As String
6.     On Error GoTo ErrorPrintReport
7.     strReport = "Entrada.rpt"
8.     strReportFilename = gstrAppPath & strReport
9.     If Not FileExists(strReportFilename) Then
10.         gstrMsg = "No es posible mostrar el reporte." & _
11.         "Falta el archivo de Reporte: " & strReport & vbCrLf & _
12.         "Debe estar en el mismo directorio que " & gstrAppTitle
13.         MsgBox gstrMsg, vbCritical
14.     End If
15.     strTitle = "Reporte de Entrada"
16.     'open and fill report
17.     With CrystalReport
18.         .ReportFileName = strReportFilename
19.         '.Password = gstrPG
20.         .Password = Chr(10) & gstrPG
21.         .ReportTitle = strTitle
22.         .DataFiles(0) = gstrDBMainLargeFName
23.         .SelectionFormula = "{Identificacion.NumBoleta}='" & strNumBoleta & "'"
24.         .PrinterCopies = 1
25.         .PrinterCollation = crptDefault
26.         .WindowControls = True
27.         .WindowBorderStyle = crptSizable
28.         .WindowControlBox = True
29.         '.WindowState = crptNormal
30.         .WindowState = crptMaximized
31.         .WindowTitle = .ReportFileName
32.         .Destination = crptToWindow
33.         Screen.MousePointer = vbDefault
34.         .PrintReport
35.         If .LastErrorNumber > 0 Then
36.             gstrMsg = "Error en Reporte: " & .LastErrorString & .LastErrorNumber
37.             MsgBox gstrMsg
38.         End If
39.     End With
40. Exit Sub
41. ErrorPrintReport:
42.     GenErrorHandler "frmMain/PrintMainReport", Err.Number, Err.Description
43.     Debug.Print "Error en Crystal: " & CrystalReport.LastErrorString & CrystalReport.LastErrorNumber
44. End Sub
45.  
46.  

Espero te sirva.
 :comp: