文章详情

短信预约-IT技能 免费直播动态提醒

请输入下面的图形验证码

提交验证

短信预约提醒成功

VB.NET如何实现Web Service

2023-06-17 21:49

关注

VB.NET如何实现Web Service,很多新手对此不是很清楚,为了帮助大家解决这个难题,下面小编将为大家详细讲解,有这方面需求的人可以来学习下,希望你能有所收获。

VB.NET实现Web Service

.NET的大的推动了Web Service的发展,而Visual Studio .NET的出现又极大的推动了Web Service的的广泛应用。在Visual Studio .NET推出之前,编写一个Web Service是一项非常复杂的工作,同样调用这个Web Service也十分麻烦。由于Visual Studio .NET对Web Service提供了较强的支持,很多细致、烦杂的工作都由Visual Studio .NET自动完成了。这样就使得上述工作变得非常简单。甚至不了解Web Service和其相关的标准、协议,也可以使用Visual Studio .NET编写Web Service,并使用这个Web Service。下面就来用VB.NET实现一个Web Service,此Web Service和数据库相关,数据库类型选用的是SqlServer。此Web Service提供了二个函数功能调用,其一名称为Binding,用以实现数据绑定,其二名称为Update,用以更新数据库中的数据。

以下就是VB.NET实现Web Service的具体步骤:

启动Visual Studio .NET。

选择菜单【文件】|【新建】|【项目】后,弹出【新建项目】对话框。

将【项目类型】设置为【VB项目】。

将【模板】设置为【ASP.NET Web 服务】。

在【位置】的文本框中输入"http://localhost/UpdateDataWebService"后,单击【确定】按钮,这样在Visual Studio .NET就会计算机Internet信息服务的默认目录中创建一个名称为"UpdateDataWebService"文件夹,里面存放的是此项目的文件。

选中【解决方案资源管理器】中的"Service1.asmx"文件,单击鼠标右键,在弹出的菜单中选择【查看代码】,则进入Service1.asmx.vb的编辑界面。

在Service1.asmx..vb的首部,在导入命名空间的代码区中添加下列代码,下列代码作用是导入命名空间System.Data.SqlClient:

Imports System.Data.SqlClient

在Service1.asmx..vb文件的"Public Class Service1 Inherits System.Web.Services.WebService"代码后,添加下列代码,下列代码是在Web Service中定义二个功能调用:

Public Function Binding ( ) As DataSet  Dim con As New SqlConnection (  "Server = localhost ; uid = sa ; pwd = ; database = northwind" )  Dim daCust As New SqlDataAdapter ( "Select * From Customers" , con )  Dim ds As New DataSet ( )  daCust.Fill( ds , "Cust" )  Return ds  End Function   Public Function Update ( ByVal ds As DataSet ) As DataSet  Dim con As New SqlConnection (  "Server = localhost ; uid = sa ; pwd = ; database = northwind " )  Dim daCust As New SqlDataAdapter ( "Select * From Customers" , con )  Dim cbCust As New SqlCommandBuilder ( daCust )  daCust.Update ( ds , "Cust" )  Return ds  End Function

保存上述的修改,一个简单的操作Sql Server数据库的Web Service就完成了,此时单击快捷键F5,此Web Service就开始运行,并可以对外提供服务了。

Imports System.Web.Services  Imports System.Data.SqlClient  Public Class Service1  Inherits System.Web.Services.WebService   Public Function Binding ( ) As DataSet  'Modify this Connection string to use your SQL Server and log on.  Dim con As New SqlConnection (  "Server=localhost;uid=sa;pwd=;database=northwind" )   Dim daCust As New SqlDataAdapter ( "Select * From Customers" , con )   Dim ds As New DataSet ( )   daCust.Fill ( ds , "Cust" )   Return ds  End Function   Public Function Update ( ByVal ds As DataSet ) As DataSet  Dim con As New SqlConnection (  "Server=localhost;uid=sa;pwd=;database=northwind" )   Dim daCust As New SqlDataAdapter ( "Select * From Customers" , con )   Dim cbCust As New SqlCommandBuilder ( daCust )   daCust.Update ( ds , "Cust" )   Return ds  End Function  #Region " Web 服务设计器生成的代码 "  Public Sub New ( )   MyBase.New ( )   '该调用是 Web 服务设计器所必需的。   InitializeComponent ( )   '在 InitializeComponent ( ) 调用之后添加您自己的初始化代码  End Sub  'Web 服务设计器所必需的  Private components As System.ComponentModel.IContainer  '注意:以下过程是 Web 服务设计器所必需的  '可以使用 Web 服务设计器修改此过程。  '不要使用代码编辑器修改它。   Private Sub InitializeComponent ( )   components = New System.ComponentModel.Container ( )   End Sub  Protected Overloads Overrides Sub Dispose ( ByVal disposing As Boolean )   'CODEGEN: 此过程是 Web 服务设计器所必需的  '不要使用代码编辑器修改它。  If disposing Then  If Not ( components Is Nothing ) Then  components.Dispose ( )   End If  End If  MyBase.Dispose ( disposing )   End Sub  #End Region  ' Web 服务示例  ' HelloWorld ( ) 示例服务返回字符串 Hello World。  ' 若要生成项目,请取消注释以下行,然后保存并生成项目。   ' 若要测试此 Web 服务,请确保 .asmx 文件为起始页  ' 并按 F5 键。  '  ' Public Function HelloWorld ( ) As String  ' HelloWorld = "Hello World" ' End Function  End Class

看完上述内容是否对您有帮助呢?如果还想对相关知识有进一步的了解或阅读更多相关文章,请关注编程网行业资讯频道,感谢您对编程网的支持。

阅读原文内容投诉

免责声明:

① 本站未注明“稿件来源”的信息均来自网络整理。其文字、图片和音视频稿件的所属权归原作者所有。本站收集整理出于非商业性的教育和科研之目的,并不意味着本站赞同其观点或证实其内容的真实性。仅作为临时的测试数据,供内部测试之用。本站并未授权任何人以任何方式主动获取本站任何信息。

② 本站未注明“稿件来源”的临时测试数据将在测试完成后最终做删除处理。有问题或投稿请发送至: 邮箱/279061341@qq.com QQ/279061341

软考中级精品资料免费领

  • 历年真题答案解析
  • 备考技巧名师总结
  • 高频考点精准押题
  • 2024年上半年信息系统项目管理师第二批次真题及答案解析(完整版)

    难度     813人已做
    查看
  • 【考后总结】2024年5月26日信息系统项目管理师第2批次考情分析

    难度     354人已做
    查看
  • 【考后总结】2024年5月25日信息系统项目管理师第1批次考情分析

    难度     318人已做
    查看
  • 2024年上半年软考高项第一、二批次真题考点汇总(完整版)

    难度     435人已做
    查看
  • 2024年上半年系统架构设计师考试综合知识真题

    难度     224人已做
    查看

相关文章

发现更多好内容

猜你喜欢

AI推送时光机
位置:首页-资讯-后端开发
咦!没有更多了?去看看其它编程学习网 内容吧
首页课程
资料下载
问答资讯