Discussion :

[Mady_roar]

Salut à tous,

J'ai actuellement ce contrat de service: http://extranet.synergy.fr/webservic...vice1.svc?wsdl

Voici le code mon unique fonction de mon service:

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
Public Function Request(ByRef research As String) As String Implements IService1.Request
        Dim chaine As String = ""
        Dim lstElement As DbDataReader
 
 
        If String.IsNullOrEmpty(_connex.ConnectionString) Then
            '_connex.ConnectionString = "Data Source=VMD-META-DEMO\SQLEXPRESS;Persist Security Info=True;User ID=*****;Password=****;"
            _connex.ConnectionString = "Data Source=VMD-SWIIP;Persist Security Info=True;User ID=*****;Password=*****;"
        End If
        If _connex.Type = clsConnectionBD.BDDType.NA Then
            _connex.Type = clsConnectionBD.BDDType.SQLServer
        End If
        _connex.Open()
        lstElement = _connex.ExecSelectToDR("SELECT NOM_INF, CMT_INF, RSP_INF, REG_INF FROM T_INF WHERE NOM_INF = '" + research + "' AND IDE_LANG = 1")
 
        While lstElement.Read()
            Dim nomItem As String = lstElement.Item("NOM_INF").ToString
            Dim cmtItem As String = lstElement.Item("CMT_INF").ToString
            Dim rspItem As String = lstElement.Item("RSP_INF").ToString
            Dim regItem As String = lstElement.Item("REG_INF").ToString
 
            chaine = nomItem + " ; " + cmtItem + " ; " + rspItem + " ; " + regItem
        End While
 
        Return chaine
 
    End Function
End Class

Dans mon fichier XML, à quoi correspond mon paramètre "research" utilisé dans ma fonction Request ?

Merci d'avance.

Edit
Voici le contract visible: