Discussion :

[GodGives]

Bonjour!

j'ai fait des états en Crsytal Report que j'utilise en Visual Basic.

Quand j'ouvre mon état en CR, tout est parfait et quand je clique sur le bouton de rafraichissment, l'état est rafraichi; mais quand j'ouvre mon état en VB, non seulemnt, il n'est pas actualisé (rafraichi) et quand que clique sur le bouton de rafraichaissement de mon objet viewer, il m'envoie le message suivant:

Logon failed

Comment faire pour resoudre ce problème?

Merci d'avance.

[Phifi]

Bonjour,

La liaison à ta source de données doit être redéfinie dans ton code.
Difficile d'en dire plus sans autre(s) détail(s) : quelle base de données ? protégée ou non ? quel mode d'accès à la base ? quel code VB pour ouvrir ton report, le lier à ta source etc. ?

[GodGives]

J'utilise du sql server 2000 comme sgbd! quand mon état a de paramètre, je suis obligé de lui servir la source de données par code VB sinon, la commande sql de l'état peut l'alimenter.

Quand j'utilisais le CR9, cela ne posait pas de problème car dans les deux cas, le rafraichissement à partir de l'état appelé en VB était faisable sans message d'erreur. Maintenant j'utilise le CR 11.


Voici le code qui appelle l'état sans lui servir de source:

Code :

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

1
2
3
 
Set crxReport = crxApplication.OpenReport(App.Path & "\Etats\catégorie bordereau.rpt")
e_standard.Show

sur la fenêtre e_standard, j'ai le code suivant:

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
 
Private Sub Form_Load()
crviewer.ReportSource = crxReport
crviewer.Zoom 50
crviewer.EnableRefreshButton = True
crviewer.EnableGroupTree = False
crviewer.EnableCloseButton = True
crviewer.ViewReport
Screen.MousePointer = vbDefault
Me.Top = 0
Me.Left = 0
Me.Width = Screen.Width
Me.Height = Screen.Height - 400
crviewer.Top = 0
crviewer.Left = 0
crviewer.Width = Me.Width
crviewer.Height = Me.Height
 
crviewer.Refresh
 
End Sub

crviewer est le nom donné à l'objet CrystalActivexReportViewer sur la fenêtre e_standard.

[GodGives]

En ce qui concerne la protection et le mode d'accès, j'utilise des sources de données odbc avec nom de compte et mot de passe pour l'accès!

Lorsque je dois servir une source de données à mon état, voici le code que j'utilise:

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
 
Private Sub Form_Load()
 
Charger jeu, "select * from placer where immat='" & f_véhicule.table.Columns(0) & "' order by datefin"
 
crxReport.DiscardSavedData
crxReport.Database.Tables(1).SetDataSource jeu
 
crviewer.ReportSource = crxReport
crviewer.Zoom 50
crviewer.EnableRefreshButton = True
crviewer.EnableGroupTree = False
crviewer.EnableCloseButton = True
crviewer.ViewReport
Screen.MousePointer = vbDefault
Me.Top = 0
Me.Left = 0
Me.Width = Screen.Width
Me.Height = Screen.Height - 400
crviewer.Top = 0
crviewer.Left = 0
crviewer.Width = Me.Width
crviewer.Height = Me.Height
 
crviewer.Refresh
 
End Sub

jeu est un adodb.recordset et charger est une fonction qui permet de mettre une table ou une requête dans un recordset.