详解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.gawzjz.com/qtweb2/news11/17111.html

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

广告

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

猜你还喜欢下面的内容

移动网站建设知识

同城分类信息

梓潼网站设计　　 　APP定制开发　　 　传美奇电器　　 　贵阳联通机房　　 　短视频拍摄　　 　成都石膏隔墙板　　 　边坡防护网　　 　贵安服务器托管　　 　成都标志设计　　 　小谭建站工作室　　 　自贡服务器托管　　 　Android开发　　 　SSL证书　　 　企业网站改版　　 　优化排名　　 　重庆app软件开发　　 　广汉锦华建材　　 　全网整合营销　　 　云南护栏打桩机　　 　卖链接