专业虚拟主机提供商! 正规合法诚信公司、拥有ICP/ISP双经营许可证
域名空间实时开通立即使用,几分钟即可完成
安全方便的网上支付,超强的域名空间管理程序
我要购买空间,请点这里
我要注册域名,请点这里
我要建设网站,请点这里
我要续费域名,请点这里
我要续费空间,请点这里
我要在线支付,请点这里
首 页 特惠套餐 域名注册 虚拟主机 托管租用 FTP空间 数据库 企业邮局 网站建设 联系我们 付款方式
 | 网站首页 | 虚拟主机资讯 | 域名注册资讯 | 托管租用资讯 | 网络编程 | 网站备案 | 系统安全 | 源码下载 | 
您现在的位置: IDC资讯网 >> 网络编程 >> Asp.net编程 >> 正文
[组图]VB.Net实现Web Service的基础(2)           ★★★
VB.Net实现Web Service的基础(2)
点击数: 更新时间:2009-9-25 18:07:24

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地址,具体可参阅图02所示:

图03在【TestWebService】添加Web Service提供的服务(本网站提供的图片,动画及设计内容,如需转载,请与原作者联系。)

8. 从【工具箱】中的【Windows窗体组件】选项卡中往Form1窗体中拖入下列组件,并执行相应的操作:

一个DataGrid组件。

二个Button组件,,分别是Button1至Button2,并在这二个Button组件拖入Form1的设计窗体后,分别双击它们,则系统会在Form1.vb文件分别产生这二个组件的Click事件对应的处理代码。

9. 按照表01所示调整窗体中各组件属性的数值:

组件类型 组件名称 属性 设置结果
Form Form1 Text 测试Web Service
Form1 MaximizeBox False
Form1 FormBorderStyle FixedSingle
Button Button1 Text 绑定
Button1 FlatStyle Flat
Button2 Text 修改
Button2 FlatStyle Flat

表01【TestWebService】项目中组件的主要属性及其对应数值

在调整完组件属性值后,再按照图04所示调整组件的位置和排列顺序:

图04【TestWebService】项目中组件排列位置和顺序(本网站提供的图片,动画及设计内容,如需转载,请与原作者联系。)

10. 把Visual Studio .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

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

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

图05:【TestWebService】的运行界面

13. Form1.vb的代码清单如下:

以下为引用的内容:
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows 窗体设计器生成的代码 "
Public Sub New ( )
 MyBase.New ( )
 '该调用是 Windows 窗体设计器所必需的。
 InitializeComponent ( )
 '在 InitializeComponent ( ) 调用之后添加任何初始化
End Sub
'窗体重写处置以清理组件列表。
Protected Overloads Overrides Sub Dispose (
ByVal disposing As Boolean )
 If disposing Then
If Not ( components Is Nothing ) Then
 components.Dispose ( )
End If
 End If
 MyBase.Dispose ( disposing )
End Sub
'Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer
 '注意:以下过程是 Windows 窗体设计器所必需的
 '可以使用 Windows 窗体设计器修改此过程。
 '不要使用代码编辑器修改它。
 Friend WithEvents Button1 As System.Windows.Forms.Button
 Friend WithEvents Button2 As System.Windows.Forms.Button
 Friend WithEvents DataGrid1 As System.Windows.Forms.DataGrid
 
Private Sub InitializeComponent ( )
 Me.Button1 = New System.Windows.Forms.Button ( )
 Me.Button2 = New System.Windows.Forms.Button ( )
 Me.DataGrid1 = New System.Windows.Forms.DataGrid ( )
 CType ( Me.DataGrid1 ,
System.ComponentModel.ISupportInitialize ) .BeginInit ( )
 Me.SuspendLayout ( )
 Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
 Me.Button1.Location = New System.Drawing.Point ( 56 , 216 )
 Me.Button1.Name = "Button1"
 Me.Button1.Size = New System.Drawing.Size ( 75 , 32 )
 Me.Button1.TabIndex = 0
 Me.Button1.Text = "绑定"
 Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
 Me.Button2.Location = New System.Drawing.Point ( 168 , 216 )
 Me.Button2.Name = "Button2"
 Me.Button2.Size = New System.Drawing.Size ( 75 , 32 )
 Me.Button2.TabIndex = 1
 Me.Button2.Text = "修改"
 Me.DataGrid1.DataMember = ""
 Me.DataGrid1.Dock = System.Windows.Forms.DockStyle.Top
 Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
 Me.DataGrid1.Name = "DataGrid1"
 Me.DataGrid1.Size = New System.Drawing.Size ( 292 , 192 )
 Me.DataGrid1.TabIndex = 2
 Me.AutoScaleBaseSize = New System.Drawing.Size ( 6 , 14 )
 Me.ClientSize = New System.Drawing.Size ( 292 , 273 )
 Me.Controls.AddRange ( New System.Windows.Forms.Control ( )
{Me.DataGrid1 , Me.Button2 , Me.Button1} )
 Me.Name = "Form1"
 Me.Text = "测试Web Service"
 CType ( Me.DataGrid1 ,
System.ComponentModel.ISupportInitialize ) .EndInit ( )
 Me.ResumeLayout ( False )
End Sub
#End Region
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
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
End Class

六.总结

本文介绍了Web Service在目前大行其道的原因,并结合二个示例介绍Visual Basic .Net在Web Service的实现和调用上的强大功能,正如本文前面所说,Visual Studio .Net的出现使得web Service的这项原先繁杂的工作变得异常的简单,因为Visual Basic .Net已经替代我们作了这些描述性的、基础的底层工作,以至于你不需要了解为什么,只需要知道你要实现什么就可以编写、调用Web Service了。 在实现Web Service在数据库方面应用所显示
Web Service虽然以其强大功能和其优越性正在受到越来越多人的青睐,但也不可以回避它的缺点,譬如其速度慢就使得我几乎无法忍受。等等这样的原因也决定了Web Service并不适用于所有的环境。如单机运行程序和局域网上的同构应用程序等就尽量不采用Web Service方式。本文只是展示了Visual Studio .Net在Web Service上的初步用途。


以上内容均来自网络,由 稳速网络 搜集整理,如有侵权请联系我们立即删除,如转载请注明原文出处,并保留以下内容。
    [稳速网络] http://www.765.com.cnhttp://www.wsu.cn 是深圳市稳速网络科技有限公司的网络服务品牌,专业经营域名注册虚拟主机网站建设服务器租用托管等业务。经过多年的高速发展,“稳速网络”已经成为我国一家知名的互联网服务提供商。
文章录入:admin    责任编辑:admin 
  • 上一篇文章:

  • 下一篇文章: 没有了
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
    最新推荐  更多内容
    最新热门  更多内容
    资讯中心首页
    | 虚拟主机资讯 | 域名注册资讯 | 托管租用资讯 | 网络编程 | 网站备案 | 系统安全 | 源码下载 |
    关于我们 | 联系我们 | 产品价格 | 代理加盟 | 咨询反馈 | 诚聘英才 | 在线对话系统 | ASP技术网 | 帮助中心 | 网站地图
    ICP/ISP证B2-20050322
    ICP/ISP经营许可证编号:粤ICP证B2-20050322 网站备案号:粤B2-20050322号
    客服热线:0755-26499456 0755-26499435 [共8线] 24小时值班:0755-21852765 [更多]
    客服QQ:
    [ 63103 ]
    [ 959260 ]
    代理咨询:
    [ 519065 ]
    [更多]
    客户服务中心:深圳市南山区桃园路前海金岸金丰阁706  邮编:518052
    本站推广词:动态空间 | 网站空间 | 虚拟主机 | 深圳网站建设 | 空间购买 | 域名空间 | ASP空间申请购买
    服务范围:广州·深圳·东莞·珠海·汕头·惠州·中山·佛山·上海·重庆等全国其它地区
    广东省深圳市稳速网络科技有限公司版权所有 严禁以任何形式进行复制、抄袭