Discussion :

[Slici]

Bonjour !

pour mon appli, je dois établir une connexion à une base Business Object (5.1), pour mettre a jour et rapatrier des données dans Access, afin de les mettre en forme puis de les exploiter dans mes formulaires.

Voici comment je fais ma connexion à BO en VBA :

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
 
Private Sub Connexion()
 
Dim appBO As busobj.Application
Dim docBO As busobj.Document
Dim repBO As busobj.Report
 
 
Set appBO = New busobj.Application
appBO.Interactive = True
 
appBO.LoginAs "[identifiant]", "[mot de passe]", False
appBO.Visible = true
 
docBO.Refresh
 
[...]
 
appBO.Interactive = False
 
docBO.Close
appBO.Quit
 
Set docBO = Nothing
Set appBO = Nothing
 
End Sub

Il faut savoir aussi que lorsque je me connecte directement à BO, c'est via un batch qui fais ceci :

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
echo off
 
if exist "C:\Program Files\Business Objects\BusinessObjects 5.0\LocData\infoca.key" goto encours
 
XCOPY "C:\Program Files\idc\Is_\93\infoca.key" "C:\Program Files\Business Objects\BusinessObjects 5.0\LocData"
if errorlevel 1 goto erreur
 
"C:\Program Files\Business Objects\BusinessObjects 5.0\busobj.exe"
 
del "C:\Program Files\Business Objects\BusinessObjects 5.0\LocData\infoca.key"
 
goto fin
 
:encours
cls
echo .
echo Une application Business Object est en cours d'exécution.
echo Fermer cette application puis relancer votre application.
echo Si ce n'est pas le cas, supprimer le fichier:
echo  C:\Program Files\Business Objects\BusinessObjects 5.0\LocData\infoca.key
echo .
pause
goto fin
 
:erreur
cls
echo .
echo Erreur lors de la copie du fichier :
echo  C:\Program Files\idc\Is_\93\infoca.key vers C:\Program Files\Business Objects\BusinessObjects 5.0\LocData
echo .
pause
:fin

en gros il copie le fichier 'infoca.key' dans le dossier LocData de BO?

ma connexion en VBA ne fonctionne pas, il me dit que je n'ai pas les droits suffisant, et mon identifiant n'apparait pas en haut dans la barre de titre... Meme en faisant cette opération en ayant copié 'infoca.key' dans LocData à la main cela ne fonctionne pas....

Vous auriez une idée d'où cela pourrait provenir?

Pour le moment j'enregistre mes requetes BO 'pour tous les utilisateurs' mais cela ne regle pas le problème de la mise a jour des données :s

[pc75]

Bonjour,

Quand tu fais ça :

appBO.LoginAs "[identifiant]", "[mot de passe]", False

identifiant et mot de passe viennent d'où ?

[Slici]

bonjour !

ce sont l'identifiant et le mot de passe que l'on m'a donné pour me connecter à business object, via le batch, qui lance Business Object. Je tombe alors sur la fenetre de connexion où je rentre ces informations et BO démarre.

Par contre en lancant directement BO depuis ...\Program Files\Business Objects\BusinessObjects 5.0\BUSOBJ.EXE , BO se lance mais ne me demande pas mes informations de connexion... et d'ailleurs il ne trouve aucun univers...

Ensuite j'ai copié 'infoca.key' dans le dossier LocData, et là ca marche, il me demande mes informations de connexion et trouve les univers...

La solution serait de copier 'infoca.key' dans LocData avant chaque connexion de BO dans Access??

[Slici]

Bonjour !

en fait, j'ai fait ce que j'ai marqué dans mon précédent post, c'est-à-dire copier le fichier en début de procédure dans le dossier LocData, puis je fais ma connexion à BO de manière normale, et enfin je supprime mon fichier. Cela donne ceci :

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
 
Dim appBO As busobj.Application
Dim docBO As busobj.Document
Dim repBO As busobj.Report
 
' copie de la clé BO
    FileCopy "C:\Program Files\idc\is_\93\infoCA.key", "C:\Program Files\Business Objects\BusinessObjects 5.0\LocData\infoCA.key"
 
Set appBO = New busobj.Application
appBO.Interactive = True
appBO.Visible = True
 
' Authentification Infoservice
appBO.LoginAs "PUA389", "ISAB", False
 
[[ ici la suite de ma fonction.... ]]
 
appBO.Interactive = False
 
docBO.Close
appBO.Quit
 
Set docBO = Nothing
Set appBO = Nothing
 
'Suppression de la clé BO
Kill ("C:\Program Files\Business Objects\BusinessObjects 5.0\LocData\infoCA.key")