Bonjour tous le monde,
Voilà je block là, j'ai un problem avec vb6/crystal report et je trouve la réponse null part,
j'ai arriver à afficher les donnée de mon etat cree avec crystal report dans un crystale viewer, meme avec un filtre touis marche à merveille mais l'etat ne suis pas le changement de ma base de donnée, il n'affiche que les information enregistrer lors de la creation de mon etat et rien d'autre, je veux s'avoire si qlq sait comment actualiser mon etat lors de l'impression. ci-desous vous trouverai mon code :
Option Explicit
Dim rpt As CRAXDRT.Report
Dim DB As CRAXDRT.Database
Dim RS As New ADODB.Recordset
Dim WithEvents sect As CRAXDRT.Section
Private Sub Form_Resize()
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth
End Sub
Private Sub Form_Unload(Cancel As Integer)
cn.Close
End Sub
Public Sub imprimer(etat, sqlq, crit, title, comment)
Screen.MousePointer = vbHourglass
Set rpt = crx.OpenReport(App.Path & etat) 'etat="\etat1.rpt")
'rpt.Application.LogOnServer "pdsodbc.dll", "MS Access database", "pro.mdb", "admin", "logisoft2008"
rpt.Application.OpenReport App.Path & etat
Set DB = rpt.Database
rpt.ReportTitle = "Journale " & title
If Trim(comment) <> "" Then rpt.ReportComments = comment
RS.Open sqlq, cn, 3, 1 'sqlq"SELECT * FROM journal"
rpt.Database.SetDataSource RS, 1, 1
rpt.RecordSelectionFormula = crit 'crit="{ado.mtRem}=0"
Dim i
For i = 1 To rpt.Database.Tables.Count
'On connecte la table à la base de données
rpt.Database.Tables(i).SetLogOnInfo "MS Access database", _
"pro.mdb", "admin", "logisoft2008"
' Note : les paramètres entre crochets sont optionnels
Next i
CRViewer1.ReportSource = rpt
CRViewer1.ViewReport
CRViewer1.Zoom 1
Screen.MousePointer = vbDefault
End Sub