Visual Basic - Como refrescar el reporte de Crystal Reports

Life is soft - evento anual de software empresarial
   
Vista:

Como refrescar el reporte de Crystal Reports

Publicado por Jhonny Kahwati (11 intervenciones) el 03/09/2009 16:50:52
Tengo un problema con mi aplicación ya que tengo un botón para imprimir un reporte en Crystal Reports y cuando hago clic sobre dicho botón el reporte se sale muy bien, el problema es que cuando cierro el reporte y luego vuelvo hacer clic en el boton imprimir el reporte me sale sin información, es decir, solo me aparecen los campos y sin datos.

Como hago para refrescar el reporte de crystal ya que cuando genero el reporte y me sale sin información, al darle al botón de refescar en crystal alli me aparece la información.

Anexo el botón imprimir reporte:

Private Sub imprimir_Click()

Dim Conn
Dim n As Integer
Dim sql, BaseDatos As String
Set Conn = CreateObject("ADODB.Connection")
Conn.Open ("Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:Disco DatoscompartidoJKMPROYECTO DE APLICACIÓN REPORTEReportesProveedoresReportesProveedor.mdb")
sql = "Delete from RP_Proveedores_Occidente"
Conn.Execute (sql)
Conn.Close
Set mb1 = OpenDatabase("C:Disco DatoscompartidoJKMPROYECTO DE APLICACIÓN REPORTEReportesProveedoresReportesProveedor.mdb")
Set mb1 = OpenDatabase("C:Disco DatoscompartidoJKMPROYECTO DE APLICACIÓN REPORTEReportesProveedoresReportesProveedor.mdb")
Set mt4 = mb1.OpenRecordset("RP_Proveedores_Occidente", dbOpenTable)
mt4.AddNew
mt4("FldCaso") = caso
mt4("FldFechaR") = fecha1
mt4("FldFechaCR") = fecha2
mt4("FldProveedor") = proveedor
mt4("FldAnalista") = analista
mt4("FldReportado") = reportado
mt4("FldTelefono") = telefono
mt4("FldMarca") = marca
mt4("FldModelo") = modelo
mt4("FldSerial") = serial
mt4("FldNegocio") = negocio
mt4("FldLocalidad") = localidad
mt4("FldDireccion") = direccion
mt4("FldRequerimiento") = requerimiento
mt4("FldDetalle") = detalle
mt4("FldSolucion") = solucion
mt4.Update
mt4.Close
CrystalReport1.ReportFileName = "C:Disco DatoscompartidoJKMPROYECTO DE APLICACIÓN REPORTEReportesProveedoresReportesReporte a Proveedor.rpt"
CrystalReport1.CopiesToPrinter = 1
CrystalReport1.Destination = crptToWindow
CrystalReport1.RetrieveSQLQuery
CrystalReport1.PrintReport

End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Como refrescar el reporte de Crystal Reports

Publicado por juan carlos (518 intervenciones) el 04/09/2009 07:31:26
vuelve a cargarlo, recuerda que lo cerraste
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar