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:
Dans mon fichier XML, à quoi correspond mon paramètre "research" utilisé dans ma fonction Request ?
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
Merci d'avance.
Edit
Voici le contract visible:
Partager