JSON es uno de los protocolos de intercambio de datos mas populares y eficientes del momento, saber como exportar nuestros datos desde .NET es muy importante. En este ejemplo explicamos como exportar estos datos en un Webservice.
Generalmente estamos acostumbrados a que los Webservices exporten datos como XML, Datasets, o datos directos como enteros, strings y demás tipos. Pero que pasa si queremos exportar los datos en formato JSON.
Primero necesitamos la librería correspondiente y la cual esla mas recomendada en estos momentos Json.NET (http://james.newtonking.com/projects/json-net.aspx o http://json.codeplex.com). Esta librería la importamos en las referencias de la aplicación.
Ahora en nuestra aplicación creamos un nuevo archivo Webservice. Lo mas probable es que se va a generar el siguiente código:
ImportsSystem.Web ImportsSystem.Web.Services ImportsSystem.Web.Services.Protocols 'To allow this Web Service to be called from script, using ASP.NET AJAX,uncomment the following line. '<System.Web.Script.Services.ScriptService()> _ <WebService(Namespace:="http://tempuri.org/")>_ <WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _ <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ PublicClass WebService InheritsSystem.Web.Services.WebService <WebMethod()>_ Public Function HelloWorld() AsString Return "Hello World" End Function EndClass
Ahora agregamos las referencias
Imports Newtonsoft.Json Imports System.Web.Script.Services
Le quitamos el comentario donde dice
<System.Web.Script.Services.ScriptService()> _
Agregamos el siguiente procedimiento
<WebMethod(CacheDuration:=0)> _ <Script.Services.ScriptMethod(ResponseFormat:=ResponseFormat.Json,UseHttpGet:=True, XmlSerializeString:=False)> _ Public Sub GetDatosJSON(ByValvalor1 As Integer,ByVal valor2 AsInteger) Dim iDatosAs New MisDatos Context.Response.Cache.SetExpires(DateTime.Now.AddHours(-1)) Context.Response.ContentType = "application/json" Context.Response.Write(Newtonsoft.Json.JsonConvert.SerializeObject( iDatos.GetDataSet(valor1,valor2), Newtonsoft.Json.Formatting.None)) Context.Response.Flush() Context.Response.End() End Sub
Como podemos ver le indicamos la duración del cache, la cualla ponemos en 0, también le indicamos los métodos de script, Json y le especificamos que NO es XMLSerialize.
Ahora en el código le definimos el Content Type donde le especificamos que es application/json que es el tipo de datos que vamos a retornar, que aunque es texto puro, es mejor definirlo de esta manera.
Luego utilizamos el método Newtonsoft.Json.JsonConvert.SerializeObjecty le enviamos nuestro Dataset, el componente se encargará de hacer el resto.
Como podemos ver le definimos Formattin.None esto se hace cuando ya hemos pasado las etapas de desarrollo y estamos seguros de como se retornan los datos. Con esta propiedad el resultado va a ser texto sin formato, se eliminan los espacios en blanco, los innecesarios obviamente, y prácticamente que todo el resultado queda en una sola línea string. Si le definimos Formatting.Indented el resultado será ordenado para la vista y para entender los datos, pero consume mucha más memoria que el formato sin identar. Entonces cuando ya uses la aplicación en producción usa Fomatting.none
Obtendremos un resultado similar a:
{“Referencias”:[{“codigo”:123,”descripcion”:”Ejemplo Descripcion”}]}
tendrás el programa en vb.net que consume este web Service?
Hola, no lo tengo pero es facil hacerlo para pruebas, en realidad lo unico que necesitas es hacer un metodo que te retorne un dataset que es donde esta “iDatos.GetDataSet(valor1,valor2)” esa funcion retorna un dataset con los campos que al final se muestran. Todo lo demás que está ahi es copy/paste
Hola con que Visual Studio lo hiciste?
Gracias
Hola, lo hice con VS 2012, pero te debe de funcionar con cualquier versión.
gracias por responder: solo tengo un problema en el ejemplo que entregas:
Dim idatos As New misdatos
indica: el tipo misdatos no esta definido
Ah ok, si MisDatos es otra clase, que bien puedes crear, en este caso retorna un dataset simple, con una coleccion de registros.
JsonConvert.SerializeObject procesa cualquier coleccion de datos, un dataset normal o una coleccion de datos que tu te puedes crear, un arreglo, etc. En el caso de este ejemplo es un dataset simple que puede hacer un select * a una tabla en sql.
Estoy aplicando todas estas instrucciones y cuando corro el webserver, una vez que me solicita los parámetro y le doy seguir, la pantalla queda en blanco y no termina el proceso, qué estará pasando ?, tendré que configurar algo para que funcione el context.response ?
En el debug donde se queda? Estas seguro que estas retornando o imprimiendo correctamente los datos?
estas llegando hasta el Context.Response.Write y haciendo el flush y end?
Estimado Roy, te agradecería mucho si pudiese dar un ejemplo crear un PROCEDIMIENTO almacenado en Msql Server 2012, que permita llamar a un servicio de web service de tal manera que le paso uno datos y me devuelva los resultado para insertarlo en una tabla, no he podido encontrar un ejemplo en BBDD 2012 hacia adelante, le agradecería muchos si pudiese ayudarme .
muchas gracias por atender mi duda.
Hola Pedro, aquí encontré un ejemplo a tu consulta. Saludos.
http://blogs.msdn.com/b/spike/archive/2010/11/25/how-to-consume-a-web-service-from-within-sql-server-using-sql-clr.aspx
Otros ejemplos
https://www.codeproject.com/Articles/428200/How-to-invoke-a-Web-Service-from-a-Stored-Procedur
https://social.msdn.microsoft.com/Forums/es-ES/9ea16a59-667f-4b5b-9475-4c27667c77e9/consumir-webservice-desde-sql-server?forum=sqlserveres
https://stackoverflow.com/questions/29047887/how-to-call-a-web-service-from-sql-server