[VB]comment relier BO a vb.net ?

[lou87]

Bonjour !

J'aimerais savoir comment faire pour relier BO à vb.net, autrement dit j'ai un programme en vb.net et j'ai des requêtes répondant aux critères de recherche que j'ai dans mon programme en vb.net sous BO, et j'aimerais par le biais de mon bouton "rechercher" de mon programme en vb.net, passer les critères dans les requêtes BO, et ainsi lancer la recherche sous BO.

Merci d'avance ^^

P.S : J'espère avoir été assez clair....

[lou87]

Personne n'a une idée ?....

[Guillaume34]

Je sais comment le faire en vba mais peut etre qu'en vb.net c'est different.

Je me souviens qu'il fallait ajouter la librairie BO dans le module. Puis creer un objet BO.connection (enfin quelque chose comme ça) et d'autre objet du style.

Si ça t'interesse, je peux te fournir un exemple de code, qui permet de rafraichir une requete BO en passant des paramétres avec en sortie du pdf ou du html.

[lou87]

Merci Guillaume34 !!!



Et oui tu peux me donner ton exemple de code, ce sera toujours un bon début.

Merci !!!!!!

[Guillaume34]

Voila l'exemple du code, j'ai viré pas mal de truc pour simplifier.
Certaine variable ne servent pas.

J'espére que cela pourra t'aider !!

Code :

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
 'Declaration des variables
Dim bodoc As busobj.Document
Dim bo As busobj.Application
Dim FilePath, ReportName, RepoName, promptName, promptName2, promptValue, strChemFich As String
Dim promptValue2 As String
 
 
'affectation des VARIABLES pour log/pwd@domaine
Usrnm = "user"
Pswrd = "mdp"
RepoName = "Bomainbo"
 
'ces variables doivent etre identiques aux invites du rapport BO
promptName = "variable n°1"
promptName2 = "Variable n°2"
...
 
 
'Connection à BO
        SET bo = New busobj.Application
        bo.LoginAs Usrnm, Pswrd, False, RepoName
 
 
            'Ouverture et rafraichissement du Rapport
            Set bodoc = bo.Documents.Open(ReportName, True, False)
            bodoc.Variables.Item(promptName).Value = promptValue
            bodoc.Variables.Item(promptName2).Value = promptValue2
            bo.Application.Interactive = False
            bodoc.Refresh
 
            'Enregistrement du rapport en PDF et HTML
                bodoc.SaveAs savepath & "" & promptValue & ".xls"
                bodoc.SaveAs savepath & "" & promptValue & ".pdf"
 
            'Fermeture de BO
                bodoc.Close
 
bo.Quit