浅谈VB.NET调用WebService

VB.NET有很多值得学习的地方，这里我们主要介绍VB.NET调用Web Service，包括介绍XX等方面。

在VB.NET调用Web Service提供的服务

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

在下面介绍的这个数据库应用程序是通过使用上面的Web Service中提供的"Binding"服务，对程序中DataGrid组件实现数据绑定，提供使用Web Service中提供的"Update"服务，通过程序中的DataGrid来修改数据库。下面就是VB.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地址。
8. 从【工具箱】中的【Windows窗体组件】选项卡中往Form1窗体中拖入下列组件，并执行相应的操作:
◆DataGrid组件。
◆Button组件，分别是Button1至Button2，并在这二个Button组件拖入Form1的设计窗体后，分别双击它们，则系统会在Form1.vb文件分别产生这二个组件的Click事件对应的处理代码。

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

用下列代码替换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  
 
 
 

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

新闻名称：浅谈VB.NET调用WebService
标题路径：http://www.shufengxianlan.com/qtweb/news38/365638.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联