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 |
