Discussion :

[warzet]

Bonjour à tous, j'ai un gros problème pour visualiser, ou dirais-je d'élaboration d'un Etat Crystal Report sous VB6 et Access 2003.

1. J'ai établi sous Crystal Report un état basé sur une Table Access 2003 ma BDD dans l'Application Vb6 que je suis entrain de developper, je ne sais pas si je procède de la bonne manière. Car, après l'élaboration de l'Etat, je suis retourné dans mon Appl VB6 pour essayer de pouvoir le récuperer là, mais je me suis rendu à l'évidence, ça coince.

2. Mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Private Sub Data()
 
Ouvrir
 
Dim CrAppl As New CRAXDRT.Application
Dim CrRep As New CRAXDRT.Report
Dim AdoRs As New ADODB.Recordset
Dim i As Integer
 
AdoRs.Open "SELECT * FROM Avancements WHERE Grade like '" & FrmMisEnSituation.TxtSit(11).Text & "'", CnxADO, 1, 2
 
    Set CrRep = CrAppl.OpenReport(App.Path & "\Reports\Avancements.rpt")
        For i = 1 To CrRep.Database.Tables.Count
        CrRep.Database.Tables(i).SetLogOnInfo "Microsoft Access  Driver", "GestionDMIR"
        Next i
    'CrRep.Database.Tables(1).SetDataSource AdoRs, 3
    Screen.MousePointer = vbHourglass
    CRViewer1.ReportSource = CrRep
    CRViewer1.ViewReport
    Screen.MousePointer = vbDefault
 
Me.Top = 0
Me.Left = 0
Me.Width = Screen.Width
Me.Height = Screen.Height - 400
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Width = Me.Width
CRViewer1.Height = Me.Height
 
End Sub
-------------------------------------------
Private Sub Form_Load()
Call Data
End Sub
------------------------------------------

Pourriez-vous me donner un coup de main s'il vous plait
XP SP3 - VB6 - Access 2003 - Crystal Report 8.5
je vous remercie

[bargougui86]

Etes vous sûr que la requête dans l'état crystal report est la même au niveau vb6??

[bargougui86]

Prenez l'habitude que si vous avez trouver la solution clicker sur le bouton résolu ou bien n'oublier pas de suivre votre problème jusqu'au bout
Merci