VB.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

　　图02:Web Service提供服务是的界面

　　Service1.asmx.vb的代码清单如下:

Imports System.Web.Services
Imports System.Data.SqlClient
<WebService ( Namespace := "http://tempuri.org/" ) > _
Public Class Service1
Inherits System.Web.Services.WebService
<WebMethod ( ) > Public Function Binding ( ) As DataSet
'Modify this Connection string to use your SQL Server and log on.
　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
#Region " Web 服务设计器生成的代码 "
Public Sub New ( )
　MyBase.New ( )
　'该调用是 Web 服务设计器所必需的。
　InitializeComponent ( )
　'在 InitializeComponent ( ) 调用之后添加您自己的初始化代码
End Sub
'Web 服务设计器所必需的
Private components As System.ComponentModel.IContainer
　'注意：以下过程是 Web 服务设计器所必需的
　'可以使用 Web 服务设计器修改此过程。
　'不要使用代码编辑器修改它。
　<System.Diagnostics.DebuggerStepThrough ( ) > Private Sub InitializeComponent ( )
　components = New System.ComponentModel.Container ( )
End Sub
Protected Overloads Overrides Sub Dispose ( ByVal disposing As Boolean )
'CODEGEN: 此过程是 Web 服务设计器所必需的
'不要使用代码编辑器修改它。
If disposing Then
　If Not ( components Is Nothing ) Then
　　components.Dispose ( )
　End If
End If
MyBase.Dispose ( disposing )
End Sub
#End Region
' Web 服务示例
' HelloWorld ( ) 示例服务返回字符串 Hello World。
' 若要生成项目，请取消注释以下行，然后保存并生成项目。
' 若要测试此 Web 服务，请确保 .asmx 文件为起始页
' 并按 F5 键。
'
'<WebMethod ( ) > Public Function HelloWorld ( ) As String
' HelloWorld = "Hello World"
' End Function
End Class

　　下面就来介绍Visual Basic .Net中使用这个Web Service提供的服务来更新数据库的实现方法。

　　当Web Service已经处于对外提供服务状态，Visual Basic .Net就可以通过HTTP"调用"来使用这些服务了。当然前提是要了解Web Service对外提供服务所对应的URL，当了解到Web Service对应的URL后，Visual Basic .Net就像是使用本地的类库一样使用Web Service中提供的各种功能。所以有些人说，Web Service从实质上说，就是通过HTTP调用远程组件的一种方式。在Visual Basic .Net具体实现加入Web Service可参阅下面步骤中的第七步。

　　在下面介绍的这个数据库应用程序是通过使用上面的Web Service中提供的"Binding"服务，对程序中DataGrid组件实现数据绑定，提供使用Web Service中提供的"Update"服务，通过程序中的DataGrid来修改数据库。下面就是Visual Basic .Net中使用Web Service提供服务来编写数据库应用程序的具体步骤，:

　　1. 启动Visual Studio .Net。

　　2. 选择菜单【文件】|【新建】|【项目】后，弹出【新建项目】对话框。

　　3. 将【项目类型】设置为【Visual Basic项目】。

　　4. 将【模板】设置为【Windows应用程序】。

　　5. 在【名称】文本框中输入【TestWebService】。

　　6. 在【位置】的文本框中输入【E:\VS.NET项目】，然后单击【确定】按钮，这样在"E:\VS.NET项目"中就产生了名称为"TestWebService"文件夹，里面存放的就是TestWebService项目的所有文件。

　　7. 选择【解决方案资源管理器】|【引用】后，单击鼠标右键，在弹出的菜单中选择【添加Web 引用】，在弹出的【添加Web引用】对话框中的【地址】文本框中输入"http://localhost/ UpdateDataWebService /Service1.asmx "后，单击回车键后，可得图03所示界面。单击图03中【添加引用】按钮，则在【TestWebService】项目中加入了Web引用。请注意"http://localhost/ UpdateDataWebService /Service1.asmx "就是上面完成的Web Service对外提供服务的URL地址，具体可参阅图02所示:

　　图03:在【TestWebService】添加Web Service提供的服务

　　8. 从【工具箱】中的【Windows窗体组件】选项卡中往Form1窗体中拖入下列组件，并执行相应的操作:

　　一个DataGrid组件。

　　二个Button组件，，分别是Button1至Button2，并在这二个Button组件拖入Form1的设计窗体后，分别双击它们，则系统会在Form1.vb文件分别产生这二个组件的Click事件对应的处理代码。

　　表01:【TestWebService】项目中组件的主要属性及其对应数值

　　在调整完组件属性值后，再按照图04所示调整组件的位置和排列顺序:

　　图04:【TestWebService】项目中组件排列位置和顺序

　　10. 把Visual Studio .Net的当前窗口切换到Form1.vb的代码编辑窗口，并用下列代码替换Form1.vb中的Button1的Click事件对应的处理代码，下列代码功能是使用Web Service中提供的"Binding"服务对DataGrid组件实现数据绑定:

Private Sub Button1_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Click
　Dim MyService As New localhost.Service1 ( )
　DataGrid1.DataSource = MyService.Binding ( )
　DataGrid1.DataMember = "Cust"
End Sub

　　11. 用下列代码替换Form1.vb中的Button2的Click事件对应的处理代码，下列代码功能是使用Web Service中提供的"Update"服务实现通过DataGrid来修改数据库数据:

Private Sub Button2_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button2.Click
　Dim MyService As New localhost.Service1 ( )
　Dim ds As DataSet = DataGrid1.DataSource
　Dim dsChanges As DataSet = ds.GetChanges ( )
　If Not ( dsChanges Is Nothing ) Then
　　ds.Merge ( MyService.Update ( dsChanges ) , True )
　End If
End Sub

　　12. 至此, 【TestWebService】项目的全部工作就完成了，调用Web Service是不是很简单。此时单击快捷键F5运行程序后。单击程序中的【绑定】按钮就会对程序中的DataGrid组件实现数据绑定，单击程序中的【修改】按钮，则程序会根据DataGrid中的内容来更新数据库，图05就是【TestWebService】的运行界面:

　　图05:【TestWebService】的运行界面

　　表01:【TestWebService】项目中组件的主要属性及其对应数值

　　在调整完组件属性值后，再按照图04所示调整组件的位置和排列顺序:

　　图04:【TestWebService】项目中组件排列位置和顺序

　　10. 把Visual Studio .Net的当前窗口切换到Form1.vb的代码编辑窗口，并用下列代码替换Form1.vb中的Button1的Click事件对应的处理代码，下列代码功能是使用Web Service中提供的"Binding"服务对DataGrid组件实现数据绑定:

Private Sub Button1_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Click
　Dim MyService As New localhost.Service1 ( )
　DataGrid1.DataSource = MyService.Binding ( )
　DataGrid1.DataMember = "Cust"
End Sub

　　11. 用下列代码替换Form1.vb中的Button2的Click事件对应的处理代码，下列代码功能是使用Web Service中提供的"Update"服务实现通过DataGrid来修改数据库数据:

Private Sub Button2_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button2.Click
　Dim MyService As New localhost.Service1 ( )
　Dim ds As DataSet = DataGrid1.DataSource
　Dim dsChanges As DataSet = ds.GetChanges ( )
　If Not ( dsChanges Is Nothing ) Then
　　ds.Merge ( MyService.Update ( dsChanges ) , True )
　End If
End Sub

　　12. 至此, 【TestWebService】项目的全部工作就完成了，调用Web Service是不是很简单。此时单击快捷键F5运行程序后。单击程序中的【绑定】按钮就会对程序中的DataGrid组件实现数据绑定，单击程序中的【修改】按钮，则程序会根据DataGrid中的内容来更新数据库，图05就是【TestWebService】的运行界面:

　　图05:【TestWebService】的运行界面

Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows 窗体设计器生成的代码 "
Public Sub New ( )
　MyBase.New ( )
　'该调用是 Windows 窗体设计器所必需的。
　InitializeComponent ( )
　'在 InitializeComponent ( ) 调用之后添加任何初始化
End Sub
'窗体重写处置以清理组件列表。
Protected Overloads Overrides Sub Dispose ( ByVal disposing As Boolean )
　If disposing Then
　　If Not ( components Is Nothing ) Then
　　　components.Dispose ( )
　　End If
　End If
　MyBase.Dispose ( disposing )
End Sub
'Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer
　'注意：以下过程是 Windows 窗体设计器所必需的
　'可以使用 Windows 窗体设计器修改此过程。
　'不要使用代码编辑器修改它。
　Friend WithEvents Button1 As System.Windows.Forms.Button
　Friend WithEvents Button2 As System.Windows.Forms.Button
　Friend WithEvents DataGrid1 As System.Windows.Forms.DataGrid
　<System.Diagnostics.DebuggerStepThrough ( ) > Private Sub InitializeComponent ( )
　Me.Button1 = New System.Windows.Forms.Button ( )
　Me.Button2 = New System.Windows.Forms.Button ( )
　Me.DataGrid1 = New System.Windows.Forms.DataGrid ( )
　CType ( Me.DataGrid1 , System.ComponentModel.ISupportInitialize ) .BeginInit ( )
　Me.SuspendLayout ( )
　Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
　Me.Button1.Location = New System.Drawing.Point ( 56 , 216 )
　Me.Button1.Name = "Button1"
　Me.Button1.Size = New System.Drawing.Size ( 75 , 32 )
　Me.Button1.TabIndex = 0
　Me.Button1.Text = "绑定"
　Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
　Me.Button2.Location = New System.Drawing.Point ( 168 , 216 )
　Me.Button2.Name = "Button2"
　Me.Button2.Size = New System.Drawing.Size ( 75 , 32 )
　Me.Button2.TabIndex = 1
　Me.Button2.Text = "修改"
　Me.DataGrid1.DataMember = ""
　Me.DataGrid1.Dock = System.Windows.Forms.DockStyle.Top
　Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
　Me.DataGrid1.Name = "DataGrid1"
　Me.DataGrid1.Size = New System.Drawing.Size ( 292 , 192 )
　Me.DataGrid1.TabIndex = 2
　Me.AutoScaleBaseSize = New System.Drawing.Size ( 6 , 14 )
　Me.ClientSize = New System.Drawing.Size ( 292 , 273 )
　Me.Controls.AddRange ( New System.Windows.Forms.Control ( ) {Me.DataGrid1 , Me.Button2 , Me.Button1} )
　Me.Name = "Form1"
　Me.Text = "测试Web Service"
　CType ( Me.DataGrid1 , System.ComponentModel.ISupportInitialize ) .EndInit ( )
　Me.ResumeLayout ( False )
End Sub
#End Region
Private Sub Button1_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Click
　Dim MyService As New localhost.Service1 ( )
　DataGrid1.DataSource = MyService.Binding ( )
　DataGrid1.DataMember = "Cust"
End Sub
Private Sub Button2_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button2.Click
　Dim MyService As New localhost.Service1 ( )
　Dim ds As DataSet = DataGrid1.DataSource
　Dim dsChanges As DataSet = ds.GetChanges ( )
　If Not ( dsChanges Is Nothing ) Then
　　ds.Merge ( MyService.Update ( dsChanges ) , True )
　End If
End Sub
End Class

　　五.总结:

　　本文介绍了Web Service在目前大行其道的原因，并结合二个示例介绍Visual Basic .Net在Web Service的实现和调用上的强大功能，正如本文前面所说，Visual Studio .Net的出现使得web Service的这项原先繁杂的工作变得异常的简单，因为Visual Basic .Net已经替代我们作了这些描述性的、基础的底层工作，以至于你不需要了解为什么，只需要知道你要实现什么就可以编写、调用Web Service了。 在实现Web Service在数据库方面应用所显示

　　Web Service虽然以其强大功能和其优越性正在受到越来越多人的青睐，但也不可以回避它的缺点，譬如其速度慢就使得我几乎无法忍受。等等这样的原因也决定了Web Service并不适用于所有的环境。如单机运行程序和局域网上的同构应用程序等就尽量不采用Web Service方式。本文只是展示了Visual Studio .Net在Web Service上的初步用途，至于更复杂的使用、调用方法只能在后续的文章中介绍了，感兴趣的朋友，我们下一文再见!