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

@# 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.

@#

@#<WebMethod()> Public Function HelloWorld() As String

@# HelloWorld = "Hello World"

@# End Function

End Class

第二步：创建表示层

具体步骤如下：

1. 新建一个Windows应用程序，命名为：“Windows Form For 表示层”。

2. 在窗体上添加一个DataGrid,一个Button,Button1的text为“Load”,作用是：从业务层读取数据。

3. 在解决方案窗体中添加Web 引用，将我们自己建立的Web Service for 业务层引入到当前项目中。

4. 向Button1的Click事件添加如下代码：

Dim Customer_Ds As New localhost.super_ds()

Dim ser1 As New localhost.Service1()

Customer_Ds.Merge(ser1.Get_Dataset)

DataGrid1.DataSource = Customer_Ds

这里我们调用了Web Service的Get_DataSet函数，Update_DataSet方法的调用与此完全相同。