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'erreur
erreur détectée par la dll de la base de données
et 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.
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.