vb程序設(shè)計(jì)與數(shù)據(jù)管理

VB程序設(shè)計(jì)與數(shù)據(jù)管理主要內(nèi)容了解使用VB訪問(wèn)Access數(shù)據(jù)庫(kù)的基本方法初步掌握通過(guò)ADO對(duì)象從數(shù)據(jù)庫(kù)中獲取數(shù)據(jù)的方法能夠使用合適的算法處理從數(shù)據(jù)庫(kù)中獲取的數(shù)據(jù)Windows7VisualBasic6.0Access2010軟硬件環(huán)境VB與數(shù)據(jù)庫(kù)連接方式

VisualBasic提供了比較豐富的數(shù)據(jù)訪問(wèn)技術(shù)，如ADO、DAO、RDO等，其中ADO(ActiveXDataObjects，ActiveX數(shù)據(jù)對(duì)象）是一種面向?qū)ο蟮木幊探涌冢靡詫?shí)現(xiàn)訪問(wèn)關(guān)系或非關(guān)系數(shù)據(jù)庫(kù)中的數(shù)據(jù)，ADO對(duì)象是OLEDB的接口，它能完成DAO、RDO所有的功能。ADO數(shù)據(jù)訪問(wèn)技術(shù)一、ADO數(shù)據(jù)模型二、Connection對(duì)象及應(yīng)用三、Command對(duì)象及應(yīng)用四、Recordset對(duì)象及應(yīng)用

一、ADO對(duì)象模型

ADO(ActiveXDataObjects)數(shù)據(jù)庫(kù)訪問(wèn)技術(shù)，采用OLEDB的數(shù)據(jù)訪問(wèn)模式。OLEDB和ODBC標(biāo)準(zhǔn)都是為了提供統(tǒng)一的訪問(wèn)數(shù)據(jù)接口，ODBC標(biāo)準(zhǔn)的對(duì)象是基于SQL的數(shù)據(jù)源，而OLEDB的對(duì)象則是范圍更為廣泛的任何數(shù)據(jù)存儲(chǔ)。應(yīng)用程序ADOOLEDBSQLServerAccessExcel……Email1.ADO對(duì)象模型組成ADO數(shù)據(jù)模型定義了一個(gè)可編程的對(duì)象集合，主要由三個(gè)對(duì)象成員Connection、Command、Recordset和幾個(gè)集合對(duì)象Errors、Parameters、Fields、Properties組成。Connection對(duì)象完成鏈接功能，通過(guò)鏈接可以從應(yīng)用程序中訪問(wèn)數(shù)據(jù)源。Command對(duì)象可以通過(guò)已建立的鏈接發(fā)出命令，對(duì)數(shù)據(jù)源進(jìn)行指定的操作。Recordset對(duì)象查詢命令的返回?cái)?shù)據(jù)以行（記錄）為單位存儲(chǔ)在本地，這些數(shù)據(jù)的集合稱(chēng)為記錄集。一條記錄包含一個(gè)或多個(gè)字段，模型中用Field體現(xiàn)Recordset對(duì)象的字段。錯(cuò)誤可能在應(yīng)用程序中隨時(shí)發(fā)生，通常是無(wú)法建立鏈接、執(zhí)行命令等引起的，模型中用Error對(duì)象體現(xiàn)錯(cuò)誤。ADO對(duì)象模型圖指定連接數(shù)據(jù)來(lái)源發(fā)出命令信息從數(shù)據(jù)源獲取所需數(shù)據(jù)查詢命令的返回的記錄集訪問(wèn)數(shù)據(jù)源時(shí)所返回的錯(cuò)誤信息與命令對(duì)象有關(guān)的參數(shù)記錄集中某個(gè)字段的信息每個(gè)ADO對(duì)象都有一組惟一的屬性，用來(lái)描述或控制對(duì)象（1）初始化COM庫(kù)，引入ADO庫(kù)定義文件；（2）用Connection對(duì)象連接數(shù)據(jù)庫(kù)；（3）利用建立好的連接，通過(guò)Connection、Command對(duì)象執(zhí)行SQL命令，或利用Recordset對(duì)象取得結(jié)果記錄集進(jìn)行查詢、處理；（4）使用完畢后關(guān)閉連接釋放對(duì)象。2.ADO對(duì)象基本操作流程（1）引入ADO庫(kù)定義文件在VB程序中使用ADO對(duì)象，必須先為當(dāng)前工程引用ADO的對(duì)象庫(kù)。方法：執(zhí)行“工程”菜單中“引用”命令，彈出“引用”對(duì)話框，如圖所示。單擊“確定”選擇該選項(xiàng)（不同環(huán)境下ADO的版本號(hào)可能不同）二、Connection對(duì)象Connection用來(lái)創(chuàng)建到數(shù)據(jù)庫(kù)建立連接。在建立連接時(shí)，最主要的是設(shè)置連接字符串，用來(lái)指定連接數(shù)據(jù)庫(kù)所用的驅(qū)動(dòng)程序、數(shù)據(jù)源名稱(chēng)、用戶名和密碼等。1.Connection對(duì)象的常用屬性：（1）ConnectionString屬性ConnectionString連接字符串，用于建立連接數(shù)據(jù)源的信息。

例.創(chuàng)建到數(shù)據(jù)庫(kù)song.accdb的鏈接。DimcnnAsNewADODB.Connection＇New用于創(chuàng)建新對(duì)象cnn.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;DataSource="+App.Path+"\song.accdb"Provider定義數(shù)據(jù)源提供者，使用Microsoft.ACE.OLEDB.12.0可以訪問(wèn)Access2010數(shù)據(jù)；DataSource定義數(shù)據(jù)庫(kù)的文件名，需指定絕對(duì)路徑，App.Path返回當(dāng)前應(yīng)用程序所在的絕對(duì)路徑。常

量說(shuō)

明adStateClosed對(duì)象已關(guān)閉adStateOpen對(duì)象已打開(kāi)adStateConnecting對(duì)象正在連接adStateExecuting對(duì)象正在執(zhí)行命令adStateFetching正在檢索對(duì)象的行（2）State屬性，返回Connection對(duì)象的狀態(tài)，State屬性的值如下表所示。例：判斷鏈接的狀態(tài)。cnn.open＇打開(kāi)到數(shù)據(jù)庫(kù)的鏈接Ifcnn.State=adStateOpenThenMsgBox"鏈接已打開(kāi)"cnn.Close＇關(guān)閉到數(shù)據(jù)庫(kù)的鏈接Ifcnn.State=adStateColsedThenMsgBox"鏈接已關(guān)閉"2.Connection對(duì)象的常用方法（1）Open方法，打開(kāi)到數(shù)據(jù)源的連接。語(yǔ)法結(jié)構(gòu)如下:Connection對(duì)象.OpenConnectionString,UserID,PassWord,Options其中：Connection對(duì)象是已定義的Connection對(duì)象的實(shí)例；ConnectionString為可選項(xiàng),是鏈接字符串；UserID為可選項(xiàng),是訪問(wèn)數(shù)據(jù)庫(kù)的用戶名，PassWord為可選項(xiàng),是密碼；Options為可選項(xiàng),是鏈接選項(xiàng)。如果設(shè)置了Connection對(duì)象的ConnectionString屬性，Open方法就不需要設(shè)置參數(shù)了。（2）Close方法，關(guān)閉到數(shù)據(jù)源的連接。（3）Execute方法，在連接上執(zhí)行一個(gè)SQL語(yǔ)句。（4）Cancel方法，取消Open或Execute方法的調(diào)用。

‘創(chuàng)建Connection對(duì)象connDimconnAsNewADODB.Connection‘鏈接數(shù)據(jù)庫(kù)路徑

conn.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;DataSource="+App.Path+"\song.accdb"‘打開(kāi)到數(shù)據(jù)庫(kù)的鏈接

conn.Open'判斷鏈接的狀態(tài)，如果conn處于打開(kāi)狀態(tài)，則顯示“鏈接已成功打開(kāi)”

Ifconn.State=adStateOpenThenMsgBox"鏈接已成功打開(kāi)"

‘關(guān)閉到數(shù)據(jù)庫(kù)的鏈接

conn.Close

'判斷鏈接的狀態(tài)，如果conn處于關(guān)閉狀態(tài)，則顯示“鏈接已關(guān)閉”

Ifconn.State=adstatecolsedThenMsgBox"鏈接已成功關(guān)閉"'釋放對(duì)象

Setconn=Nothing二、Command對(duì)象

定義了將對(duì)數(shù)據(jù)源執(zhí)行的命令，如創(chuàng)建、添加、取回、刪除或更新記錄等命令。使用命令對(duì)象來(lái)查詢數(shù)據(jù)庫(kù)，查詢結(jié)果以數(shù)據(jù)集對(duì)象（Recordset）形式返回。命令對(duì)象在操縱數(shù)據(jù)庫(kù)前需要與一個(gè)已經(jīng)打開(kāi)的連接對(duì)象（Connection）建立關(guān)聯(lián)。1.Command對(duì)象的常用屬性（1）ActiveConnection屬性，設(shè)置到數(shù)據(jù)源的連接信息。通過(guò)設(shè)置該屬性使打開(kāi)的鏈接與Command對(duì)象關(guān)聯(lián)。（2）CommandText屬性，定義命令（例如，SQL語(yǔ)句）的可執(zhí)行文本。2.Command對(duì)象的常用方法（1）Execute方法，執(zhí)行CommandText屬性指定的查詢、SQL語(yǔ)句或存儲(chǔ)過(guò)程。（2）Cancel方法，取消Execute方法的調(diào)用例：Command對(duì)象應(yīng)用示例Command1按鈕“注冊(cè)”按鈕事件代碼PrivateSubCommand1_Click()DimconnAsNewADODB.ConnectionDimcmdAsNewADODB.CommandDimstrSQLAsStringconn.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;DATASource="&App.Path&"\users.accdb"strSQL="INSERTINTOusers(username,userpsd)VALUES('" &Text1&"','"&Text2&"')"cmd.CommandText=strSQLconn.OpenSetcmd.ActiveConnection=conncmd.Execute

:conn.Close:Setconn=NothingEndSub四、Recordset對(duì)象Recordset對(duì)象表示從數(shù)據(jù)庫(kù)返回的一系列記錄的集合。一個(gè)Recordset對(duì)象由記錄和列（字段）組成。通過(guò)Recordset可以對(duì)記錄及組成記錄的列進(jìn)行各種操作。1.Recordset對(duì)象的常用屬性（1）ActiveConnection屬性，設(shè)置或返回Recordset對(duì)象所屬的Connection對(duì)象。（2）AbsolutePosition屬性，指定Recordset對(duì)象中當(dāng)前記錄的序號(hào)位置。（3）BOF屬性，若當(dāng)前的記錄位置在第一條記錄之前，則返回true，否則返回fasle。

EOF屬性，若當(dāng)前記錄的位置在最后的記錄之后，則返回true，否則返回fasle。（4）RecordCount屬性，返回Recordset對(duì)象中記錄的當(dāng)前數(shù)目。（5）CursorType屬性，設(shè)置或返回一個(gè)Recordset對(duì)象的游標(biāo)類(lèi)型。常

量值說(shuō)

明AdOpenForwardOnly0默認(rèn)值，打開(kāi)僅向前類(lèi)型游標(biāo)，只能用MoveNext讀取，打開(kāi)的同時(shí)建立的數(shù)據(jù)庫(kù)的備份,不能即時(shí)體現(xiàn)數(shù)據(jù)庫(kù)記錄狀態(tài),比如記錄的編輯和增刪。AdOpenKeyset1打開(kāi)鍵集類(lèi)型游標(biāo)，可上下滾動(dòng)游標(biāo)，給打開(kāi)的記錄創(chuàng)建了一個(gè)關(guān)鍵字列表,類(lèi)似記錄集的描述,訪問(wèn)的時(shí)候才去取得數(shù)據(jù)值,就是說(shuō)可以即時(shí)看到修改信息,但是不能即時(shí)得到數(shù)據(jù)是否刪除的信息,因?yàn)檫@個(gè)關(guān)鍵字列表是事先初始化好的。程序中常用此類(lèi)型。AdOpenDynamic2打開(kāi)動(dòng)態(tài)類(lèi)型游標(biāo)，完全可滾動(dòng)游標(biāo)，可得到數(shù)據(jù)的最新?tīng)顟B(tài)，但執(zhí)行效率也會(huì)有所降低。AdOpenStatic3打開(kāi)靜態(tài)類(lèi)型游標(biāo)，完全可滾動(dòng)游標(biāo)，它先將數(shù)據(jù)庫(kù)備份文件之后進(jìn)行操作，可以斷開(kāi)數(shù)據(jù)庫(kù)連接后繼續(xù)使用。（6）LockType屬性，指定打開(kāi)Recordset對(duì)象使用的鎖定類(lèi)型，其值如下表所示。常

量值說(shuō)

明AdLockReadOnly1默認(rèn)值，只讀鎖AdLockPessimistic2悲觀鎖，操作者打開(kāi)之后立即上鎖，直到修改完成或者放棄修改為止，此時(shí)其他人無(wú)法編輯AdLockOptimistic3樂(lè)觀鎖，當(dāng)記錄將要被更新的時(shí)候才開(kāi)始上鎖，但是不能保證在提交修改之前是否有人改動(dòng)過(guò)AdLockBatchOptimistic4批量樂(lè)觀鎖（7）Sort屬性，設(shè)置排序字段。（8）Filter屬性，設(shè)置Recordset對(duì)象中的篩選條件。2.Recordset對(duì)象常用方法（1）AddNew方法，創(chuàng)建和初始化新記錄，其語(yǔ)法為:

Recordset對(duì)象.AddNewFieldList,Values

AddNew方法為記錄集添加新記錄后,需使用UpDate將所添加的數(shù)據(jù)存儲(chǔ)到數(shù)據(jù)庫(kù)中。（2）Delete方法，刪除當(dāng)前記錄或記錄組。（3）Move方法，移動(dòng)Recordset對(duì)象中當(dāng)前記錄的位置。（4）MoveFirst、MoveLast、MoveNext和MovePrevious方法，移動(dòng)到指定Recordset對(duì)象中的第一條、最后一條、下一條或上一條記錄，使該記錄成為當(dāng)前記錄。（5）Requery方法，重新執(zhí)行對(duì)象所基于的查詢，更新Recordset對(duì)象中的數(shù)據(jù)。（6）Update方法，保存對(duì)Recordset對(duì)象當(dāng)前記錄所做修改。CancelUpdate方法，可取消對(duì)當(dāng)前記錄修改。（7）Open方法，打開(kāi)代表基本表、查詢的結(jié)果或保存的Recordset中記錄的游標(biāo)。其語(yǔ)法如下：Recordset對(duì)象.OpenSource,ActiveConnection,CursorType,LockType,Options其中，Source為可選項(xiàng),是記錄源，可以是SQL語(yǔ)句、表名、存儲(chǔ)過(guò)程等；ActiveConnection可選項(xiàng),指定相應(yīng)的Connection對(duì)象，可以是已打開(kāi)的Connection對(duì)象的變量名或者是包含ConnectionString參數(shù)的字符串；CursorType可選項(xiàng),指定打開(kāi)Recordset對(duì)象使用的指針類(lèi)型。Recordset對(duì)象應(yīng)用示例

'創(chuàng)建Connection對(duì)象connDimconnAsNewADODB.Connection

'創(chuàng)建Recordset對(duì)象rsDimrsAsNewADODB.RecordsetDimstrSQLAsString,tempAsStringDimmAsInteger,nAsInteger'鏈接數(shù)據(jù)庫(kù)路徑

conn.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;DataSource="+App.Path+"\song.accdb"'打開(kāi)到數(shù)據(jù)庫(kù)的鏈接

conn.Open'設(shè)置查詢的SQL語(yǔ)句

strSQL="SELECT*FROMsong"'設(shè)置rs的ActiveConnection屬性，指定與其關(guān)聯(lián)的數(shù)據(jù)庫(kù)鏈接

Setrs.ActiveConnection=conn'設(shè)置游標(biāo)類(lèi)型

rs.CursorType=adOpenStatic'設(shè)置鎖定類(lèi)型

rs.LockType=adLockOptimistic'打開(kāi)記錄集，將從表song中讀取的結(jié)果集保存到記錄集rs中

rs.OpenstrSQLList1.ClearList1.AddItem"班級(jí)評(píng)委1評(píng)委2評(píng)委3評(píng)委4評(píng)委5"Form=1Tors.RecordCounttemp=""Forn=0Tors.Fields.Count-1temp=temp&Format(rs.Fields(n),"0.0")&Space(5)NextnList1.AddItemtemprs.MoveNextNextmrs.CloseSetrs=Nothing輸出所有記錄'rs.RecordCount是查詢結(jié)果的記錄總條數(shù)Form=1Tors.RecordCount

sum=0Forn=1Tors.Fields.Count-1score(m,n)=rs.Fields(n)sum=sum+score(m,n)Nextn'計(jì)算平均得分

score(m,6)=Int(sum/5*100+0.5)/100'輸出各班得分和平均得分

temp=rs.Fields(0)Forn=1To6temp=temp&Space(3)&Format(score(m,n),"0.00")NextnList1.AddItemtemp'向后移一條記錄

rs.MoveNextNextm

統(tǒng)計(jì)平均得分單表查詢實(shí)例“第一條”按鈕代碼PrivateSubCommand1_Click()DimmAsInteger'移到第一條

rs.MoveFirst

Command1.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=TrueCommand4.Enabled=TrueForm=0To5Text1(m)=rs.Fields(m)NextmEndSub“前一條”按鈕代碼PrivateSubCommand2_Click()'向前移一條

rs.MovePrevious

Command3.Enabled=TrueCommand4.Enabled=TrueIfrs.AbsolutePosition=1ThenCommand1.Enabled=FalseCommand2.Enabled=FalseEndIf

Form=0To5Text1(m)=rs.Fields(m)NextmEndSub“后一條”按鈕代碼PrivateSubCommand3_Click()'向后移一條

rs.MoveNext

Command1.Enabled=TrueCommand2.Enabled=TrueIfrs.EOFThenCommand3.Enabled=FalseCommand4.Enabled=Falsers.MoveLastElseForm=0To5Text1(m)=rs.Fields(m)NextmEndIfEndSub“最后一條”按鈕代碼PrivateSubCommand4_Click()'移到最后一條

rs.MoveLastCommand4.Enabled=FalseCommand3.Enabled=FalseCommand1.Enabled=TrueCommand2.Enabled=TrueForm=0To5Text1(m)=rs.Fields(m)NextmEndSubSQL語(yǔ)言SQL語(yǔ)言SQL語(yǔ)言的原名：結(jié)構(gòu)化查詢語(yǔ)言(StructuredQueryLanguage)，是對(duì)數(shù)據(jù)庫(kù)操作的命令集合。通俗一點(diǎn)來(lái)說(shuō)：SQL語(yǔ)言就是我們與數(shù)據(jù)庫(kù)進(jìn)行交流的一種語(yǔ)言。SQL功能：可以面向數(shù)據(jù)庫(kù)執(zhí)行查詢、從數(shù)據(jù)庫(kù)取回?cái)?shù)據(jù)、可在數(shù)據(jù)庫(kù)中插入新的紀(jì)錄、可更新數(shù)據(jù)庫(kù)中的數(shù)據(jù)、可從數(shù)據(jù)庫(kù)刪除記錄、可創(chuàng)建新數(shù)據(jù)庫(kù)、可在數(shù)據(jù)庫(kù)中創(chuàng)建新表等。SQL常用語(yǔ)句SELECT--從數(shù)據(jù)庫(kù)表中獲取數(shù)據(jù)INSERTINTO--向數(shù)據(jù)庫(kù)表中插入數(shù)據(jù)UPDATE--更新數(shù)據(jù)庫(kù)表中的數(shù)據(jù)DELETE--從數(shù)據(jù)庫(kù)表中刪除數(shù)據(jù)SELECT語(yǔ)句的基礎(chǔ)用法SELECT[DISTINCT]目標(biāo)列表達(dá)式1[AS別名][,目標(biāo)列表達(dá)式2][AS別名]，…FROM表名1[,表名2]…[WHERE條件表達(dá)式][GROUPBY列名1[HAVING組條件表達(dá)式]][ORDERBY列名2[ASC|DESC]];SQL語(yǔ)言例子例如用賬號(hào)“C01”和密碼“123”來(lái)登錄某購(gòu)物系統(tǒng)，整個(gè)驗(yàn)證過(guò)程是怎樣的？假設(shè)數(shù)據(jù)庫(kù)中“用戶表”的結(jié)構(gòu)如下：賬號(hào)是username密碼是userpwdSQL語(yǔ)言中的Select語(yǔ)句一般寫(xiě)法：Select字段1,字段2……from表where條件選出什么從哪里有什么條件問(wèn)題：選出密碼從用戶表?xiàng)l件是C01賬戶Selectuserpwdfrom用戶表whereusername=‘C01’通過(guò)這句話，從數(shù)據(jù)庫(kù)尋找用戶名為“C01”的密碼，如果找到可以進(jìn)行密碼驗(yàn)證。SELECT查詢過(guò)程查詢杭州到南京的空調(diào)特快數(shù)據(jù)庫(kù)服務(wù)器發(fā)送指令返回結(jié)果查詢將產(chǎn)生一個(gè)虛擬表，稱(chēng)為“記錄集”，其中數(shù)據(jù)是從數(shù)據(jù)庫(kù)現(xiàn)有表中過(guò)濾出來(lái)的。車(chē)次出發(fā)站到達(dá)站出發(fā)時(shí)間到達(dá)時(shí)間T282杭州南京17:1923:20T7786杭州南京10:0816:19T112杭州南京9:4515:41車(chē)次出發(fā)站到達(dá)站出發(fā)時(shí)間到達(dá)時(shí)間T282杭州南京17:1923:20K526杭州東上海南2:013:54K1124天津廣州東10:3920:57T7786杭州南京10:0816:19T57北京西重慶北11:486:31T112杭州南京9:4515:41T74長(zhǎng)春天津10:5720:22T164上海拉薩19:3620:15SELECT車(chē)次,出發(fā)站,到達(dá)站,出發(fā)時(shí)間,到達(dá)時(shí)間FROMtickets.accdbWHERE出發(fā)站=‘杭州’AND到達(dá)站=‘南京’AND車(chē)次類(lèi)型=‘特快’;Access中SQL查詢語(yǔ)句的執(zhí)行環(huán)境5.單擊“運(yùn)行”按鈕，執(zhí)行SQL語(yǔ)句4.輸入SQL語(yǔ)句2.單擊“關(guān)閉”按鈕1.打開(kāi)一個(gè)Access數(shù)據(jù)庫(kù)文件，單擊“查詢?cè)O(shè)計(jì)”按鈕3.單擊“SQL視圖”（一）INSERT語(yǔ)句的功能及用法（二）UPDATE語(yǔ)