亚洲免费在线-亚洲免费在线播放-亚洲免费在线观看-亚洲免费在线观看视频-亚洲免费在线看-亚洲免费在线视频

VB實現(xiàn)SQL Server 2000存儲過程調(diào)用

系統(tǒng) 2038 0
????????????作者: 劉興權(quán) 陳奇 吳兵 劉雪松 時洪飛?????????????出處: 計算機與信息技術(shù)

?????????摘要 :本文以SQL Server2000 存儲過程 為例,探討了存儲過程的優(yōu)點,并以Visual Basic6.0 程序設(shè)計 語言給出了調(diào)用存儲過程的關(guān)鍵代碼。

關(guān)鍵字 :數(shù)據(jù)庫;SQL Server2000;存儲過程;應(yīng)用程序;VB

存儲過程

  存儲過程是存儲在服務(wù)器上的一組預(yù)編譯的Transact-SQL語句,是一種封裝重復(fù)任務(wù)操作的方法,支持用戶提供的變量,具有強大的編程功能。它類似于DOS系統(tǒng)中的BAT文件。在BAT文件中,可以包含一組經(jīng)常執(zhí)行的命令,這組命令通過BAT文件的執(zhí)行而被執(zhí)行。同樣的道理,可以把要完成某項任務(wù)的許多Transact-SQL語句寫在一起,組織成存儲過程的形式,通過執(zhí)行該存儲過程就可以完成這項任務(wù)。存儲過程與BAT文件又有差別,即存儲過程已經(jīng)進行了預(yù)編譯。

  1、創(chuàng)建存儲過程的方法

  在Transact-SQL語言中,創(chuàng)建存儲過程可以使用CREATE PROCEDURE語句,其語法形式如下:

CREATE PROC[EDURE] procedure_name[;number]
[{@parameter data_type}[VARYING][=default][OUTPUT]
]],…n]
[WITH{RECOMPILE|ENCRYPTION|RECOMPILE,ENCRYPTION}]
[FOR REPLICATION]
AS sql_statement[…n]

  在上面的CREATE PROCEDURE語句中,方括號"[ ]"中的內(nèi)容是可選的,花括號"{}"中的內(nèi)容是必須出現(xiàn)的,不能省略,[,…n]表示前面的參數(shù)樣式,可以重復(fù)出現(xiàn)。豎線"|"表示兩邊的選項可以任選一個。

  下面分析該語句中各種選項的含義。

  CREATE PROCEDURE是關(guān)鍵字,也可以寫成CREATE PROC。

  procedure_name是該存儲過程的名稱,名稱可以是任何符合命名規(guī)則的標(biāo)示符。名稱后的[;number]參數(shù)表示可以定義一系列的存儲過程名稱,這些存儲過程的數(shù)量由number指定。

  參數(shù)名稱可以使用@parameter data_type來指定。在Transact-SQL語言中,用戶定義的參數(shù)名稱前面加"@" 符號 ,這些數(shù)據(jù)類型是Transact-SQL語言允許的各種數(shù)據(jù)類型,包括系統(tǒng)提供的數(shù)據(jù)類型和用戶定義的數(shù)據(jù)類型。

  當(dāng)參數(shù)類型為cursor時,必須使用關(guān)鍵字VARYING和OUTPUT。VARYING表示結(jié)果集可以是一個輸出參數(shù),其內(nèi)容是動態(tài)的。該關(guān)鍵字只能在使用游標(biāo)作為數(shù)據(jù)類型時使用。關(guān)鍵字OUTPUT表示這是一個輸出參數(shù),可以把存儲過程執(zhí)行的結(jié)果信息返回應(yīng)用程序。
default用于指定參數(shù)的默認值。

  RECOMPILE選項表示重新編譯該存儲過程。該選項只是在需要的時候才使用,例如經(jīng)常需要改變數(shù)據(jù)庫模式時。

  ENCRYPTION選項用來加密創(chuàng)建存儲過程的文本,防止他人查看。

  選項FOR REPLICATION主要用于復(fù)制過程中。注意,該選項不能和選項RECOMPILE同時使用。

  AS是一個關(guān)鍵字,表示其后的內(nèi)容是存儲過程的語句。參數(shù)sql-statement[…n]表示在一個存儲過程中可以包含多個Transact-SQL語句。

  2、存儲過程的優(yōu)點

  在頻繁訪問數(shù)據(jù)庫的系統(tǒng)中,開發(fā)者都樂于使用存儲過程,這與存儲過程的下列優(yōu)點是分不開的。

  ⑴ 存儲過程可以與其他應(yīng)用程序共享應(yīng)用程序的邏輯,從而確保一致的數(shù)據(jù)訪問和操縱。

  ⑵ 存儲過程提供了一種安全機制。如果用戶被授予執(zhí)行存儲過程權(quán)限,那么即使該用戶沒有訪問在執(zhí)行該存儲過程中所參考的表或視圖的權(quán)限,該用戶也可以完全執(zhí)行該存儲過程而不受到影響。因此,可以創(chuàng)建存儲過程來完成所有的增加、刪除等操作,并且可以通過編程控制上述操作中對信息的訪問權(quán)限。

  ⑶ 存儲過程執(zhí)行速度快,便于提高系統(tǒng)的性能。由于存儲過程在第一次執(zhí)行之后,其執(zhí)行規(guī)劃就駐存在過程高速緩沖存儲區(qū)中,在以后的操作中,只需從過程高速緩沖存儲區(qū)中調(diào)用編譯好的二進制形式存儲過程來執(zhí)行。

  ⑷ 使用存儲過程可以減少網(wǎng)絡(luò)傳輸時間。如果有一千條Transact-SQL語句的命令,一條一條地通過網(wǎng)絡(luò)在客戶機和服務(wù)器之間傳送,那么這種傳輸所耗費的時間將很長。但是,如果把這一千條Transact-SQL語句的命令寫成一條較為復(fù)雜的存儲過程命令,這時在客戶機和服務(wù)器之間網(wǎng)絡(luò)傳輸所需的時間就會大大減少。

SQL Server 2000數(shù)據(jù)庫存儲過程的調(diào)用

  VB作為當(dāng)今應(yīng)用極為普遍的數(shù)據(jù)庫客戶端開發(fā)工具之一,對客戶端應(yīng)用程序調(diào)用服務(wù)器端存儲過程提供了強大的支持。特別是隨著VB6.0的推出,VB客戶端應(yīng)用程序可以方便地利用ADO的對象和集合來實現(xiàn)對數(shù)據(jù)庫存儲過程的調(diào)用。

  在筆者編寫的科技 檔案管理系統(tǒng) 中,就是采用VB作為開發(fā)平臺,采用SQL Server2000數(shù)據(jù)庫管理數(shù)據(jù),在這個科技檔案管理系統(tǒng)中有海量的數(shù)據(jù),并且對數(shù)據(jù)庫有頻繁的訪問,利用存儲過程訪問數(shù)據(jù)庫節(jié)省了執(zhí)行時間,大大提高了系統(tǒng)的性能。

  1、ADO簡介

  ADO控件(也稱為ADO Data控件)與VB固有的Data控件相似。使用ADO Data控件,可以利用Microsoft ActiveX Data Objects(ADO)快速建立數(shù)據(jù)庫綁定控件和數(shù)據(jù)提供者之間的連接。

  ADO Data控件可以實現(xiàn)以下功能:

  ·連接一個本地數(shù)據(jù)庫或遠程數(shù)據(jù)庫。

  ·打開一個指定的數(shù)據(jù)庫表,或定義一個基于結(jié)構(gòu)化查詢語言(SQL)的查詢、存儲過程或該數(shù)據(jù)庫中的表的視圖的記錄集合。

  ·將數(shù)據(jù)字段的數(shù)值傳遞給數(shù)據(jù)綁定控件,可以在這些控件中顯示或更改這些數(shù)值。

  ·添加新的記錄,或根據(jù)更改顯示在綁定的控件中的數(shù)據(jù)來更新一個數(shù)據(jù)庫。

  2、數(shù)據(jù)庫的連接

  數(shù)據(jù)庫的連接可通過ADO控件實現(xiàn),為此,必須在工程部件中選擇Microsoft ADO Data Control 6.0 (OLEDB),然后在窗體中添加ADO控件。利用ADO連接數(shù)據(jù)庫有兩種方法,具體如下。

  1) 通過ADODC屬性頁實現(xiàn)連接

  在ADODC屬性頁中選擇生成按鈕,進入數(shù)據(jù)鏈接屬性對話框;然后選擇該對話框中的連接屬性頁,選擇或輸入服務(wù)器名稱和數(shù)據(jù)庫等重要信息;最后測試連接,連接成功后,按確定按鈕,返回到屬性頁對話框,可獲得連接字符串,如下例:

Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Science_File;Data Source=Data_Server

  其中sa是用戶名;Science_File是數(shù)據(jù)庫名;Data_Server是數(shù)據(jù)庫名。

  通過下列語句,即可連接到指定的數(shù)據(jù)庫:

dim odbcstr as String, adocon As New ADODB.Connection
odbcstr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Science_File;Data Source=Data_Server"
adocon.Open odbcstr '連接到數(shù)據(jù)庫

  2) 直接使用連接語句實現(xiàn)

  連接數(shù)據(jù)庫的語句如下:

Dim ado as ADODC
ado.ConnectionString = "Provider=SQLOLEDB.1;Password=" & User_Pwd & ";Persist Security Info=True;User ID=" & User_Name & ";Initial Catalog=" & Data_Name & ";Data Source=" & server_name

  其中User-Pwd是用戶密碼;User_Name是用戶名;Data_Name是數(shù)據(jù)庫名;server_name是服務(wù)器名。

  連接數(shù)據(jù)庫成功后就可以調(diào)用存儲過程執(zhí)行操作。

  3、存儲過程的調(diào)用

  假設(shè)有一個名為doc_ProcName存儲過程,該存儲過程有一個輸入?yún)?shù),一個輸出參數(shù)。

  1) 直接傳遞參數(shù)調(diào)用存儲過程

  直接傳遞參數(shù)方法主要通過以下幾個步驟來實現(xiàn):

  (1) 通過ADODB的Connection對象打開與數(shù)據(jù)源的連接;

  (2) 通過ActiveConnection指定Command對象當(dāng)前所屬的Connection對象;

  (3) 通過CommandText屬性設(shè)置Command對象的源,即要調(diào)用的存儲過程;

  (4) 通過CommandType屬性確定Command對象的源類型,如果源類型為存儲過程CommandType即為adCmdStoredProc;

  (5) 通過Command對象的Parameters集合向所調(diào)用的存儲過程傳遞參數(shù),其中對象Parameters(0)為執(zhí)行存儲過程的返回值,返回值為0則執(zhí)行存儲過程成功;

  (6) 通過Eexecute方法執(zhí)行在 CommandText 屬性中指定的存儲過程。

  以存儲過程doc_ProcName為例,關(guān)鍵代碼如下:

Dim strS As String '定義一變量
Dim adoconn As New ADODB.Connection 'Connection 對象代表了打開與數(shù)據(jù)源的連接。
Dim adocomm As New ADODB.Command 'Command 對象定義了將對數(shù)據(jù)源執(zhí)行的指定命令。
Dim ReturnValue As Integer '調(diào)用存儲過程的返回值
adoconn.ConnectionString = Adodc1.ConnectionString 'Adodc1為窗體中的ADO控件,并已成功連接數(shù)據(jù)庫
adoconn.Open
Set adocomm.ActiveConnection = adoconn '指示指定的 Command對象當(dāng)前所屬的 Connection對象。
adocomm.CommandText = "doc_ProcName" '設(shè)置Command對象源。
adocomm.CommandType = adCmdStoredProc '通知提供者CommandText屬性有什么,它可能包括Command對象的源類型。設(shè)置這個屬性優(yōu)化了該命令的執(zhí)行。
adocomm.Parameters(1) = "1"
adocomm.Parameters(2) = "OutputParameters" 'OutputParameters可以為任意的字符串或數(shù)字
adocomm.Execute
ReturnValue = adocomm.Parameters(0) '存儲過程的返回值,返回0則成功執(zhí)行。
strS = adocomm.Parameters(2) '把存儲過程的輸出參數(shù)的值賦給變量strS

  2) 追加參數(shù)法調(diào)用存儲過程

  追加參數(shù)通過CreateParameter方法,用來指定屬性創(chuàng)建新的Parameter對象。具體語法如下:

Set parameter = command.CreateParameter (Name, Type, Direction, Size, Value)

  ·Name 可選,字符串,代表 Parameter 對象名稱。
  ·Type 可選,長整型值,指定 Parameter 對象數(shù)據(jù)類型。
  ·Direction 可選,長整型值,指定 Parameter 對象類型。
  ·Size 可選,長整型值,指定參數(shù)值最大長度(以字符或字節(jié)數(shù)為單位)。
  ·Value 可選,變體型,指定 Parameter 對象值。

  這種方法與上面一種方法的分別主要在于,追加參數(shù)的方法在向存儲過程傳遞參數(shù)時,這種方法首先通過CreateParameter方法為存儲過程創(chuàng)建參數(shù),然后通過Append方法將創(chuàng)建的參數(shù)追加到Parameters集合中去。

  仍然以存儲過程doc_ProcName的調(diào)用為例,關(guān)鍵代碼如下:

Dim mRst As ADODB.Recordset 'Recordset 對象表示的是來自基本表或命令執(zhí)行結(jié)果的記錄全集。
Dim prm As ADODB.Parameter 'Parameter 對象代表參數(shù)或與基于參數(shù)化查詢或存儲過程的Command 對象相關(guān)聯(lián)的參數(shù)。
adoconn.ConnectionString = Adodc1.ConnectionString
adoconn.Open
Set adocomm.ActiveConnection = adoconn
adocomm.CommandText = "doc_ProcName"
adocomm.CommandType = adCmdStoredProc
Set prm = adocomm.CreateParameter("parameter1", adTinyInt, adParamInput, , "1")
adocomm.Parameters.Append prm
Set prm = adocomm.CreateParameter("parameter2", adInteger, adParamOutput)
adocomm.Parameters.Append prm
Set mRst = adocomm.Execute
ReturnValue = adocomm.Parameters(0)

  以上代碼中未定義的變量以及未注釋的語句與前述相同。

結(jié)束語

  在應(yīng)用程序中調(diào)用服務(wù)器端存儲過程,不僅能顯著提高整個應(yīng)用的性能,而且能加強對數(shù)據(jù)庫數(shù)據(jù)的保護。VB為客戶端應(yīng)用程序調(diào)用存儲過程提供了一組方便而有效的方法。

VB實現(xiàn)SQL Server 2000存儲過程調(diào)用


更多文章、技術(shù)交流、商務(wù)合作、聯(lián)系博主

微信掃碼或搜索:z360901061

微信掃一掃加我為好友

QQ號聯(lián)系: 360901061

您的支持是博主寫作最大的動力,如果您喜歡我的文章,感覺我的文章對您有幫助,請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧,狠狠點擊下面給點支持吧,站長非常感激您!手機微信長按不能支付解決辦法:請將微信支付二維碼保存到相冊,切換到微信,然后點擊微信右上角掃一掃功能,選擇支付二維碼完成支付。

【本文對您有幫助就好】

您的支持是博主寫作最大的動力,如果您喜歡我的文章,感覺我的文章對您有幫助,請用微信掃描上面二維碼支持博主2元、5元、10元、自定義金額等您想捐的金額吧,站長會非常 感謝您的哦!!!

發(fā)表我的評論
最新評論 總共0條評論
主站蜘蛛池模板: 一级毛片免费 | 日本一区二区三区免费高清在线 | 一级毛片美国一级j毛片不卡 | 久久羞羞视频 | 亚洲图片综合区另类图片 | 久久精品免费全国观看国产 | 亚洲欧美视频一区二区三区 | 香蕉综合网 | 国产精品bdsm在线调教 | 福利在线观看 | 干一干操一操 | 激情五月婷婷久久 | 全高清特级毛片 | 伊人久久综合网站 | 奇米日日 | 国产91在线视频 | 亚洲黄色免费看 | 日本不卡专区 | 精品91精品91精品国产片 | 午夜视频www | 亚洲手机中文字幕 | 国内精品伊人久久久影院 | 亚洲欧美日韩伦中文 | 成人深夜网站 | 91成人午夜在线精品 | 久久精品国产99久久香蕉 | 夜夜夜夜猛噜噜噜噜噜 | 亚洲视频在线观看一区 | 国产在线99 | 人人爱天天做夜夜爽 | 国产精品二区页在线播放 | 国产欧美精品一区二区三区-老狼 | 亚洲一区二区三区不卡在线播放 | 91手机在线视频观看 | 99资源| 久久久久久久久久久9精品视频 | 九九视频精品全部免费播放 | 久久综合成人网 | 99热婷婷| 久久精品中文字幕第一页 | 国产凹凸在线一区二区色老头 |