[VB6] Aggiornare ogni volta il DB su Crystal Report

[Noodles86]

ciao a tutti
Sto facendo un programma in visual basic 6 dove si effetuano ricerche e il risultato viene visualizato in un datagrid dopo faccio un report dove viene visualizato il risultato sul datagrid dove il contenuto di questo viene salvata su una tabella nel database e per ogni ricerca effetuata voglio fare una stampa pero alla ricerche successive il report rimane sempre con gli dati della prima ricerca effetuata , come faccio a fare che il report si aggiorni ogni volta che viene chiamato?
spero di essermi fatto capire e grazie mille per gli eventuali aiuti
ciao!

[Luke(BI)]

prima di lancira i report fai "discardsavedata"?

che crystal usi?
io il 9 e uso queste righe

Dim crxApplication As CRAXDRT.Application
Dim crxReport As CRAXDRT.Report

On Error Resume Next

Set crxApplication = CreateObject("CrystalRuntime.Application")
Set crxReport = crxApplication.OpenReport(pathReport)
crxReport.RecordSelectionFormula = selectionFormula
crxReport.DiscardSavedData
DoEvents

è ovviament eparte di una funzione
spero di averti aiutato fammi sapere ciauuuuu

[Noodles86]

ti rigrazio molto x l'aiuto ma sinceramente non ti ho molto capito io ho il crystal report 8 mi spighi dove devo inserila e in ke contesto , il report gia esiste ma volgio che si aggiorni ogni volta che lo richiamo grazie ad un bottone che ho su un form grazie e ciao

[Luke(BI)]

ciao scusa per il ritardo
allora il codice che ti ho postato sopra utilizza il crystal report 9

ora ti posto quello per l'8

Sub Stampa(Form As Form, rpt As CrystalReport, NomeReport As String, Formula As String, VideoStampante As String)

With rpt
.ReportFileName = NomeReport
.SelectionFormula = Formula
.WindowShowPrintSetupBtn = True
.WindowState = crptMaximized
If VideoStampante = "V" Then
.Destination = crptToWindow
Else
.Destination = crptToPrinter
End If
.WindowControls = True
'...è questo che aggiorna i dati ogni volta!
.DiscardSavedData = True '<-------
'..........................................
.Action = 1
End With

End Sub


capito?

[Noodles86]

grazie mille pero ho aggiutno solo quella riga di comando xche mi serviva solo quella ma mi dice che asseganzione alla costante non ammessa xche?
ti scrivo il mio codice che richiama il crystal report:

Dim Report As New CrystalReport1

Private Sub Form_Load()
Report.DiscardSavedData = True
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
End Sub

Private Sub Form_Resize()
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth

End Sub