日本综合一区二区|亚洲中文天堂综合|日韩欧美自拍一区|男女精品天堂一区|欧美自拍第6页亚洲成人精品一区|亚洲黄色天堂一区二区成人|超碰91偷拍第一页|日韩av夜夜嗨中文字幕|久久蜜综合视频官网|精美人妻一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
詳解VB.NET實現(xiàn)WebService

VB.NET還是比較常用的，于是我研究了一下VB.NET實現(xiàn)Web Service，在這里拿出來和大家分享一下，希望對大家有用。

網(wǎng)站建設(shè)哪家好，找成都創(chuàng)新互聯(lián)公司！專注于網(wǎng)頁設(shè)計、網(wǎng)站建設(shè)、微信開發(fā)、成都微信小程序、集團企業(yè)網(wǎng)站建設(shè)等服務(wù)項目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了蘇尼特左免費建站歡迎大家使用！

VB.NET實現(xiàn)Web Service

.NET的大的推動了Web Service的發(fā)展，而Visual Studio .NET的出現(xiàn)又極大的推動了Web Service的的廣泛應(yīng)用。在Visual Studio .NET推出之前，編寫一個Web Service是一項非常復(fù)雜的工作，同樣調(diào)用這個Web Service也十分麻煩。由于Visual Studio .NET對Web Service提供了較強的支持，很多細致、煩雜的工作都由Visual Studio .NET自動完成了。這樣就使得上述工作變得非常簡單。甚至不了解Web Service和其相關(guān)的標準、協(xié)議，也可以使用Visual Studio .NET編寫Web Service，并使用這個Web Service。下面就來用VB.NET實現(xiàn)一個Web Service，此Web Service和數(shù)據(jù)庫相關(guān)，數(shù)據(jù)庫類型選用的是SqlServer。此Web Service提供了二個函數(shù)功能調(diào)用，其一名稱為Binding，用以實現(xiàn)數(shù)據(jù)綁定，其二名稱為Update，用以更新數(shù)據(jù)庫中的數(shù)據(jù)。

以下就是VB.NET實現(xiàn)Web Service的具體步驟:

1. 啟動Visual Studio .NET。

2. 選擇菜單【文件】|【新建】|【項目】后，彈出【新建項目】對話框。

3. 將【項目類型】設(shè)置為【VB項目】。

4. 將【模板】設(shè)置為【ASP.NET Web 服務(wù)】。

5. 在【位置】的文本框中輸入"http://localhost/UpdateDataWebService"后，單擊【確定】按鈕，這樣在Visual Studio .NET就會計算機Internet信息服務(wù)的默認目錄中創(chuàng)建一個名稱為"UpdateDataWebService"文件夾，里面存放的是此項目的文件。

6. 選中【解決方案資源管理器】中的"Service1.asmx"文件，單擊鼠標右鍵，在彈出的菜單中選擇【查看代碼】，則進入Service1.asmx.vb的編輯界面。

7. 在Service1.asmx..vb的首部，在導(dǎo)入命名空間的代碼區(qū)中添加下列代碼，下列代碼作用是導(dǎo)入命名空間System.Data.SqlClient:

 
 
 
    
  
  
  
  1. Imports System.Data.SqlClient 
    2.

8. 在Service1.asmx..vb文件的"Public Class Service1 Inherits System.Web.Services.WebService"代碼后，添加下列代碼，下列代碼是在Web Service中定義二個功能調(diào)用：

 
 
 
    
  
  
  
  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數(shù)據(jù)庫的Web Service就完成了，此時單擊快捷鍵F5，此Web Service就開始運行，并可以對外提供服務(wù)了。

 
 
 
    
  
  
  
  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 服務(wù)設(shè)計器生成的代碼 "  
    25. 
  
  
  
  25. Public Sub New ( )   
    26. 
  
  
  
  26. MyBase.New ( )   
    27. 
  
  
  
  27. '該調(diào)用是 Web 服務(wù)設(shè)計器所必需的。   
    28. 
  
  
  
  28. InitializeComponent ( )   
    29. 
  
  
  
  29. '在 InitializeComponent ( ) 調(diào)用之后添加您自己的初始化代碼  
    30. 
  
  
  
  30. End Sub  
    31. 
  
  
  
  31. 'Web 服務(wù)設(shè)計器所必需的  
    32. 
  
  
  
  32. Private components As System.ComponentModel.IContainer  
    33. 
  
  
  
  33. '注意：以下過程是 Web 服務(wù)設(shè)計器所必需的  
    34. 
  
  
  
  34. '可以使用 Web 服務(wù)設(shè)計器修改此過程。  
    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 服務(wù)設(shè)計器所必需的  
    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 服務(wù)示例  
    52. 
  
  
  
  52. ' HelloWorld ( ) 示例服務(wù)返回字符串 Hello World。  
    53. 
  
  
  
  53. ' 若要生成項目，請取消注釋以下行，然后保存并生成項目。   
    54. 
  
  
  
  54. ' 若要測試此 Web 服務(wù)，請確保 .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實現(xiàn)Web Service


本文題目：詳解VB.NET實現(xiàn)WebService
轉(zhuǎn)載注明：http://www.dlmjj.cn/article/ccsehjo.html