Crystal report & VB Problème d'édition d'état

**Sytchev3** · 11/06/2007, 12h09

Pour imprimer un état crystal report (se remplissant à partir d'une base de données sql server) à partir de vb j'utilise cette procédure et le composant CRVIEWER :

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
Public Sub editer(ByVal nomChemin As String, ByVal unForm As Form, ByVal uneTable As String, ByVal interv As Boolean)
 
 
Dim rptReport As New CRAXDRT.Report
Dim rptRepApp As New CRAXDRT.Application
Dim rtpViews As CRAXDRT.DatabaseTable
Dim rstControle As New ADODB.Recordset
 
 
rstControle.Open "select * from ED_CONTROLE", gConserver
 
If rstControle("CONTROLE") = 1 Then
 
    Set rptRepApp = New CRAXDRT.Application
    Set rptReport = New CRAXDRT.Report
 
 
    With unForm.apercu
 
    Set rptReport = rptRepApp.OpenReport(App.Path & "\Etats\" & nomChemin, 1)
 
    .ReportSource = rptReport
    .ViewReport
 
 
    End With
 
    rptReport.Database.AddOLEDBSource sChaineConnexion, uneTable
 
    If interv = True Then
 
    rptReport.Database.AddOLEDBSource sChaineConnexion, "ED_INTERVENANT"
 
    End If
 
 
 
    unForm.Top = 0
    unForm.Left = 0
    unForm.Width = Screen.Width - 850
    unForm.Height = Screen.Height - 1200
    unForm.apercu.Top = 0
    unForm.apercu.Left = 0
    unForm.apercu.Width = unForm.Width
    unForm.apercu.Height = unForm.Height
    unForm.apercu.EnableGroupTree = False
 
rptReport.DiscardSavedData
 
 
End If
 
 
 End Sub

Mais j'ai un gros problème, le composant Crystal report Viewer me renvoie une erreur : Logon failed Details ADO error Code 0x80040e4d Source : Microsoft OLE DB... for sql server Description : login failed for user 'sa' SQL State 42000
Netive Error : 18456, mais je ne vois vraiment d'ou vien le soucis. Si quelqu'un a une idée ou peut m'aider je lui serait grandement reconnaissant.

Merci d'avance

**Phifi** · 11/06/2007, 14h22

Salut,

je n'utilise pas .Database.AddOLEDBSource , je ne suis pas sûr de pouvoir t'aider donc, mais qu'en est-il de ta chaîne de connexion sChaineConnexion ? Tu es sûr de tes valeurs ? Et cet user 'sa' ? Il existe bien et possède les doits adéquats dans ta base ?

**Sytchev3** · 11/06/2007, 15h12

Si tu as une autre solution à me proposer n'hésite pas, je suis preneur, je suis sur de la chaine de connexion :

Code :

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

Provider=sqloledb.1;Data Source=SRVCOMPTA;Initial Catalog=SMS;User Id=sa;Password=admin;Persist Security Info=True;

puisque je l'utilise dans mon application avec des jeux d'enregistrements...
L'utilisateur sa existe puisque c'est le super administrateur de sql server.

Mais comment t'y prends tu pour remplir les états en ce qui te concerne ???

**Phifi** · 11/06/2007, 15h31

Suivant la complexité des états, je génére une petite base au format Accès en local, comprenant une ou plusieurs tables pré-formatées, que je lie ensuite avec la propriété Report.Database.Tables(Index).Location

Edit : J'ai laissé tombé la connexion dynamique, cela me posait trop de problèmes, je n'ai jamais réussi à la faire marcher correctement (suivant les cas de figure)

**Sytchev3** · 11/06/2007, 15h40

Aurais tu un exemple à me faire parvenir qui utilise la propriété Report.Database.Tables(Index).Location . De plus il y a plusieurs tables dans mon état. ta solution me permettrait donc de la faire.

**Phifi** · 11/06/2007, 16h05

Ben, ça ne marchera pas avec ta base, il n'y a pas d'emplacement physique comme pour une base de type fichier mais une chaîne de connexion.

Je fais comme ça donc :

Code :

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

1
2
3
Set CRrep = CRapp.OpenReport(chemin_reports & "mon_report.rpt")
    '
CRrep.Database.Tables(1).Location = chemin_base & "mabase.mdb"

Si il y a plusieurs tables, je boucle sur l'index de Tables, tout simplement

**Sytchev3** · 12/06/2007, 09h55

En utilisant cette procédure, l'état est visible sans que cela me génère d'erreur mais les données affichées ne correspondent pas à ce qui ce trouve dans la base mais aux données précédentes. peut être y a til une erreur ou manque t'il quelquechose.

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
37
38
39
 
Public Sub editer(ByVal nomChemin As String, ByVal unForm As Form, ByVal uneTable As String, ByVal interv As Boolean)
 
  Dim CrAppl As New CRAXDRT.Application
  Dim CrRep As New CRAXDRT.Report
  Dim AdoRs As New ADODB.Recordset
  Dim rstControle As New ADODB.Recordset
 
 rstControle.Open "select * from ED_CONTROLE", gConserver
 
 If rstControle("CONTROLE") = 1 Then
 
  'Selection des données (La requête doit être la même que la requête du rapport en ado)
  AdoRs.Open " SELECT * from " & uneTable, gConserver, adOpenStatic, adLockReadOnly
 
  Set CrRep = CrAppl.OpenReport(App.Path & "\Etats\" & nomChemin)
 
  Sleep 500
 
  CrRep.Database.Tables(1).SetDataSource AdoRs, 3
  Screen.MousePointer = vbHourglass
  unForm.apercu.ReportSource = CrRep
   unForm.apercu.ViewReport
  Screen.MousePointer = vbDefault
 
 
  'Plein écran
   unForm.Top = 0
   unForm.Left = 0
   unForm.Width = Screen.Width
   unForm.Height = Screen.Height - 400
   unForm.apercu.Top = 0
   unForm.apercu.Left = 0
   unForm.apercu.Width = unForm.Width
   unForm.apercu.Height = unForm.Height
 
 End If
 
  End Sub