Discussion :

[Sytchev3]

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]

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]

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]

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]

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]

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