Visual Basic

SELECT     ID, Ime, Priimek, [Službeni telefon], [Službeni GSM], [Domaci telefon], [Privatni GSM], [Elektronska pošta], [Domaci naslov]<br />
FROM         SLUŽBA<br />
WHERE     (Priimek LIKE '%' & '@NAME' & '%')

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
<br />
        Dim NAME As String<br />
<br />
        NAME = TextBox1.Text<br />
<br />
        <br />
        Try<br />
            Me.SLUŽBATableAdapter.FillBy2(Me.TelefonskiImenikDataSet.SLUŽBA, NAME)<br />
        Catch ex As System.Exception<br />
            System.Windows.Forms.MessageBox.Show(ex.Message)<br />
        End Try<br />
    End Sub

        Dim Map As New WebServices.WebServicePerformance1.Map<br />
<br />
        Map.item(0).value = ptfCode<br />
        Map.item(1).value = "VL_BASE100_DTD"<br />
        Map.item(2).value = "codeTypePart"<br />
        Map.item(3).value = "PTF_INDICES"<br />
        Map.item(4).value = "0"<br />
<br />
        Dim Res As String = Perf.calculReportMultiDevise(Map)<br />
<br />
        Return Res

Sub getValorisationPtf_bench(codeTypePart As String, ptfCode As String, typeindices As String, deviseCalcul As String, periodicite As String, startDate As String, endDate As String, colonneAffiche As String, startRowIndex As Integer, startColIndex As Integer)<br />
    <br />
    Dim Connector As SoapConnector<br />
    Dim Serializer As SoapSerializer<br />
    Dim Reader As SoapReader<br />
   <br />
 <br />
    Set Connector = New HttpConnector<br />
    Set Serializer = New SoapSerializer<br />
    Set Reader = New SoapReader<br />
' construction du message Soap<br />
    Connector.Property("EndPointURL") = URL<br />
'   Connector.Property("ConnectTimeout") = 120000<br />
    Connector.Property("Timeout") = 300000<br />
    Call Connector.Connect<br />
    Connector.Property("SoapAction") = URIPERF & "#" & "calculReportMultiDevise"<br />
    Call Connector.BeginMessage<br />
<br />
    Serializer.Init Connector.InputStream<br />
<br />
    Serializer.StartEnvelope , ENC<br />
    Serializer.SoapNamespace "xsi", XSI<br />
    Serializer.SoapNamespace "SOAP-ENC", ENC<br />
    Serializer.SoapNamespace "xsd", XSD<br />
<br />
 ' Construction des paramètres d''appel<br />
    Serializer.StartBody<br />
    Serializer.StartElement "calculReportMultiDevise", URIPERF, , "ns1"<br />
    Serializer.SoapAttribute "EncodingStyle", , "http://schemas.xmlsoap.org/soap/encoding/", "SOAP-ENV"<br />
    Serializer.StartElement "Code", "http://xml.apache.org/xml-soap", , "ns2"<br />
    Serializer.SoapAttribute "type", , "ns2:Map", "xsi"<br />
    addMessageEntry Serializer, "codeActif", ptfCode, "xsd:string"<br />
    addMessageEntry Serializer, "codereq", "VL_BASE100_DTD", "xsd:string"<br />
    addMessageEntry Serializer, "typepart", codeTypePart, "xsd:string"<br />
    addMessageEntry Serializer, "typecalcul", "PTF_INDICES", "xsd:string"<br />
    <br />
    Serializer.EndElement<br />
    <br />
    Serializer.StartElement "colonneAffiche"<br />
    Serializer.SoapAttribute "type", , "xsd:string", "xsi"<br />
    Serializer.WriteString colonneAffiche<br />
    Serializer.EndElement<br />
        <br />
    Serializer.EndElement<br />
    Serializer.EndBody<br />
    Serializer.EndEnvelope<br />
  <br />
    Connector.EndMessage<br />
<br />
   Reader.Load Connector.OutputStream<br />
<br />
    If Not Reader.Fault Is Nothing Then<br />
        MsgBox Reader.FaultString.text + " not reader ", vbExclamation<br />
    Else<br />
        'parseDom Reader.Dom, startRowIndex, startColIndex<br />
        displayValoPtfbench Reader.Dom.text, colonneAffiche, startRowIndex, startColIndex<br />
    End If<br />
<br />
    If Not Reader.Fault Is Nothing Then<br />
        MsgBox Reader.FaultString.text, vbExclamation<br />
    End If<br />
    <br />
End Sub