none
Web Service (Récupération d'un tableau ou une liste avec un Web Service en VB.Net. ) RRS feed

  • Discussion générale

  • Bonjour à vous tous.

    En général, mon problème c'est comment récupérer des données en forme de tableau ou de liste via un Web Service.

    J'explique:

    1 - J'ai un Web Service en VB.Net

    -Nom du Web Service : SqlWebServiceVb01

    -Code

    -Debut---------------------------

    Imports System.Web.Services
    Imports System.Web.Services.Protocols
    Imports System.ComponentModel
    Imports System.Data.SqlClient

    ' Pour autoriser l'appel de ce service Web depuis un script à l'aide d'ASP.NET AJAX, supprimez les marques de commentaire de la ligne suivante.
    <System.Web.Script.Services.ScriptService()> _
    <System.Web.Services.WebService(Namespace:="http://tempuri.org/")> _
    <System.Web.Services.WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
    <ToolboxItem(False)> _
    Public Class MySqlWebService
        Inherits System.Web.Services.WebService
        Public Mytbl() As String = {}

        <WebMethod()> _
        Public Function MyWebServer_GetDepartments_Name() As Array
            Seconnecter()
            Dim Mycommand As New SqlCommand("SP_Get_Departments_Name", MyConnection)
            Mycommand.CommandType = CommandType.StoredProcedure
            Dim MyReader As SqlDataReader
            Dim i As Int16 = 0
            MyConnection.Open()
            MyReader = Mycommand.ExecuteReader()
            While MyReader.Read()
                If (MyReader.RecordsAffected) Then
                    ReDim Preserve Mytbl(i)
                    Mytbl(i) = MyReader("Name")
                    i += 1
                End If
            End While
            MyConnection.Close()
            Return Mytbl
        End Function

    End Class

    -Fin -----------------------------------------

    et j'ai un autre projet qui s’appelle (WebAtelierVb_Call_SqlWebServiceVb01) avec lequel je veux récupéré le tableau tblref par référence

    -Code

    -Debut-----------------------------------Public Class WebForm1
        Inherits System.Web.UI.Page

        Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            Dim c As New MySqlServiceReference.MySqlWebServiceSoapClient
            Dim MyResultat() As Array
            MyResultat = c.MyWebServer_GetDepartments_Name() 'appeler la fonction et récupérer le resultat dans MyResultat
            For Each element As String In MyResultat.ToString
                NameDDLst.Items.Add(element) ' Ajouter les elements du tableau dans la liste NameDDLst
            Next
        End Sub

    End Class

    -Fin ------------------------------------

    Cela ne fonctionne pas. J'ai l'erreur suivante :

    Merci à l’avance pour votre aide.


    H.B

    mardi 26 décembre 2017 21:11