服务引用vb.net 服务引用可以通过服务文件添加吗( 三 )

五在Visual Basic Net调用Web Service提供的服务:
当Web Service已经处于对外提供服务状态 Visual Basic Net就可以通过HTTP 调用来使用这些服务了当然前提是要了解Web Service对外提供服务所对应的URL 当了解到Web Service对应的URL后 Visual Basic Net就像是使用本地的类库一样使用Web Service中提供的各种功能所以有些人说 Web Service从实质上说就是通过HTTP调用远程组件的一种方式在Visual Basic Net具体实现加入Web Service可参阅下面步骤中的第七步
在下面介绍的这个数据库应用程序是通过使用上面的Web Service中提供的 Binding 服务对程序中DataGrid组件实现数据绑定提供使用Web Service中提供的 Update 服务通过程序中的DataGrid来修改数据库下面就是Visual Basic Net中使用Web Service提供服务来编写数据库应用程序的具体步骤 :
启动Visual Studio Net
选择菜单【文件】|【新建】|【项目】后弹出【新建项目】对话框
将【项目类型】设置为【Visual Basic项目】
将【模板】设置为【Windows应用程序】
在【名称】文本框中输入【TestWebService】
在【位置】的文本框中输入【E:\VS NET项目】然后单击【确定】按钮这样在 E:\VS NET项目中就产生了名称为 TestWebService 文件夹里面存放的就是TestWebService项目的所有文件
选择【解决方案资源管理器】|【引用】后单击鼠标右键在弹出的菜单中选择【添加Web 引用】在弹出的【添加Web引用】对话框中的【地址】文本框中输入后单击回车键后可得图所示界面单击图中【添加引用】按钮则在【TestWebService】项目中加入了Web引用请注意就是上面完成的Web Service对外提供服务的URL地址具体可参阅图所示:
图 :在【TestWebService】添加Web Service提供的服务
从【工具箱】中的【Windows窗体组件】选项卡中往Form 窗体中拖入下列组件并执行相应的操作:
一个DataGrid组件
二个Button组件分别是Button 至Button 并在这二个Button组件拖入Form 的设计窗体后分别双击它们则系统会在Form vb文件分别产生这二个组件的Click事件对应的处理代码
按照表所示调整窗体中各组件属性的数值
组件类型组件名称属性设置结果 Form Form Text 测试Web Service Form MaximizeBox False Form FormBorderStyle FixedSingle Button Button Text 绑定 Button FlatStyle Flat Button Text 修改 Button FlatStyle Flat
表 :【TestWebService】项目中组件的主要属性及其对应数值
在调整完组件属性值后再按照图所示调整组件的位置和排列顺序:
图 :【TestWebService】项目中组件排列位置和顺序
把Visual Studio Net的当前窗口切换到Form vb的代码编辑窗口并用下列代码替换Form vb中的Button 的Click事件对应的处理代码下列代码功能是使用Web Service中提供的 Binding 服务对DataGrid组件实现数据绑定:
Private Sub Button _Click ( ByVal sender As System Object ByVal e As System EventArgs ) Handles Button Click　Dim MyService As New localhost Service ( )　DataGrid DataSource = MyService Binding ( )　DataGrid DataMember = Cust End Sub
用下列代码替换Form vb中的Button 的Click事件对应的处理代码下列代码功能是使用Web Service中提供的 Update 服务实现通过DataGrid来修改数据库数据:
Private Sub Button _Click ( ByVal sender As System Object ByVal e As System EventArgs ) Handles Button Click　Dim MyService As New localhost Service ( )　Dim ds As DataSet = DataGrid DataSource　Dim dsChanges As DataSet = ds GetChanges ( )　If Not ( dsChanges Is Nothing ) Thends Merge ( MyService Update ( dsChanges ) True )　End IfEnd Sub
至此【TestWebService】项目的全部工作就完成了调用Web Service是不是很简单此时单击快捷键F 运行程序后单击程序中的【绑定】按钮就会对程序中的DataGrid组件实现数据绑定单击程序中的【修改】按钮则程序会根据DataGrid中的内容来更新数据库图就是【TestWebService】的运行界面: