Discussion :

[Jsh]

Bonjour,

Je suis sur le développement d'une appli en VB6 qui fabrique des rapports CR en PDF.

J'ai une première fonction qui construit le rapport en se connectant à une procédure stockée dans une base de données.

Puis j'ai une seconde fonction (dans le même module) qui rappelle ce rapport, le nomme (suivant une condition) et le dépose sur le serveur.

Cependant dans la deuxième fonction lorsque je veux lire le rapport en faisant Report.ReadRecords, il tente de se connecter à la base de données qui est définie dans Crystal Report (BDD de production) mais qui n'est pas celle vers qui je désire aller (BDD de test).

J'ai essayé d'envoyer des paramètres de connexions avant de faire mon .ReadRecords (en utilisant un RecordSet, en mettant l'appel de la proc stock et de ses paramètres en dur, etc.), mais rien n'y fait.

Quelqu'un aurait une idée sur la démarche à suivre ?

[Jsh]

Voici quelques précisions complémentaires :

- Mes paramètres de connexions sont contenus dans un fichier INI (Server, BDD, chemin du répertoire de sauvegarde des rapports générés)
- Mon utilisateur + mdp de la BDD sont dans le code
- Mon rapport contient une adresse de connexion de BDD différente de celle du INI
- Lorsque je génère mon rapports, je n'ai pas de souci, voici comment j'injecte ma connexion :

Code :

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

1
2
3
4
5
6
 
MonRapport.Database.LogOnServer "pdssql.dll", ServerSQL, BDD, User, Pwd
RpDbCptSource = MonRapport.Database.Tables.Count
For Numsource = 1 To RpDbCptSource
   MonRapport.Database.Tables(Numsource).SetLogOnInfo ServerSQL, BDD, User, Pwd
Next

- Mais lorsque je rappelle mon rapport pour l'exporter c'est là que je rencontre mon problème.
- Si je suis en debug et que je pose un espion sur MonRapport je découvre alors que la connexion tente de se faire vers mon autre Serveur de BDD, celui qui est inscrit dans le rapport.

Alors avant de faire mon ReadRecords (et ensuite MonRapport.Export(false)), J'ai tenté de "réinjecter" la chaine de connexion ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim adors As ADODB.Recordset
 
Set MonRapport = CR.OpenReport(C:\MonProgramme\RPT\LeRapport.rpt)
 
Set adors = New ADODB.Recordset
 
adors.Open "EXEC [MaBase].[dbo].[MaProcStock] 'StringParam1', ''StringParam2', 'Date1', 'Date2'", _
  MaChaineConnexion, adOpenForwardOnly, adLockOptimistic
 
MonRapport.Database.Tables(1).SetDataSource adors

Mais mêmes symptômes !

[Jsh]

J'ai ainsi résolu mon souci :

en enregistrant dans le rapport les valeurs passés pour la procédure stockée à NULL, il se dirige alors vers la bonne BDD

Je ne sais pas pourquoi, j'entrevoie une certaine logique, mais bon quoi...