Implementacion de Web Service .NET
-
Upload
api-3755950 -
Category
Documents
-
view
952 -
download
4
Transcript of Implementacion de Web Service .NET
SINFOCORP S.R.L.
IMPLEMENTACION DE WEB SERVICE EN VISUAL
STUDIO .NET
Autor: Carlos Hidalgo Lache
Hidalgo Lache Carlos 1
SINFOCORP S.R.L.
En este tutorial veremos los fácil que puede ser crear un Web Service con Visual Studio.NET,
asimismo realizaremos una prueba con la Base de Datos Northwind de SQL-Server 2000
Para poder realizar el tutorial tendremos que seguir los siguientes pasos:
- Creamos una Solución en donde agregaremos un Proyecto Web Service, WindowsApplication y haremos referencia Microsoft.ApplicationBlocks.Data.
Hidalgo Lache Carlos 2
SINFOCORP S.R.L.
- Agregamos Proyecto Web Service(WebServicePrueba)
Buscamos la ruta en donde se alojará nuestro proyecto.
Hidalgo Lache Carlos 3
SINFOCORP S.R.L.
Hidalgo Lache Carlos 4
Damos un nombre a nuestro Proyecto Web(Ejm: WebServicePrueba)
SINFOCORP S.R.L.
- Agregamos una referencia al Proyecto WebService: Microsoft.ApplicationBlocks.Data.dll (SQL-
Helper).
Nota: Puedes descargarlo desde: http://www.microsoft.com/downloads/details.aspx?FamilyId=F63D1F0A-9877-
4A7B-88EC-0426B48DF275&displaylang=en
Una ves instalado el ApplicationBlocks, necesitaremos referenciar al archivo .dll. En mi caso se
guardo en esta ruta:
“D:\Program Files\Microsoft Application Blocks for .NET\Data Access
v2\Code\VB\Microsoft.ApplicationBlocks.Data\bin\Microsoft.ApplicationBlocks.Data.dll”
Desplegamos el arbol en donde se encuentra nuestro Proyecto Web:
- C:\PruebaWebService\WebServicePrueba App_Code
- App_Code
- Service.vb (Aquí colocaremos todo el código)
Hidalgo Lache Carlos 6
SINFOCORP S.R.L.
Creamos un método(WebService) que nos permitirá retornar todos los empleados de la Base de
Datos Northwind en la tabla Employees, siempre y cuando su apellido empiece con el parámetro
que se le indica.
[ Nos quedará una ventana parecida a esta ]
Código Fuente:
Imports System.Web Imports System.Web.Services Imports System.Web.Services.Protocols Imports Microsoft.ApplicationBlocks.Data.SqlHelper <WebService(Namespace:="http://tempuri.org/")> _ <WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _ <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ Public Class Service Inherits System.Web.Services.WebService Dim CadenaCnx As String = "Data Source=(local);Initial Catalog=Northwind; Integrated Security=true" '************************************************************************* 'Permite ver el nombre del Web Service implementado al momento de ejecutar <WebMethod()> _ Public Function DevolverEmpleados(ByVal Apellido As String) As Data.DataSet
Hidalgo Lache Carlos 7
SINFOCORP S.R.L.
Dim sentenciaSQL As String = "select EmployeeID, LastName from employees " & _ "where LastName like '" & Apellido & "%'" Return ExecuteDataset(CadenaCnx, Data.CommandType.Text, sentenciaSQL) End Function End Class
Ejecutamos el proyecto: F5
Hidalgo Lache Carlos 8
SINFOCORP S.R.L.
Nos solicitará que ingresemos el parámetro que necesita el método para poder ejecutarse
Ingresamos el parámetro(Apellido)
Hidalgo Lache Carlos 9
SINFOCORP S.R.L.
Datos encontrados en tabla Empleados(vista en formato XML)
Bueno, como verán hasta ahora sólo hemos ejecutado el web service con un método:
DevolverEmpleado(Apellido as String) y nos devolvió un conjunto de datos traídos de la tabla
Employees y mostrado en formato XML. Ahora, lo interesante sería llamar a ese WebService
desde nuestro proyecto WinApplication verdad?. Bueno, manos a la obra...
Verás que no es cosa del otro mundo, con unas pocas líneas de código podrás obtener toda esa
data(Empleados) y ser mostrados en un DataViewGrid, un ComboBox, un ListCualquier o control
que tenga la propiedad DataSource.
Hidalgo Lache Carlos 10
SINFOCORP S.R.L.
Para lograr esto realizaremos los siguientes pasos:
1. Compilar la solución
2. Agregar referencia Web al proyecto WinApplication(FormularioPrueba)
Hidalgo Lache Carlos 11
SINFOCORP S.R.L.
Agregaremos la referencia del Web Service que se encuentra en la solución
Agregaremos la referencia del Web Service que se encuentra en la solución
Hidalgo Lache Carlos 12
SINFOCORP S.R.L.
Agregamos la referencia
Una ves referenciado el WebService, elaboraremos un formulario e ingresaremos algunos
controles para la prueba. También agregaremos el siguiente código en VB.NET. Imports FormularioPrueba.localhost Public Class Prueba Private Sub linkFiltrar_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles linkFiltrar.LinkClicked 'Instaciamos al webService Dim objWebService As New Service 'Mostrar los datos en el DataGridView Me.DataGrid.DataSource = objWebService.DevolverEmpleados(Me.txtApellido.Text).Tables(0) 'Mostrar los datos en el ComboBox Me.cboApellidos.DataSource = objWebService.DevolverEmpleados(Me.txtApellido.Text).Tables(0) Me.cboApellidos.DisplayMember = "LastName" Me.cboApellidos.ValueMember = "EmployeeId" End Sub End Class
Fin...
Hidalgo Lache Carlos 13