VB.NET如何實(shí)現(xiàn)Web Service，很多新手對(duì)此不是很清楚，為了幫助大家解決這個(gè)難題，下面小編將為大家詳細(xì)講解，有這方面需求的人可以來學(xué)習(xí)下，希望你能有所收獲。

創(chuàng)新互聯(lián)長(zhǎng)期為成百上千客戶提供的網(wǎng)站建設(shè)服務(wù)，團(tuán)隊(duì)從業(yè)經(jīng)驗(yàn)10年，關(guān)注不同地域、不同群體，并針對(duì)不同對(duì)象提供差異化的產(chǎn)品和服務(wù)；打造開放共贏平臺(tái)，與合作伙伴共同營(yíng)造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為光山企業(yè)提供專業(yè)的成都網(wǎng)站設(shè)計(jì)、成都做網(wǎng)站，光山網(wǎng)站改版等技術(shù)服務(wù)。擁有10多年豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開發(fā)。

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

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

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

1. 啟動(dòng)Visual Studio .NET。

2. 選擇菜單【文件】|【新建】|【項(xiàng)目】后，彈出【新建項(xiàng)目】對(duì)話框。

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

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

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

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

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

Imports System.Data.SqlClient

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

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

9. 保存上述的修改，一個(gè)簡(jiǎn)單的操作Sql Server數(shù)據(jù)庫(kù)的Web Service就完成了，此時(shí)單擊快捷鍵F5，此Web Service就開始運(yùn)行，并可以對(duì)外提供服務(wù)了。

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 服務(wù)設(shè)計(jì)器生成的代碼 "  Public Sub New ( )   MyBase.New ( )   '該調(diào)用是 Web 服務(wù)設(shè)計(jì)器所必需的。   InitializeComponent ( )   '在 InitializeComponent ( ) 調(diào)用之后添加您自己的初始化代碼  End Sub  'Web 服務(wù)設(shè)計(jì)器所必需的  Private components As System.ComponentModel.IContainer  '注意：以下過程是 Web 服務(wù)設(shè)計(jì)器所必需的  '可以使用 Web 服務(wù)設(shè)計(jì)器修改此過程。  '不要使用代碼編輯器修改它。   Private Sub InitializeComponent ( )   components = New System.ComponentModel.Container ( )   End Sub  Protected Overloads Overrides Sub Dispose ( ByVal disposing As Boolean )   'CODEGEN: 此過程是 Web 服務(wù)設(shè)計(jì)器所必需的  '不要使用代碼編輯器修改它。  If disposing Then  If Not ( components Is Nothing ) Then  components.Dispose ( )   End If  End If  MyBase.Dispose ( disposing )   End Sub  #End Region  ' Web 服務(wù)示例  ' HelloWorld ( ) 示例服務(wù)返回字符串 Hello World。  ' 若要生成項(xiàng)目，請(qǐng)取消注釋以下行，然后保存并生成項(xiàng)目。   ' 若要測(cè)試此 Web 服務(wù)，請(qǐng)確保 .asmx 文件為起始頁(yè)  ' 并按 F5 鍵。  '  ' Public Function HelloWorld ( ) As String  ' HelloWorld = "Hello World" ' End Function  End Class

看完上述內(nèi)容是否對(duì)您有幫助呢？如果還想對(duì)相關(guān)知識(shí)有進(jìn)一步的了解或閱讀更多相關(guān)文章，請(qǐng)關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道，感謝您對(duì)創(chuàng)新互聯(lián)的支持。

網(wǎng)站標(biāo)題：VB.NET如何實(shí)現(xiàn)WebService
URL標(biāo)題：http://chinadenli.net/article42/jiochc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站內(nèi)鏈、搜索引擎優(yōu)化、用戶體驗(yàn)、靜態(tài)網(wǎng)站、Google、品牌網(wǎng)站設(shè)計(jì)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)