用VB.NET创建一个三层应用程序的例子……

<WebMethod()> Public Function Get_Dataset() As super_ds

customer_da.Fill(Super_ds1.Customers)

order_da.Fill(Super_ds1.Orders)

Return Super_ds1

End Function

<WebMethod()> Public Sub Update_Dataset()

Super_ds1.AcceptChanges()

End Sub

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

业务层的完整代码如下：

Imports System.Web.Services

Public Class Service1

Inherits System.Web.Services.WebService

‘Web Services Designer Generated Code…….

<WebMethod()> Public Function Get_Dataset() As super_ds

customer_da.Fill(Super_ds1.Customers)

order_da.Fill(Super_ds1.Orders)

Return Super_ds1

End Function

<WebMethod()> Public Sub Update_Dataset()

Super_ds1.AcceptChanges()

End Sub

@# WEB SERVICE EXAMPLE