vb點(diǎn)虐 編程工具是什么

vb點(diǎn)虐 編程工具是：Microsoft Visual Studio 2008

創(chuàng)新互聯(lián)堅(jiān)持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：網(wǎng)站建設(shè)、成都網(wǎng)站制作、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿(mǎn)足客戶(hù)于互聯(lián)網(wǎng)時(shí)代的湯旺網(wǎng)站設(shè)計(jì)、移動(dòng)媒體設(shè)計(jì)的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！

1、Microsoft Visual Studio 2008是面向Windows Vista、Office 2007、Web 2.0的下一代開(kāi)發(fā)工具，代號(hào)“Orcas”，是對(duì)Visual Studio 2005一次及時(shí)、全面的升級(jí)。

2、VS2008引入了250多個(gè)新特性，整合了對(duì)象、關(guān)系型數(shù)據(jù)、XML訪(fǎng)問(wèn)方式,語(yǔ)言更簡(jiǎn)潔。

3、使用Visual Studio 2008可以高效開(kāi)發(fā)Windows應(yīng)用。

4、設(shè)計(jì)器中可以實(shí)時(shí)反映變更,XAML中智能感知功能可以提高開(kāi)發(fā)效率。

5、Visual Studio 2008支持項(xiàng)目模板、調(diào)試器和部署程序。

6、Visual Studio 2008可以高效開(kāi)發(fā)Web應(yīng)用，集成了AJAX 1.0，包含AJAX項(xiàng)目模板，它還可以高效開(kāi)發(fā)Office應(yīng)用和Mobile應(yīng)用。

vb和vb點(diǎn)虐 的區(qū)別和特點(diǎn)

1、vb點(diǎn)虐 ?完全符合面向?qū)ο蟮木幊陶Z(yǔ)言抽象、封裝、繼承的四大特性，而vb不支持繼承。

2、錯(cuò)誤處理不同。

vb中只是On Error.....goto和On Errer Resume Next ，這些錯(cuò)誤稱(chēng)為非結(jié)構(gòu)化異常處理。而在vb點(diǎn)虐 中采用的結(jié)構(gòu)化異常處理機(jī)制，try...catch....finally控制。

3、兩者產(chǎn)生的窗體不同。

vb點(diǎn)虐 允許創(chuàng)建不同類(lèi)型的應(yīng)用程序，例如，創(chuàng)建ASP.NET和ASP.NET Web 服務(wù)應(yīng)用程序，還允許創(chuàng)建控制臺(tái)應(yīng)用程序和作為桌面服務(wù)運(yùn)行的應(yīng)用程序。但是vb 只能創(chuàng)建Windows窗體。

4、數(shù)據(jù)庫(kù)訪(fǎng)問(wèn)的差別。

vb6.0是通過(guò)ADO（Active X Data Objext）來(lái)實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)訪(fǎng)問(wèn)。而vb點(diǎn)虐 是通過(guò)ADO.NET來(lái)訪(fǎng)問(wèn)數(shù)據(jù)庫(kù)。

擴(kuò)展資料

Visual Basic（簡(jiǎn)稱(chēng)VB）是Microsoft公司開(kāi)發(fā)的一種通用的基于對(duì)象的程序設(shè)計(jì)語(yǔ)言，為結(jié)構(gòu)化的、模塊化的、面向?qū)ο蟮摹瑓f(xié)助開(kāi)發(fā)環(huán)境的事件驅(qū)動(dòng)為機(jī)制的可視化程序設(shè)計(jì)語(yǔ)言。是一種可用于微軟自家產(chǎn)品開(kāi)發(fā)的語(yǔ)言。

“Visual” 指的是開(kāi)發(fā)圖形用戶(hù)界面 (GUI) 的方法——不需編寫(xiě)大量代碼去描述界面元素的外觀(guān)和位置，而只要把預(yù)先建立的對(duì)象add到屏幕上的一點(diǎn)即可。

“Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 語(yǔ)言，是一種在計(jì)算技術(shù)發(fā)展歷史上應(yīng)用得最為廣泛的語(yǔ)言。

Visual Basic源自于BASIC編程語(yǔ)言。VB擁有圖形用戶(hù)界面（GUI）和快速應(yīng)用程序開(kāi)發(fā)（RAD）系統(tǒng)，可以輕易的使用DAO、RDO、ADO連接數(shù)據(jù)庫(kù)，或者輕松的創(chuàng)建Active?X控件，用于高效生成類(lèi)型安全和面向?qū)ο蟮膽?yīng)用程序 。

參考資料：百度百科-Visual Basic

想問(wèn)下，現(xiàn)在學(xué)習(xí)B語(yǔ)言編程用VB多還是用.NET多。

首先，建議你了解下VB和.NET的概念。

VB, Visual Basic，是微軟在1993年，模仿BASIC編程語(yǔ)言（1964年問(wèn)世），開(kāi)發(fā)出的在當(dāng)時(shí)算是比較新的編程語(yǔ)言。VB在當(dāng)時(shí)也是微軟COM（Component Object Model）的一部分?？梢钥焖匍_(kāi)發(fā)GUI（用戶(hù)界面），用DAO，RDO，ADO連接數(shù)據(jù)庫(kù)，包括ActiveX也是當(dāng)時(shí)COM里的技術(shù)。VBA與VBScript只是語(yǔ)法和VB相同，但功能和VB有些不同。VB在1998年有了VB6.0，也是目前，將來(lái)的VB最后的版本。微軟在2008年3月就已經(jīng)停止對(duì)VB的更新。換句話(huà)說(shuō)，VB已經(jīng)過(guò)時(shí)了。

而VB語(yǔ)言的下一個(gè)版本，就是微軟的.NET Framework （2002年問(wèn)世）里面的一種開(kāi)發(fā)語(yǔ)言--VB.NET（注意和VB有不同之處，語(yǔ)法相似）。.NET Framework是一項(xiàng)在Windows環(huán)境下的軟件技術(shù)。它含有龐大的Library（FCL，F(xiàn)ramework Class Library），還有一個(gè)和Java Virtual Machine相似的.NET Virtual Machine（CLR，Common Language Runtime）。FCL和CLR是.NET Framework的核心組件。編程者要學(xué)習(xí)使用的是.NET主要有3個(gè)主要組件，Winforms，ASP.NET，ADO.NET（Winforms用于迅速開(kāi)發(fā)桌面應(yīng)用程序，ASP.NET完全是網(wǎng)頁(yè)開(kāi)發(fā)，ADO.NET是與back-end數(shù)據(jù)庫(kù)的連接和數(shù)據(jù)處理）。

但是可以說(shuō).NET里已經(jīng)包含了VB，為什么？準(zhǔn)確的說(shuō)，應(yīng)該是.NET的語(yǔ)言基礎(chǔ)結(jié)構(gòu)（Common Language Infrastructure）中，有多種語(yǔ)言供開(kāi)發(fā)者使用，C#,VB.NET,J#。每種語(yǔ)言在Compile（編譯）后，被轉(zhuǎn)換成Common Intermediate Language, CIL，然后在CLR上運(yùn)行。也就是說(shuō)無(wú)論用哪種語(yǔ)言開(kāi)發(fā)，其效果都是一樣的。

總之，VB已經(jīng)過(guò)時(shí)（VB6在98年問(wèn)世，2008停止更新和技術(shù)支持）。而.NET（02問(wèn)世，最新的是07年的.NET Framework 3.5），而且.NET支持多種語(yǔ)言VB.NET, C#, J#（其實(shí)每一種語(yǔ)言都是一樣的，就如同山東話(huà)，東北話(huà)寫(xiě)出來(lái)都是漢字一樣），功能如此強(qiáng)大，有是一門(mén)火熱的新技術(shù)。呵呵當(dāng)然是.NET好，學(xué).NET的人最多了，Java也非常多。

VB.Net編程實(shí)現(xiàn)Web Service的基礎(chǔ)

WebService目前可是目前計(jì)算機(jī)界一個(gè)非常流行的技術(shù)了 以至于有些人把WebService列入目前最熱門(mén)的十大技術(shù)之一 的確隨著互聯(lián)網(wǎng)的廣泛應(yīng)用和發(fā)展 尤其是電子商務(wù)的發(fā)展 出于互聯(lián)網(wǎng)上各種復(fù)雜的應(yīng)用系統(tǒng)和對(duì)更高安全性的要求 WebService的橫空出世的確滿(mǎn)足了當(dāng)前這些的要求和需要 其中的原因在下文中有詳細(xì)的介紹 本文的主要內(nèi)容是簡(jiǎn)要介紹一下WebService的相關(guān)知識(shí) 以及使用VisualBasic Net實(shí)現(xiàn)WebServices的具體方法和典型步驟

一 WebService為何物 我們?yōu)槭裁葱枰?/p>

WebService的主要功能就是可以實(shí)現(xiàn)實(shí)現(xiàn)跨平臺(tái)的功能調(diào)用 同時(shí)由于WebService中使用XML來(lái)進(jìn)行數(shù)據(jù)交換 所以在使用WebService時(shí)不用擔(dān)心防火墻的影響 由于WebService集成了各種功能 并提供了一個(gè)友好的界面 所以在WebService能夠?qū)崿F(xiàn)軟件的重用

另外WebService的調(diào)用非常簡(jiǎn)單 簡(jiǎn)而言之調(diào)用互聯(lián)網(wǎng)上的WebService就如同調(diào)用本地的組件一樣簡(jiǎn)單 就是通過(guò)HTTP協(xié)議來(lái)調(diào)用互聯(lián)網(wǎng)上的組件 至于具體的調(diào)用方法 請(qǐng)參閱本文第五節(jié)第七段的內(nèi)容 所以Web Service就是互聯(lián)網(wǎng)上的組件調(diào)用

二 和Web Service相關(guān)的標(biāo)準(zhǔn) 協(xié)議

Web Service是通過(guò)一系列標(biāo)準(zhǔn)和協(xié)議來(lái)保證和程序之間的動(dòng)態(tài)連接和實(shí)現(xiàn)其安全調(diào)用的 其中主要的標(biāo)準(zhǔn)和協(xié)議是 XML WSDL SOAP HTTP UDDI 下面就簡(jiǎn)要介紹這些標(biāo)準(zhǔn)和協(xié)議

XML Web Service之間和Web Service和應(yīng)用程序之間都是采用XML進(jìn)行數(shù)據(jù)交換的 Web Service由于基于了XML 這樣Web Service在具備XML帶來(lái)的優(yōu)勢(shì)的同時(shí) 也擁有了由于XML所帶來(lái)的缺點(diǎn) 其中XML所帶來(lái)的最重要缺點(diǎn)就是Web Service將大量的占有CPU的資源 因?yàn)閄ML數(shù)據(jù)要經(jīng)過(guò)多步處理才能被系統(tǒng)使用 所以 即使調(diào)用一個(gè)功能較小的Web Service 也會(huì)感覺(jué)速度很慢 所以網(wǎng)絡(luò)中對(duì)運(yùn)行Web Service的主機(jī)要求是很高的

HTTP 應(yīng)用程序是提供HTTP協(xié)議來(lái)調(diào)用Web Service的 所以HTTP在Web Service調(diào)用過(guò)程中 起著通道的作用

WSDL 是Web Service描述語(yǔ)言的簡(jiǎn)寫(xiě) 它是XML格式 其作用是描述Web Service 指示應(yīng)用程序和與Web Servie交互的方法 當(dāng)實(shí)現(xiàn)了某種Web Service服務(wù)時(shí) 為了讓別的程序調(diào)用 就必須告訴此Web Service的接口 如 服務(wù)名稱(chēng) 服務(wù)所在的機(jī)器名稱(chēng) 監(jiān)聽(tīng)端口號(hào) 傳遞參數(shù)的類(lèi)型等等 WSDL就是規(guī)定了有關(guān)Web Services描述的標(biāo)準(zhǔn)

UDDI 是Universal Description Discovery and Integration的縮寫(xiě) 簡(jiǎn)單說(shuō) UDDI用于集中存放和查找WSDL描述文件 起著目錄服務(wù)器的作用

SOAP 是 Simple Object Access Protocol 的縮寫(xiě) 即 簡(jiǎn)單對(duì)象訪(fǎng)問(wèn)協(xié)議 SOAP是一種消息傳遞的協(xié)議 它規(guī)定了Web Services之間傳遞信息的方式

三 本文章的程序設(shè)計(jì) 調(diào)試和運(yùn)行的環(huán)境

（ ） 微軟公司視窗 中文企業(yè)版

（ ） Visual Studio Net 企業(yè)構(gòu)建版 Net FrameWork SDK 版本號(hào)

（ ） IIS服務(wù)啟動(dòng)

四 Visual Basic 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推出之前 編寫(xiě)一個(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編寫(xiě)Web Service 并使用這個(gè)Web Service 下面就來(lái)用Visual Basic Net實(shí)現(xiàn)一個(gè)Web Service 此Web Service和數(shù)據(jù)庫(kù)相關(guān) 數(shù)據(jù)庫(kù)類(lèi)型選用的是Sql Server 此Web Service提供了二個(gè)函數(shù)功能調(diào)用 其一名稱(chēng)為Binding 用以實(shí)現(xiàn)數(shù)據(jù)綁定 其二名稱(chēng)為Update 用以更新數(shù)據(jù)庫(kù)中的數(shù)據(jù)

以下就是Visual Basic Net實(shí)現(xiàn)此Web Service的具體步驟

啟動(dòng)Visual Studio Net

選擇菜單「文件」|「新建」|「項(xiàng)目」后 彈出「新建項(xiàng)目」對(duì)話(huà)框

將「項(xiàng)目類(lèi)型」設(shè)置為「Visual Basic項(xiàng)目」

將「模板」設(shè)置為「ASP NET Web 服務(wù)」

在「位置」的文本框中輸入//localhost/UpdateDataWebService 后 單擊「確定」按鈕 這樣在Visual Studio Net就會(huì)計(jì)算機(jī)Internet信息服務(wù)的默認(rèn)目錄中創(chuàng)建一個(gè)名稱(chēng)為 UpdateDataWebService 文件夾 里面存放的是此項(xiàng)目的文件 具體如圖 所示

圖 創(chuàng)建Web Service項(xiàng)目對(duì)話(huà)框

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

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

Imports System Data SqlClient

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

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

保存上述的修改 一個(gè)簡(jiǎn)單的操作Sql Server數(shù)據(jù)庫(kù)的Web Service就完成了 此時(shí)單擊快捷鍵F 此Web Service就開(kāi)始運(yùn)行 并可以對(duì)外提供服務(wù)了 具體如圖 所示:

圖 :Web Service提供服務(wù)是的界面

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 服務(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 ponents As System ComponentModel IContainer　 注意 以下過(guò)程是 Web 服務(wù)設(shè)計(jì)器所必需的　 可以使用 Web 服務(wù)設(shè)計(jì)器修改此過(guò)程 　 不要使用代碼編輯器修改它 　System Diagnostics DebuggerStepThrough ( ) Private Sub InitializeComponent ( )　ponents = New System ComponentModel Container ( )End SubProtected Overloads Overrides Sub Dispose ( ByVal disposing As Boolean ) CODEGEN: 此過(guò)程是 Web 服務(wù)設(shè)計(jì)器所必需的 不要使用代碼編輯器修改它 If disposing Then　If Not ( ponents Is Nothing ) Thenponents Dispose ( )　End IfEnd IfMyBase Dispose ( disposing )End Sub#End Region Web 服務(wù)示例 HelloWorld ( ) 示例服務(wù)返回字符串 Hello World 若要生成項(xiàng)目 請(qǐng)取消注釋以下行 然后保存并生成項(xiàng)目 若要測(cè)試此 Web 服務(wù) 請(qǐng)確保 a *** x 文件為起始頁(yè) 并按 F 鍵 WebMethod ( ) Public Function HelloWorld ( ) As String HelloWorld = Hello World End FunctionEnd Class

下面就來(lái)介紹Visual Basic Net中使用這個(gè)Web Service提供的服務(wù)來(lái)更新數(shù)據(jù)庫(kù)的實(shí)現(xiàn)方法

五 在Visual Basic Net調(diào)用Web Service提供的服務(wù):

當(dāng)Web Service已經(jīng)處于對(duì)外提供服務(wù)狀態(tài) Visual Basic Net就可以通過(guò)HTTP 調(diào)用 來(lái)使用這些服務(wù)了 當(dāng)然前提是要了解Web Service對(duì)外提供服務(wù)所對(duì)應(yīng)的URL 當(dāng)了解到Web Service對(duì)應(yīng)的URL后 Visual Basic Net就像是使用本地的類(lèi)庫(kù)一樣使用Web Service中提供的各種功能 所以有些人說(shuō) Web Service從實(shí)質(zhì)上說(shuō) 就是通過(guò)HTTP調(diào)用遠(yuǎn)程組件的一種方式 在Visual Basic Net具體實(shí)現(xiàn)加入Web Service可參閱下面步驟中的第七步

在下面介紹的這個(gè)數(shù)據(jù)庫(kù)應(yīng)用程序是通過(guò)使用上面的Web Service中提供的 Binding 服務(wù) 對(duì)程序中DataGrid組件實(shí)現(xiàn)數(shù)據(jù)綁定 提供使用Web Service中提供的 Update 服務(wù) 通過(guò)程序中的DataGrid來(lái)修改數(shù)據(jù)庫(kù) 下面就是Visual Basic Net中使用Web Service提供服務(wù)來(lái)編寫(xiě)數(shù)據(jù)庫(kù)應(yīng)用程序的具體步驟 :

啟動(dòng)Visual Studio Net

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

將【項(xiàng)目類(lèi)型】設(shè)置為【Visual Basic項(xiàng)目】

將【模板】設(shè)置為【W(wǎng)indows應(yīng)用程序】

在【名稱(chēng)】文本框中輸入【TestWebService】

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

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

圖 :在【TestWebService】添加Web Service提供的服務(wù)

從【工具箱】中的【W(wǎng)indows窗體組件】選項(xiàng)卡中往Form 窗體中拖入下列組件 并執(zhí)行相應(yīng)的操作:

一個(gè)DataGrid組件

二個(gè)Button組件 分別是Button 至Button 并在這二個(gè)Button組件拖入Form 的設(shè)計(jì)窗體后 分別雙擊它們 則系統(tǒng)會(huì)在Form vb文件分別產(chǎn)生這二個(gè)組件的Click事件對(duì)應(yīng)的處理代碼

按照表 所示調(diào)整窗體中各組件屬性的數(shù)值

組件類(lèi)型 組件名稱(chēng) 屬性 設(shè)置結(jié)果 Form Form Text 測(cè)試Web Service Form MaximizeBox False Form FormBorderStyle FixedSingle Button Button Text 綁定 Button FlatStyle Flat Button Text 修改 Button FlatStyle Flat 　

表 :【TestWebService】項(xiàng)目中組件的主要屬性及其對(duì)應(yīng)數(shù)值

在調(diào)整完組件屬性值后 再按照?qǐng)D 所示調(diào)整組件的位置和排列順序:

圖 :【TestWebService】項(xiàng)目中組件排列位置和順序

把Visual Studio Net的當(dāng)前窗口切換到Form vb的代碼編輯窗口 并用下列代碼替換Form vb中的Button 的Click事件對(duì)應(yīng)的處理代碼 下列代碼功能是使用Web Service中提供的 Binding 服務(wù)對(duì)DataGrid組件實(shí)現(xiàn)數(shù)據(jù)綁定:

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事件對(duì)應(yīng)的處理代碼 下列代碼功能是使用Web Service中提供的 Update 服務(wù)實(shí)現(xiàn)通過(guò)DataGrid來(lái)修改數(shù)據(jù)庫(kù)數(shù)據(jù):

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】項(xiàng)目的全部工作就完成了 調(diào)用Web Service是不是很簡(jiǎn)單 此時(shí)單擊快捷鍵F 運(yùn)行程序后 單擊程序中的【綁定】按鈕就會(huì)對(duì)程序中的DataGrid組件實(shí)現(xiàn)數(shù)據(jù)綁定 單擊程序中的【修改】按鈕 則程序會(huì)根據(jù)DataGrid中的內(nèi)容來(lái)更新數(shù)據(jù)庫(kù) 圖 就是【TestWebService】的運(yùn)行界面:

圖 :【TestWebService】的運(yùn)行界面

Form vb的代碼清單如下:

Public Class Form Inherits System Windows Forms Form#Region Windows 窗體設(shè)計(jì)器生成的代碼 Public Sub New ( )　MyBase New ( )　 該調(diào)用是 Windows 窗體設(shè)計(jì)器所必需的 　InitializeComponent ( )　 在 InitializeComponent ( ) 調(diào)用之后添加任何初始化End Sub 窗體重寫(xiě)處置以清理組件列表 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 窗體設(shè)計(jì)器所必需的Private ponents As System ComponentModel IContainer　 注意 以下過(guò)程是 Windows 窗體設(shè)計(jì)器所必需的　 可以使用 Windows 窗體設(shè)計(jì)器修改此過(guò)程 　 不要使用代碼編輯器修改它 　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 = 測(cè)試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

六 總結(jié)

lishixinzhi/Article/program/net/201311/11839

網(wǎng)頁(yè)題目：編程vb點(diǎn)虐 svg 編程培訓(xùn)費(fèi)用
網(wǎng)頁(yè)地址：http://www.rwnh.cn/article10/ddcphdo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供動(dòng)態(tài)網(wǎng)站、Google、軟件開(kāi)發(fā)、建站公司、全網(wǎng)營(yíng)銷(xiāo)推廣、服務(wù)器托管

廣告

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