valen
16 de Junio del 2003

Hola que tal!
Tengo un gran problema y esque no se como actualizar los datos de un crystal report en tiempo de ejecucion desde vb6. Utilizo el crystal report 4.6. Muchos me han dicho que con discardsaveddata pero no me funciona me da error.
Por favor alguien sabe como actulizar datos del crystal desde visual?

Gerardo
16 de Junio del 2003

CrystalReport.Connect = "DSN=nombre"
'donde dice nombre va el nombre del ODBC

CrystalReport.WindowState = crptMaximized
CrystalReport.Destination = crptToWindow


CrystalReport.ReportFileName = "C:nombre.rpt"

stSql = "select * from tabla1" 'consulta SQL

CrystalReport.SQLQuery = stSql 'con esto le dices que vuelva a ejecutar la consulta




CrystalReport.Action = 1 ' Comando que dispara el Crystal

viForm = 3 ' Variable en la que le dices el numero de formulas que has empleado
'para rellenar, que luego hay que borrar. Me explico, el CR se crea una matriz de formulas, y si
'no tienes la precauci贸n de limpiarlas cada vez que lanzas el informe tendr谩s problemas ya que
'digamos que 聭recuerda聮 esa matriz de formulas que se va creando el solito y cuando lanzas otro
'informe si no coincide el numero de formulas que empleas en esa nueva ocasi贸n salta un error.

vacia_formulas CrystalReport, viForm 'Procedimiento que limpia las





End Sub
Public Sub vacia_formulas(listado As Crystal.CrystalReport, numero As Integer)

'Procedimiento que limpia la matriz de formulas que se crea el ibjeto CR
Dim tiForm As Integer

For tiForm = 0 To numero
listado.Formulas(tiForm) = ""
Next tiForm
For tiForm = 0 To 10
listado.SortFields(tiForm) = ""
Next tiForm

End Sub