Discussion :

[domija]

http://www.developpez.net/forums/ima...n_rolleyes.gif
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 :

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

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

[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

[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

[domija]

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 :

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
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

[gwent]

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 :

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
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