详解VB.NET实现WebService

VB.NET还是比较常用的，于是我研究了一下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的具体步骤:

1. 启动Visual Studio .NET。

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

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

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

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

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

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

 
 
 
    
  
  
  
  1. Imports System.Data.SqlClient 
    2.

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

 
 
 
    
  
  
  
  1. Public Function Binding ( ) As DataSet  
    2. 
  
  
  
  2. Dim con As New SqlConnection (  
    3. 
  
  
  
  3. "Server = localhost ; uid = sa ; pwd = ; database = northwind" )  
    4. 
  
  
  
  4. Dim daCust As New SqlDataAdapter ( "Select * From Customers" , con )  
    5. 
  
  
  
  5. Dim ds As New DataSet ( )  
    6. 
  
  
  
  6. daCust.Fill( ds , "Cust" )  
    7. 
  
  
  
  7. Return ds  
    8. 
  
  
  
  8. End Function  
    9. 
  
  
  
  9.  
    10. 
  
  
  
  10. Public Function Update ( ByVal ds As DataSet ) As DataSet  
    11. 
  
  
  
  11. Dim con As New SqlConnection (  
    12. 
  
  
  
  12. "Server = localhost ; uid = sa ; pwd = ; database = northwind " )  
    13. 
  
  
  
  13. Dim daCust As New SqlDataAdapter ( "Select * From Customers" , con )  
    14. 
  
  
  
  14. Dim cbCust As New SqlCommandBuilder ( daCust )  
    15. 
  
  
  
  15. daCust.Update ( ds , "Cust" )  
    16. 
  
  
  
  16. Return ds  
    17. 
  
  
  
  17. End Function  
    18.

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

 
 
 
    
  
  
  
  1. Imports System.Web.Services  
    2. 
  
  
  
  2. Imports System.Data.SqlClient  
    3. 
  
  
  
  3. Public Class Service1  
    4. 
  
  
  
  4. Inherits System.Web.Services.WebService  
    5. 
  
  
  
  5.  
    6. 
  
  
  
  6. Public Function Binding ( ) As DataSet  
    7. 
  
  
  
  7. 'Modify this Connection string to use your SQL Server and log on.  
    8. 
  
  
  
  8. Dim con As New SqlConnection (  
    9. 
  
  
  
  9. "Server=localhost;uid=sa;pwd=;database=northwind" )   
    10. 
  
  
  
  10. Dim daCust As New SqlDataAdapter ( "Select * From Customers" , con )   
    11. 
  
  
  
  11. Dim ds As New DataSet ( )   
    12. 
  
  
  
  12. daCust.Fill ( ds , "Cust" )   
    13. 
  
  
  
  13. Return ds  
    14. 
  
  
  
  14. End Function  
    15. 
  
  
  
  15.  
    16. 
  
  
  
  16. Public Function Update ( ByVal ds As DataSet ) As DataSet  
    17. 
  
  
  
  17. Dim con As New SqlConnection (  
    18. 
  
  
  
  18. "Server=localhost;uid=sa;pwd=;database=northwind" )   
    19. 
  
  
  
  19. Dim daCust As New SqlDataAdapter ( "Select * From Customers" , con )   
    20. 
  
  
  
  20. Dim cbCust As New SqlCommandBuilder ( daCust )   
    21. 
  
  
  
  21. daCust.Update ( ds , "Cust" )   
    22. 
  
  
  
  22. Return ds  
    23. 
  
  
  
  23. End Function  
    24. 
  
  
  
  24. #Region " Web 服务设计器生成的代码 "  
    25. 
  
  
  
  25. Public Sub New ( )   
    26. 
  
  
  
  26. MyBase.New ( )   
    27. 
  
  
  
  27. '该调用是 Web 服务设计器所必需的。   
    28. 
  
  
  
  28. InitializeComponent ( )   
    29. 
  
  
  
  29. '在 InitializeComponent ( ) 调用之后添加您自己的初始化代码  
    30. 
  
  
  
  30. End Sub  
    31. 
  
  
  
  31. 'Web 服务设计器所必需的  
    32. 
  
  
  
  32. Private components As System.ComponentModel.IContainer  
    33. 
  
  
  
  33. '注意：以下过程是 Web 服务设计器所必需的  
    34. 
  
  
  
  34. '可以使用 Web 服务设计器修改此过程。  
    35. 
  
  
  
  35. '不要使用代码编辑器修改它。  
    36. 
  
  
  
  36.  
    37. 
  
  
  
  37. Private Sub InitializeComponent ( )   
    38. 
  
  
  
  38. components = New System.ComponentModel.Container ( )   
    39. 
  
  
  
  39. End Sub  
    40. 
  
  
  
  40. Protected Overloads Overrides Sub Dispose ( ByVal disposing As Boolean )   
    41. 
  
  
  
  41. 'CODEGEN: 此过程是 Web 服务设计器所必需的  
    42. 
  
  
  
  42. '不要使用代码编辑器修改它。  
    43. 
  
  
  
  43. If disposing Then  
    44. 
  
  
  
  44. If Not ( components Is Nothing ) Then  
    45. 
  
  
  
  45. components.Dispose ( )   
    46. 
  
  
  
  46. End If  
    47. 
  
  
  
  47. End If  
    48. 
  
  
  
  48. MyBase.Dispose ( disposing )   
    49. 
  
  
  
  49. End Sub  
    50. 
  
  
  
  50. #End Region  
    51. 
  
  
  
  51. ' Web 服务示例  
    52. 
  
  
  
  52. ' HelloWorld ( ) 示例服务返回字符串 Hello World。  
    53. 
  
  
  
  53. ' 若要生成项目，请取消注释以下行，然后保存并生成项目。   
    54. 
  
  
  
  54. ' 若要测试此 Web 服务，请确保 .asmx 文件为起始页  
    55. 
  
  
  
  55. ' 并按 F5 键。  
    56. 
  
  
  
  56. '  
    57. 
  
  
  
  57. ' Public Function HelloWorld ( ) As String  
    58. 
  
  
  
  58. ' HelloWorld = "Hello World" 
    59. 
  
  
  
  59. ' End Function  
    60. 
  
  
  
  60. End Class  
    61.

以上介绍VB.NET实现Web Service

新闻标题：详解VB.NET实现WebService
文章起源：http://www.stwzsj.com/qtweb/news26/16826.html

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

广告

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

猜你还喜欢下面的内容

企业网站制作知识

各行业网站

南充机房托管　　 　鸿艺文化　　 　成都微信开发　　 　重庆教育培训网站建设　　 　四川乐山服务器托管　　 　正泰动物制药　　 　成都网站建设　　 　成都网站推广公司　　 　成都定制网站　　 　免备案虚拟主机　　 　重庆移动机房托管　　 　品牌网站建设公司　　 　网站排名　　 　邛崃做网站　　 　成都app开发　　 　成都电信服务器托管　　 　汕尾凯敏网站　　 　腾讯云虚拟主机　　 　免备案空间　　 　盐亭网站制作公司