Hola a todo buenos dias.
Ya tenia tiempo que no entraba.
Tengo un problema con un webservice, tengo una funcion la cual quiero que me regrese un Dictionary(System.Collections.Generic.Dictionary) pero al momento de correr mi webservice me marca el siguiente error:
The type System.Collections.Generic.Dictionary`2[[System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089],[System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089]] is not supported because it implements IDictionary.
Y el coodigo de mi web service es el siguiente:
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel
Imports System.Web.Script.Services
Imports System.Data
Imports System.Collections.Generic
Imports ArbolGenealogico.Conexion
Imports ArbolGenealogico.Fill
<System.Web.Services.WebService(Namespace:="http ://tempuri.org/")> _
<System.Web.Services.WebServiceBinding(ConformsTo: =WsiProfiles.BasicProfile1_1)> _
<ToolboxItem(False)> _
<ScriptService()> _
Public Class Arbol
Inherits System.Web.Services.WebService
<WebMethod()> _
Public Function ObtieneDatosPersona(ByVal Id As Integer) As Dictionary(Of Integer, String)
Dim Qry As String = "Select * From persona Where arbol_padre = " & Id.ToString()
Dim ds As New DataSet
ds = Conexion.EjecutaDatasetQry(Qry)
If ds.Tables(0).Rows.Count <> 0 Then
Dim ArrPersona As New Dictionary(Of Integer, String)
For Each dr In ds.Tables(0).Rows
ArrPersona.Add(CInt(dr("id_menu")), CStr(dr("prs_nombre")))
Next
Return ArrPersona
Else
Return Nothing
End If
Return Nothing
End Function
End Class
Alguien ha hecho algo como esto? De ser asi espero puedan ayudarme.
Muchas Gracias
Atte
Ing. Irving Arriaga Fuentes
