Interroger un service Web (SOAP) en VBA

Version imprimable

http://www.developpez.net/forums/ima...n_rolleyes.gif
:roll: Bonjour à tous,

Je débute en développement Visual studio mais j'ai réalisé un service web qui permet d'interroger les tables d'une base données via ADO .net sur un serveur.
Il semble que ce service fonctionne convenable et me retourne un message XML (soap) d'une variable de type dataset.
Sur un poste client dans mon application VBA, je ne parviens pas à initialiser une variable de type dataset pour récupérer les données du service web interrogé.

Je vous présente le code VBA que j'utilise.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub TesteServ_Click() Dim WSClient As MSSOAPLib.SoapClient Dim TabRecep As DataSet '<= Type de variable inconnu Dim tempo As String Set WSClient = New MSSOAPLib.SoapClient WSClient.mssoapinit "http://172.20.6.5/ServiceDJA/DataGesCom.asmx?wsdl", "DataGesCom", "" TabRecep = WSClient.ReqGesCom("") 'TabRecep = WSClient.HelloWorld() '<= Class de teste du service Web '// Gestion de l'affichage des données récupérées // 'Me.EtiqDegre.Caption = TabRecep End Sub
Je vous remercie d'avance pour votre aide

18/09/2007, 13h19
Arkham46

Bjr,

Tu peux essayer un type object ou variant.
Ensuite tu mets un point d'arrêt et tu regardes le type de données renvoyées dans la "fenêtre Variables locales".

Si ça ne marche pas, regarde sur le support microsoft :
http://support.microsoft.com/kb/307033/fr
18/09/2007, 14h26
Philippe PONS

En VBA, tu ne peux pas récupérer de DataSet, ni même de recordset.
Il faut extraire directement les données du flux xml.
Pour ça, il faut installer la librairie Microsoft XML v6.0.
Le lien suivant peut t'aider:

http://www.perfectxml.com/msxmlAnswers.asp?Row_ID=53

Philippe

:bug: Bonjour,

Visiblement il n'y a pas de variable susceptible de recevoir un dataset et il faut donc intervenir dans le code XML.

J'ai regardé le cite que tu m'indique mais je bute sur la propriété GetAll du client SOAP.
J'ai le message suivant à l'exécution du code :
"Erreur 438 . Propriété ou méthode non gérée par cet objet"

Pas de problème à la compilation.
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 Private Sub TesteServ_Click() Dim objSOAP As New MSSOAPLib.SoapClient Dim vXMLNodeList As MSXML2.IXMLDOMNodeList Dim vXMLNode As MSXML2.IXMLDOMNode Dim objXMLDom As New MSXML2.DOMDocument40 Dim vDocRoot As IXMLDOMElement objSOAP.mssoapinit _ "http://172.20.6.5/ServiceDJA/DataGesCom.asmx?wsdl", "DataGesCom", "" Set vXMLNodeList = objSOAP.GetAll("0072223693") objXMLDom.async = False objXMLDom.validateOnParse = False objXMLDom.loadXML "<WebMethodResults />" Set vDocRoot = objXMLDom.documentElement For Each vXMLNode In vXMLNodeList vDocRoot.appendChild vXMLNode Next MsgBox objXMLDom.XML Exit Sub
J'ai également essayé avec SOAP tootkit v3
( Dim objSOAP As New MSSOAPLib30.SoapClient30 )
Idem !!!

Merci pour l'aide

Citation:
Envoyé par domija
:bug: Bonjour,

Visiblement il n'y a pas de variable susceptible de recevoir un dataset et il faut donc intervenir dans le code XML.

J'ai regardé le cite que tu m'indique mais je bute sur la propriété GetAll du client SOAP.
J'ai le message suivant à l'exécution du code :
"Erreur 438 . Propriété ou méthode non gérée par cet objet"

Pas de problème à la compilation.
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 Private Sub TesteServ_Click() Dim objSOAP As New MSSOAPLib.SoapClient Dim vXMLNodeList As MSXML2.IXMLDOMNodeList Dim vXMLNode As MSXML2.IXMLDOMNode Dim objXMLDom As New MSXML2.DOMDocument40 Dim vDocRoot As IXMLDOMElement objSOAP.mssoapinit _ "http://172.20.6.5/ServiceDJA/DataGesCom.asmx?wsdl", "DataGesCom", "" Set vXMLNodeList = objSOAP.GetAll("0072223693") objXMLDom.async = False objXMLDom.validateOnParse = False objXMLDom.loadXML "<WebMethodResults />" Set vDocRoot = objXMLDom.documentElement For Each vXMLNode In vXMLNodeList vDocRoot.appendChild vXMLNode Next MsgBox objXMLDom.XML Exit Sub
J'ai également essayé avec SOAP tootkit v3
( Dim objSOAP As New MSSOAPLib30.SoapClient30 )
Idem !!!

Merci pour l'aide
Bonjour,

As tu réussi à te connecter à ton sertvice WEB?

merci