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數據綁定