概括VB.NET创建WebService

VB.NET还是比较常用的，于是我研究了一下VB.NET创建WebService，在这里拿出来和大家分享一下，希望对大家有用。

VB.NET创建WebService.

具体步骤如下：

1. 新建一个项目，选择ASP.NET Web服务，命名为：“WebService For 业务层”。

2. 添加两个Sql DataAdapter，一个为Customer_da，它指向NorthWind数据库的Customers表，另一个为Order_da，指向Northwind数据库的Orders表。

3. 然后生成一个Typed DataSet（选择“数据”菜单的“生成数据集”），命名为：Super_ds.

4. 数据库连接已经完成，下一步我们将考虑它与表示层之间的通信，这里我们定义两个方法。一个为：Get_DataSet，它返回一个Super_ds类型的数据集，另一个为：Update_DataSet，它负责更新数据库数据， 方法代码如下：

Public Function Get_Dataset（） As super_ds  
customer_da.Fill（Super_ds1.Customers）  
order_da.Fill（Super_ds1.Orders）  
Return Super_ds1  
End Function  
 
Public Sub Update_Dataset（）  
Super_ds1.AcceptChanges（）  
End Sub  

你可以运行测试一下你的VB.NET建立WebService，它将提供两个方法。返回的DataSet是以XML表示的。

业务层的完整代码如下：

Imports System.Web.Services  
Public Class Service1  
Inherits System.Web.Services.WebService  
'Web Services Designer Generated Code……。  
 Public Function Get_Dataset（） As super_ds  
customer_da.Fill（Super_ds1.Customers）  
order_da.Fill（Super_ds1.Orders）  
Return Super_ds1  
End Function 
 Public Sub Update_Dataset（）  
Super_ds1.AcceptChanges（）  
End Sub 
' WEB SERVICE EXAMPLE  
' The HelloWorld（） example service returns the string Hello World.  
' To build， uncomment the following lines then save and build the project.  
' To test this web service， ensure that the .asmx file is the start page  
' and press F5.  
'  
' Public Function HelloWorld（） As String  
' HelloWorld = "Hello World"  
' End Function  
End Class 

【编辑推荐】

1. 讲述VB.NET GroupBox控件属性
2. 概括VB.NET DomainUpDown控件
3. VB.NET编码算法学习笔记
4. 详细分析VB.NET读写文本文件
5. 简单概括VB.NET数据绑定