VB.Net編程實現Web Service的基礎

WebService目前可是目前計算機界一個非常流行的技術了 以至于有些人把WebService列入目前最熱門的十大技術之一 的確隨著互聯網的廣泛應用和發展 尤其是電子商務的發展 出于互聯網上各種復雜的應用系統和對更高安全性的要求 WebService的橫空出世的確滿足了當前這些的要求和需要 其中的原因在下文中有詳細的介紹 本文的主要內容是簡要介紹一下WebService的相關知識 以及使用VisualBasic Net實現WebServices的具體方法和典型步驟

創新互聯建站主要從事成都做網站、成都網站制作、成都外貿網站建設、網頁設計、企業做網站、公司建網站等業務。立足成都服務麻陽,10多年網站建設經驗,價格優惠、服務專業,歡迎來電咨詢建站服務:18982081108

一 WebService為何物 我們為什么需要它

WebService的主要功能就是可以實現實現跨平臺的功能調用 同時由于WebService中使用XML來進行數據交換 所以在使用WebService時不用擔心防火墻的影響 由于WebService集成了各種功能 并提供了一個友好的界面 所以在WebService能夠實現軟件的重用

另外WebService的調用非常簡單 簡而言之調用互聯網上的WebService就如同調用本地的組件一樣簡單 就是通過HTTP協議來調用互聯網上的組件 至于具體的調用方法 請參閱本文第五節第七段的內容 所以Web Service就是互聯網上的組件調用

二 和Web Service相關的標準 協議

Web Service是通過一系列標準和協議來保證和程序之間的動態連接和實現其安全調用的 其中主要的標準和協議是 XML WSDL SOAP HTTP UDDI 下面就簡要介紹這些標準和協議

XML Web Service之間和Web Service和應用程序之間都是采用XML進行數據交換的 Web Service由于基于了XML 這樣Web Service在具備XML帶來的優勢的同時 也擁有了由于XML所帶來的缺點 其中XML所帶來的最重要缺點就是Web Service將大量的占有CPU的資源 因為XML數據要經過多步處理才能被系統使用 所以 即使調用一個功能較小的Web Service 也會感覺速度很慢 所以網絡中對運行Web Service的主機要求是很高的

HTTP 應用程序是提供HTTP協議來調用Web Service的 所以HTTP在Web Service調用過程中 起著通道的作用

WSDL 是Web Service描述語言的簡寫 它是XML格式 其作用是描述Web Service 指示應用程序和與Web Servie交互的方法 當實現了某種Web Service服務時 為了讓別的程序調用 就必須告訴此Web Service的接口 如 服務名稱 服務所在的機器名稱 監聽端口號 傳遞參數的類型等等 WSDL就是規定了有關Web Services描述的標準

UDDI 是Universal Description Discovery and Integration的縮寫 簡單說 UDDI用于集中存放和查找WSDL描述文件 起著目錄服務器的作用

SOAP 是 Simple Object Access Protocol 的縮寫 即 簡單對象訪問協議 SOAP是一種消息傳遞的協議 它規定了Web Services之間傳遞信息的方式

三 本文章的程序設計 調試和運行的環境

（ ） 微軟公司視窗 中文企業版

（ ） Visual Studio Net 企業構建版 Net FrameWork SDK 版本號

（ ） IIS服務啟動

四 Visual Basic 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 下面就來用Visual Basic Net實現一個Web Service 此Web Service和數據庫相關 數據庫類型選用的是Sql Server 此Web Service提供了二個函數功能調用 其一名稱為Binding 用以實現數據綁定 其二名稱為Update 用以更新數據庫中的數據

以下就是Visual Basic Net實現此Web Service的具體步驟

啟動Visual Studio Net

選擇菜單「文件」|「新建」|「項目」后 彈出「新建項目」對話框

將「項目類型」設置為「Visual Basic項目」

將「模板」設置為「ASP NET Web 服務」

在「位置」的文本框中輸入//localhost/UpdateDataWebService 后 單擊「確定」按鈕 這樣在Visual Studio Net就會計算機Internet信息服務的默認目錄中創建一個名稱為 UpdateDataWebService 文件夾 里面存放的是此項目的文件 具體如圖 所示

圖 創建Web Service項目對話框

選中「解決方案資源管理器」中的 Service a *** x 文件 單擊鼠標右鍵 在彈出的菜單中選擇「查看代碼」 則進入Service a *** x vb的編輯界面

在Service a *** x……vb的首部 在導入命名空間的代碼區中添加下列代碼 下列代碼作用是導入命名空間System Data SqlClient

Imports System Data SqlClient

在Service a *** x……vb文件的 Public Class Service Inherits System Web Services WebService 代碼后 添加下列代碼 下列代碼是在Web Service中定義二個功能調用

WebMethod ( ) 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 dsEnd FunctionWebMethod ( ) 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 dsEnd Function

保存上述的修改 一個簡單的操作Sql Server數據庫的Web Service就完成了 此時單擊快捷鍵F 此Web Service就開始運行 并可以對外提供服務了 具體如圖 所示:

圖 :Web Service提供服務是的界面

Service a *** x vb的代碼清單如下:

Imports System Web ServicesImports System Data SqlClientWebService ( Namespace := ) _Public Class Service Inherits System Web Services WebServiceWebMethod ( ) 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 dsEnd FunctionWebMethod ( ) 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 dsEnd Function#Region Web 服務設計器生成的代碼 Public Sub New ( )　MyBase New ( )　 該調用是 Web 服務設計器所必需的 　InitializeComponent ( )　 在 InitializeComponent ( ) 調用之后添加您自己的初始化代碼End Sub Web 服務設計器所必需的Private ponents As System ComponentModel IContainer　 注意 以下過程是 Web 服務設計器所必需的　 可以使用 Web 服務設計器修改此過程 　 不要使用代碼編輯器修改它 　System Diagnostics DebuggerStepThrough ( ) Private Sub InitializeComponent ( )　ponents = New System ComponentModel Container ( )End SubProtected Overloads Overrides Sub Dispose ( ByVal disposing As Boolean ) CODEGEN: 此過程是 Web 服務設計器所必需的 不要使用代碼編輯器修改它 If disposing Then　If Not ( ponents Is Nothing ) Thenponents Dispose ( )　End IfEnd IfMyBase Dispose ( disposing )End Sub#End Region Web 服務示例 HelloWorld ( ) 示例服務返回字符串 Hello World 若要生成項目 請取消注釋以下行 然后保存并生成項目 若要測試此 Web 服務 請確保 a *** x 文件為起始頁 并按 F 鍵 WebMethod ( ) Public Function HelloWorld ( ) As String HelloWorld = Hello World End FunctionEnd Class

下面就來介紹Visual Basic Net中使用這個Web Service提供的服務來更新數據庫的實現方法

五 在Visual Basic Net調用Web Service提供的服務:

當Web Service已經處于對外提供服務狀態 Visual Basic Net就可以通過HTTP 調用 來使用這些服務了 當然前提是要了解Web Service對外提供服務所對應的URL 當了解到Web Service對應的URL后 Visual Basic Net就像是使用本地的類庫一樣使用Web Service中提供的各種功能 所以有些人說 Web Service從實質上說 就是通過HTTP調用遠程組件的一種方式 在Visual Basic Net具體實現加入Web Service可參閱下面步驟中的第七步

在下面介紹的這個數據庫應用程序是通過使用上面的Web Service中提供的 Binding 服務 對程序中DataGrid組件實現數據綁定 提供使用Web Service中提供的 Update 服務 通過程序中的DataGrid來修改數據庫 下面就是Visual Basic Net中使用Web Service提供服務來編寫數據庫應用程序的具體步驟 :

啟動Visual Studio Net

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

將【項目類型】設置為【Visual Basic項目】

將【模板】設置為【Windows應用程序】

在【名稱】文本框中輸入【TestWebService】

在【位置】的文本框中輸入【E:\VS NET項目】 然后單擊【確定】按鈕 這樣在 E:\VS NET項目 中就產生了名稱為 TestWebService 文件夾 里面存放的就是TestWebService項目的所有文件

選擇【解決方案資源管理器】|【引用】后 單擊鼠標右鍵 在彈出的菜單中選擇【添加Web 引用】 在彈出的【添加Web引用】對話框中的【地址】文本框中輸入 后 單擊回車鍵后 可得圖 所示界面 單擊圖 中【添加引用】按鈕 則在【TestWebService】項目中加入了Web引用 請注意 就是上面完成的Web Service對外提供服務的URL地址 具體可參閱圖 所示:

圖 :在【TestWebService】添加Web Service提供的服務

從【工具箱】中的【Windows窗體組件】選項卡中往Form 窗體中拖入下列組件 并執行相應的操作:

一個DataGrid組件

二個Button組件 分別是Button 至Button 并在這二個Button組件拖入Form 的設計窗體后 分別雙擊它們 則系統會在Form vb文件分別產生這二個組件的Click事件對應的處理代碼

按照表 所示調整窗體中各組件屬性的數值

組件類型 組件名稱 屬性 設置結果 Form Form Text 測試Web Service Form MaximizeBox False Form FormBorderStyle FixedSingle Button Button Text 綁定 Button FlatStyle Flat Button Text 修改 Button FlatStyle Flat 　

表 :【TestWebService】項目中組件的主要屬性及其對應數值

在調整完組件屬性值后 再按照圖 所示調整組件的位置和排列順序:

圖 :【TestWebService】項目中組件排列位置和順序

把Visual Studio Net的當前窗口切換到Form vb的代碼編輯窗口 并用下列代碼替換Form vb中的Button 的Click事件對應的處理代碼 下列代碼功能是使用Web Service中提供的 Binding 服務對DataGrid組件實現數據綁定:

Private Sub Button _Click ( ByVal sender As System Object ByVal e As System EventArgs ) Handles Button Click　Dim MyService As New localhost Service ( )　DataGrid DataSource = MyService Binding ( )　DataGrid DataMember = Cust End Sub

用下列代碼替換Form vb中的Button 的Click事件對應的處理代碼 下列代碼功能是使用Web Service中提供的 Update 服務實現通過DataGrid來修改數據庫數據:

Private Sub Button _Click ( ByVal sender As System Object ByVal e As System EventArgs ) Handles Button Click　Dim MyService As New localhost Service ( )　Dim ds As DataSet = DataGrid DataSource　Dim dsChanges As DataSet = ds GetChanges ( )　If Not ( dsChanges Is Nothing ) Thends Merge ( MyService Update ( dsChanges ) True )　End IfEnd Sub

至此 【TestWebService】項目的全部工作就完成了 調用Web Service是不是很簡單 此時單擊快捷鍵F 運行程序后 單擊程序中的【綁定】按鈕就會對程序中的DataGrid組件實現數據綁定 單擊程序中的【修改】按鈕 則程序會根據DataGrid中的內容來更新數據庫 圖 就是【TestWebService】的運行界面:

圖 :【TestWebService】的運行界面

Form vb的代碼清單如下:

Public Class Form Inherits System Windows Forms Form#Region Windows 窗體設計器生成的代碼 Public Sub New ( )　MyBase New ( )　 該調用是 Windows 窗體設計器所必需的 　InitializeComponent ( )　 在 InitializeComponent ( ) 調用之后添加任何初始化End Sub 窗體重寫處置以清理組件列表 Protected Overloads Overrides Sub Dispose ( ByVal disposing As Boolean )　If disposing ThenIf Not ( ponents Is Nothing ) Then　ponents Dispose ( )End If　End If　MyBase Dispose ( disposing )End Sub Windows 窗體設計器所必需的Private ponents As System ComponentModel IContainer　 注意 以下過程是 Windows 窗體設計器所必需的　 可以使用 Windows 窗體設計器修改此過程 　 不要使用代碼編輯器修改它 　Friend WithEvents Button As System Windows Forms Button　Friend WithEvents Button As System Windows Forms Button　Friend WithEvents DataGrid As System Windows Forms DataGrid　System Diagnostics DebuggerStepThrough ( ) Private Sub InitializeComponent ( )　Me Button = New System Windows Forms Button ( )　Me Button = New System Windows Forms Button ( )　Me DataGrid = New System Windows Forms DataGrid ( )　CType ( Me DataGrid System ComponentModel ISupportInitialize ) BeginInit ( )　Me SuspendLayout ( )　Me Button FlatStyle = System Windows Forms FlatStyle Flat　Me Button Location = New System Drawing Point ( )　Me Button Name = Button 　Me Button Size = New System Drawing Size ( )　Me Button TabIndex = 　Me Button Text = 綁定 　Me Button FlatStyle = System Windows Forms FlatStyle Flat　Me Button Location = New System Drawing Point ( )　Me Button Name = Button 　Me Button Size = New System Drawing Size ( )　Me Button TabIndex = 　Me Button Text = 修改 　Me DataGrid DataMember = 　Me DataGrid Dock = System Windows Forms DockStyle Top　Me DataGrid HeaderForeColor = System Drawing SystemColors ControlText　Me DataGrid Name = DataGrid 　Me DataGrid Size = New System Drawing Size ( )　Me DataGrid TabIndex = 　Me AutoScaleBaseSize = New System Drawing Size ( )　Me ClientSize = New System Drawing Size ( )　Me Controls AddRange ( New System Windows Forms Control ( ) {Me DataGrid Me Button Me Button } )　Me Name = Form 　Me Text = 測試Web Service 　CType ( Me DataGrid System ComponentModel ISupportInitialize ) EndInit ( )　Me ResumeLayout ( False )End Sub#End RegionPrivate Sub Button _Click ( ByVal sender As System Object ByVal e As System EventArgs ) Handles Button Click　Dim MyService As New localhost Service ( )　DataGrid DataSource = MyService Binding ( )　DataGrid DataMember = Cust End SubPrivate Sub Button _Click ( ByVal sender As System Object ByVal e As System EventArgs ) Handles Button Click　Dim MyService As New localhost Service ( )　Dim ds As DataSet = DataGrid DataSource　Dim dsChanges As DataSet = ds GetChanges ( )　If Not ( dsChanges Is Nothing ) Thends Merge ( MyService Update ( dsChanges ) True )　End IfEnd SubEnd Class

六 總結

lishixinzhi/Article/program/net/201311/11839

VB.NET能夠多行注釋嗎？求高手

Dim clh As ColumnHeader '聲明列表頭

Dim rs As New ADODB.Recordset '聲明一個變量

lv.ColumnHeaders.Clear’Lv清空列表頭

lv.ListItems.Clear '清空列表

lv.GridLines = True '顯示格線

lv.FullRowSelect = True '整行選擇模式

lv.View = lvwReport ’設置視圖為列表視圖

rs.Open "select * from 入庫", Cnn '運行查詢

For i = 0 To rs.Fields.Count - 1 ’for循環，所有記錄表的字段

Set clh = lv.ColumnHeaders.Add(, , rs.Fields(i).Name) ’添加列表頭與rs字段相同的名字

Next

lv.GridLines = True ’顯示網格

lv.FullRowSelect = True ’整行模式選擇

lv.View = lvwReport ’設置視圖為列表視圖

Set RsPage = rs ’復制rs

RsPage.PageSize = 40 ’每頁顯示40個記錄

Label5.Caption = RsPage.PageCount ’顯示頁的數量

If rs.EOF = True Then ’判斷是記錄的結束

Label7.Caption = 0 ’顯示0

Label5.Caption = 0 ’顯示0

For i = 1 To 4

Label1(i).Enabled = False ’禁用標簽1-4

Next

Else '判斷不是記錄的結束

Label7.Caption = 1 ’顯示1

RsPage.MoveFirst '移到第一個記錄

Call ShowPage(RsPage, 1) ’顯示第一頁

End If

End Sub

Private Sub ShowPage(rs As Recordset, nPage As Integer)

rs.AbsolutePage = nPage '顯示參數nPage頁

lv.ListItems.Clear '列表清空

Dim item As ListItem ’聲明列表

For i = 1 To 40

If rs.EOF = True Then Exit Sub ’判斷是記錄的結束，退出函數

Set item = lv.ListItems.Add(, , Trim(rs.Fields(0).Value)) ’添加列表行，0字段的值

For j = 1 To rs.Fields.Count - 1

item.SubItems(j) = IIf(IsNull(rs.Fields(j)), "", Trim(rs.Fields(j))) ’填寫行的其他字段

Next

rs.MoveNext '移到下一個記錄

Next

End Sub

Private Sub Command2_Click()

If Text2.Text "" Then

FrmPJsy.Show 'text2得值不為空時，FrmPJsy顯示

End If

End Sub

Private Sub lv_Click()

If lv.ListItems.Count = 1 Then ’如果行數不小于1

For i = 1 To lv.ListItems.Count

If lv.ListItems(i).Selected Then ’ 顯示記錄的每一段的內容

Text1(6).Text = Trim(lv.ListItems(i).Text)

Text1(0).Text = Trim(lv.ListItems(i).SubItems(1))

Text1(1).Text = Trim(lv.ListItems(i).SubItems(2))

Text1(2).Text = Trim(lv.ListItems(i).SubItems(3))

Text1(3).Text = Trim(lv.ListItems(i).SubItems(4))

Text1(4).Text = Trim(lv.ListItems(i).SubItems(5))

Text1(5).Text = Trim(lv.ListItems(i).SubItems(6))

DTPicker1.Value = Trim(lv.ListItems(i).SubItems(7))

Text1(7).Text = Trim(lv.ListItems(i).SubItems(8))

Command1(1).Enabled = True ’按鈕可以使用

Command1(2).Enabled = True

End If

Next

End If

End Sub

求具體VB.NET注釋

這時用vb6.0改寫的吧點虐 配置文件不用ini了，前面5行，判斷符合條件則獲取相關文本框中的內容，在下面4行把相關內容就是前面5行中的后4行的內容寫進ini配置文件，然后令btnDefault可用，同時調用btnDefault.PerformClick函數

Private Sub frmDbConn_Load是該form啟動加載的一些參數，即獲取配置文件中的相關信息，同時把信息顯示在相關的文本框中。

vb 中注釋多行的 命令是什么 ？

String.Format 方法 (String, Object):

將指定的 String 中的格式項替換為指定的 Object 實例的值的文本等效項。

下面的代碼示例演示數字、日期和枚舉的標準格式設置說明符。

閱讀代碼示例時，經常會遇到注釋符號 (')。 此符號通知 Visual Basic 編譯器忽略在它后面的文本（即注釋）。 注釋是為了方便閱讀而為代碼添加的簡短的解釋性說明。

在所有過程的開頭加入一段說明過程功能特征（過程的作用）的簡短注釋是一個很好的編程做法。 這對您自己和檢查代碼的任何其他人都有好處。 應該把實現的詳細信息（過程實現的方式）與描述功能特征的注釋分開。 若給說明加入了實現的詳細信息，切記在更新函數時對這些詳細信息進行更新。

注釋可以和語句同行并跟隨其后，也可以另占一整行。 以下代碼闡釋了這兩種情況。

.NET Framework 定義了標準和自定義格式說明符，用于格式化數字、日期和時間以及枚舉。各種格式化輸出字符串的方法（例如 Console.WriteLine 和所有類型的 ToString方法），以及一些分析輸入字符串的方法（例如 DateTime.ParseExact）都使用格式化說明符。

所以，x 是通過程序對格式說明符例如#進行解析來進行格式化的

This?is?a?comment?beginning?at?the?left?edge?of?the?screen.

text1.Text?=?"Hi!"???'?This?is?an?inline?comment.

'?This?comment?is?too?long?to?fit?on?a?single?line,?so?we?break??

'?it?into?two?lines.?Some?comments?might?need?three?or?more?lines.

通過選擇一行或多行代碼，然后在“編輯”工具欄上選擇“注釋”按鈕和“取消注釋”按鈕，可以添加或移除某段代碼的注釋符。

也可以用在文本前加關鍵字 REM 的方式給代碼添加注釋。 但符號 ' 和“注釋”/“取消注釋”按鈕更易于使用，而且需要的空間和內存更少。

文章名稱：vb點虐 取消注釋的簡單介紹
鏈接URL：http://www.js-pz168.com/article46/ddjoceg.html

成都網站建設公司_創新互聯，為您提供云服務器、域名注冊、服務器托管、用戶體驗、動態網站、電子商務

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯