Bonjour,
J'ai developpé une application vb6 avec une base de données sql server
2000 en utilisant crystal report 8.0 comme editeur d'états .
Mon application n'a pas de nom de base de données fixe , elle prends toujours le nom du client pour pouvoir séparer les bases client.
Jusque là tout est bien mais au moment de l'installation de mon .exe sur un poste client j'ai le message d'erreuret c'est normale puisque j'ai crée mes états avec une base x et j'essaye de les prévisualiser avec un autre nom de base.erreur détectée par la dll de la base de données
Je ne sais pas comment actualiser mes états et leurs donner un autre nom de base à patir de mon code vb .
Voilà le code utilisé :
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 Dim CrAppl As New CRAXDRT.Application Dim CrRep As New CRAXDRT.Report Dim AdoRs As ADODB.Recordset Set AdoRs = New ADODB.Recordset AdoRs.Open "Select * From table WHERE condition", Connection, adOpenStatic, adLockOptimistic Set CrRep = CrAppl.OpenReport(App.Path & "etat.rpt") On Error Resume Next For i = 0 To CrRep.Database.Tables.Count - 1 CrRep.Database.Tables(i).SetLogOnInfo nomserveur, basedonnes, login, password Next CrRep.Database.Tables(1).SetDataSource AdoRs, 3 CRViewer1.ReportSource = CrRep CRViewer1.Refresh CrRep.DiscardSavedData CRViewer1.ViewReport Screen.MousePointer = vbDefault Set CrAppl = Nothing Set CrRep = Nothing
Merci d'avance.
Partager