四．Visual Basic .Net实现Web Service
.Net 的大的推动了Web Service的发展，而Visual Studio .Net的出现又极大的推动了Web Service的的广泛应用。在Visual Studio .Net推出之前，编写一个Web Service是一项非常复杂的工作，同样调用这个Web Service也十分麻烦。由于Visual Studio .Net对Web Service提供了较强的支持，很多细致、烦杂的工作都由Visual Studio .Net自动完成了。这样就使得上述工作变得非常简单。甚至不了解Web Service和其相关的标准、协议，也可以使用Visual Studio .Net编写Web Service，并使用这个Web Service。下面就来用Visual Basic .Net实现一个Web Service，此Web Service和数据库相关，数据库类型选用的是Sql Server。此Web Service提供了二个函数功能调用，其一名称为Binding，用以实现数据绑定，其二名称为Update，用以更新数据库中的数据。
以下就是Visual Basic .Net实现此Web Service的具体步骤：
1. 启动Visual Studio .Net。
2. 选择菜单【文件】|【新建】|【项目】后，弹出【新建项目】对话框。
3. 将【项目类型】设置为【Visual Basic项目】。
4. 将【模板】设置为【ASP.NET Web 服务】。
5. 在【位置】的文本框中输入"http://localhost/UpdateDataWebService"后，单击【确定】按钮，这样在Visual Studio .Net就会计算机Internet信息服务的默认目录中创建一个名称为"UpdateDataWebService"文件夹，里面存放的是此项目的文件。具体如图01所示：
图01：创建Web Service项目对话框
6. 选中【解决方案资源管理器】中的"Service1.asmx"文件，单击鼠标右键，在弹出的菜单中选择【查看代码】，则进入Service1.asmx.vb的编辑界面。
7. 在Service1.asmx..vb的首部，在导入命名空间的代码区中添加下列代码，下列代码作用是导入命名空间System.Data.SqlClient：
Imports System.Data.SqlClient
8. 在Service1.asmx..vb文件的"Public Class Service1 Inherits System.Web.Services.WebService"代码后，添加下列代码，下列代码是在Web Service中定义二个功能调用：
＜WebMethod ( ) ＞ Public Function Binding ( ) As DataSet
Dim con As New SqlConnection ( "Server = localhost ; uid = sa ; pwd = ; database = northwind" )
Dim daCust As New SqlDataAdapter ( "Select * From Customers" , con )
Dim ds As New DataSet ( )
daCust.Fill( ds , "Cust" )
Return ds
End Function
＜WebMethod ( ) ＞ Public Function Update ( ByVal ds As DataSet ) As DataSet
Dim con As New SqlConnection ( "Server = localhost ; uid = sa ; pwd = ; database = northwind " )
Dim daCust As New SqlDataAdapter ( "Select * From Customers" , con )
Dim cbCust As New SqlCommandBuilder ( daCust )
daCust.Update ( ds , "Cust" )
Return ds
End Function
