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

VB程序設(shè)計(jì)與數(shù)據(jù)管理樂(lè)清中學(xué)李曙強(qiáng)3863365@限定性選修模塊增加算法在數(shù)據(jù)管理中的應(yīng)用必修中的數(shù)據(jù)庫(kù)相關(guān)知識(shí)枚舉、排序、查找的綜合運(yùn)用VB訪問(wèn)數(shù)據(jù)庫(kù)，建立數(shù)據(jù)庫(kù)連接讀取數(shù)據(jù)庫(kù)用數(shù)組存儲(chǔ)部分?jǐn)?shù)據(jù)查找、排序等算法，對(duì)數(shù)據(jù)庫(kù)中的數(shù)據(jù)進(jìn)行簡(jiǎn)單統(tǒng)計(jì)exampleDimconnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimnAsIntegerDima(200)AsSinglePrivateSubCommand1_Click()conn.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;DataSource="&App.Path&"\rizhi.accdb"conn.OpenSetrs.ActiveConnection=connrs.Open"select*fromgnipc"n=0DoWhileNotrs.EOFn=n+1a(n)=rs.Fields(“登錄次數(shù)")rs.MoveNextLooprs.Closeconn.CloseEndSubWindows732位VisualBasic6.0SP6(完全安裝版）Access2010軟硬件環(huán)境Access數(shù)據(jù)庫(kù)文件版本轉(zhuǎn)換Access2000,2003*.mdbAccess2010*.accdb在access2010中從mdb轉(zhuǎn)為accdb格式目錄二、ADO數(shù)據(jù)訪問(wèn)技術(shù)三、ADO對(duì)象使用實(shí)例一、SQL查詢基礎(chǔ)SQL語(yǔ)言及其功能、特點(diǎn)SQL：StructuredQueryLanguage結(jié)構(gòu)化查詢語(yǔ)言，是對(duì)數(shù)據(jù)操作的命令集。特點(diǎn)：由于所有主要的關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)都支持SQL語(yǔ)言，所有用SQL編寫(xiě)的程序都是可以移植的。（Access，SqlServer等數(shù)據(jù)庫(kù)）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)建新表等。其功能可歸結(jié)為查詢、定義、操縱和控制等幾個(gè)方面：SQL功能常用語(yǔ)句數(shù)據(jù)查詢SELECT數(shù)據(jù)定義CREATE,DROP數(shù)據(jù)操縱INSERT,DELETE,UPDATE數(shù)據(jù)控制GRANT,REVOKESQL和SQLSERVER的區(qū)別SQL（structuredquerylanguage)結(jié)構(gòu)化查詢語(yǔ)言。它是一種標(biāo)準(zhǔn)，不是一種軟件。SQLServer是數(shù)據(jù)庫(kù)管理系統(tǒng)的一種它是一種軟件，這種軟件在遵循SQL這種標(biāo)準(zhǔn)，很多數(shù)據(jù)庫(kù)管理軟件及開(kāi)發(fā)工具都支持SQL這種標(biāo)準(zhǔn)。Access中Sql查詢可在Access中利用查詢中的Sql視圖編寫(xiě)查詢語(yǔ)句，練習(xí)、校對(duì)Sql查詢語(yǔ)句SELECT語(yǔ)句的用法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]];功能從數(shù)據(jù)庫(kù)中查詢數(shù)據(jù)，并以表格形式返回查詢結(jié)果。語(yǔ)法單表查詢1查詢loginCount表全部記錄： SELECT*FROMloginCount查詢loginCount表部分字段：SELECT帳號(hào)asqq,登錄時(shí)間asqqtimeFROMloginCount單表查詢2where使用查詢loginCount表中登錄時(shí)間超過(guò)650的記錄SELECT帳號(hào)asqq,登錄時(shí)間asqqtimeFROMloginCountwhere登錄時(shí)間>650查詢loginCount表中qq號(hào)碼為333的記錄SELECTloginCount.帳號(hào)ASqq,loginCount.登錄時(shí)間ASqqtimeFROMloginCountWHERE帳號(hào)=‘333’VB中Sql語(yǔ)句書(shū)寫(xiě)注意點(diǎn)Sqlstr=“select*fromt_userwhereu_name=‘張三’”“字符串1”&“字符串2”&“字符串3”不建議用+號(hào)連接字符串Username=“張三”Sqlstr=“select*fromt_userwhereu_name=‘”&username&“’”1.書(shū)寫(xiě)最熟悉的sql語(yǔ)句2.找斷點(diǎn)，加雙引號(hào)，&&斷開(kāi)3.加入vb中表達(dá)式4.Msgobxdebug.pringt等

輸出sqlstr進(jìn)行檢查

把下面的語(yǔ)句題換成變量的寫(xiě)法：

strsql=“Insertintomytable(username)values(‘張紅’)”

第一步：先把張紅抹去，在原位置加兩個(gè)引號(hào)

strsql=“Insertintomytable(username)values(‘”“’)”

第二步：在中間添加兩個(gè)連接符&

strsql=“Insertintomytable(username)values(‘”&&“’)”

第三步：把變量寫(xiě)在兩個(gè)連接符之間

strsql=“Insertintomytable(username)values(‘”&thename&“’)”多表查詢利用where一個(gè)數(shù)據(jù)庫(kù)中的多個(gè)數(shù)據(jù)表之間一般都存在某種內(nèi)在聯(lián)系，它們共同提供有用信息。若一個(gè)查詢同時(shí)涉及兩個(gè)及以上的表，稱之為多表查詢或鏈接查詢。兩張表間有一個(gè)相同的字段，才能進(jìn)行有效的多表查詢。查詢時(shí)列名前加表名或表別名前輟（as），如果字段在兩個(gè)表中是唯一的可以不加。刪除數(shù)據(jù)--DELETE語(yǔ)句DELETEFROM表名[WHERE條件]功能DELETE語(yǔ)句的功能為刪除表中指定的記錄。語(yǔ)法DELETE語(yǔ)句對(duì)滿足WHERE子句中條件的所有記錄執(zhí)行刪除操作。省略WHERE子句，則刪除表中全部記錄，但表結(jié)構(gòu)仍在，即DELETE語(yǔ)句刪除的是表中的數(shù)據(jù)。應(yīng)用DELETE語(yǔ)句刪除部分記錄【例】刪除用戶名為“l(fā)ee”的所有記錄。DELETEFROMTravelPlanWHEREUserName="lee";分析lee所在兩條記錄均被刪除，記錄數(shù)由4變?yōu)?。數(shù)據(jù)更新--UPDATE語(yǔ)句UPDATE表名SET字段1=表達(dá)式[，字段2=表達(dá)式2，……，字段N=表達(dá)式N][WHERE條件]功能UPDATE語(yǔ)句的功能是更新表中指定記錄中指定字段的值。語(yǔ)法UPDATE語(yǔ)句對(duì)指定表中滿足WHERE子句中條件的記錄進(jìn)行修改，具體修改內(nèi)容在SET子句中設(shè)定。表達(dá)式的值必須與其對(duì)應(yīng)字段的數(shù)據(jù)類型吻合。UPDATE的操作是不可逆的，即做出的修改是無(wú)法撤消的。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)模式。向應(yīng)用程序提供一個(gè)統(tǒng)一的數(shù)據(jù)訪問(wèn)方法，不僅可以訪問(wèn)Access，SQLServer數(shù)據(jù)庫(kù)，還可以訪問(wèn)Excel，文本文件等基于OLEDB之上的對(duì)象模型，半酣可以被OLEDB標(biāo)準(zhǔn)接口描述的數(shù)據(jù)類型。（優(yōu)點(diǎn)：應(yīng)用程序移植）1.ADO對(duì)象模型組成三個(gè)對(duì)象成員：

ConnectionCommandRecordset幾個(gè)集合對(duì)象：

Errors

Parameters

Fields

Properties指定連接數(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ì)象2.ADO對(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ì)象。3.引入ADO庫(kù)定義文件在VisualBasic程序中使用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ù)建立連接。1.常用屬性ConnectionString屬性，指定用于建立連接數(shù)據(jù)源的信息。

【例】創(chuàng)建到數(shù)據(jù)庫(kù)rizhi.accdb的鏈接。

DimconnAsADODB.Connection

Setconn=newADODB.Connectionconn.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;DataSource="+App.Path+"\rizhi.accdb“

2行代碼等同于DimconnAsnewADODB.ConnectionAccess不同版本連接語(yǔ)句Access2003：conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\rizhi.mdb"Access2010：

conn.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;DataSource="+App.Path+"\rizhi.accdb”Mode屬性Mode屬性，指定Connection對(duì)象修改數(shù)據(jù)的權(quán)限。其值如下：常量 說(shuō)明adModeUnknown默認(rèn)值。表明權(quán)限尚未設(shè)置或無(wú)法確定adModeRead 只讀權(quán)限adModeWrite 只寫(xiě)權(quán)限adModeReadWrite 讀寫(xiě)權(quán)限adModeShareDenyRead 禁止其他用戶使用讀權(quán)限打開(kāi)連接adModeShareDenyWrite 禁止其他用戶使用寫(xiě)權(quán)限打開(kāi)連接adModeShareExclusive 禁止其他用戶打開(kāi)連接adModeShareDenyNone 允許其他人以任何權(quán)限打開(kāi)連接State屬性State屬性，返回Connection對(duì)象的狀態(tài)。其值如下：常量 說(shuō)明adStateClosed 對(duì)象已關(guān)閉adStateOpen

對(duì)象已打開(kāi)adStateConnecting

對(duì)象正在連接adStateExecuting

對(duì)象正在執(zhí)行命令adStateFetching

正在檢索對(duì)象的行2.Connection對(duì)象的常用方法Open方法，打開(kāi)到數(shù)據(jù)源的連接。語(yǔ)法如下:Connection對(duì)象.OpenConnectionString,UserID,PassWord,Options

以下參數(shù)均為可選項(xiàng)ConnectionString

：包含連接信息的字符串。UserID

：包含建立連接時(shí)所使用的用戶名稱。Password

：字符串，包含建立連接時(shí)所用密碼。Options

：設(shè)置為adConnectAsync，則異步打開(kāi)連接；

設(shè)置為ConnectComplete當(dāng)連接可用時(shí)將調(diào)用該事件。Close方法，關(guān)閉到數(shù)據(jù)源的連接。Execute方法，在連接上執(zhí)行命令。Cancel方法，取消Open或Execute方法的調(diào)用如果設(shè)置了Connection對(duì)象的ConnectionString等屬性，Open方法就不需要設(shè)置參數(shù)了3.Connection對(duì)象應(yīng)用示例【例】使用Connection對(duì)象鏈接到數(shù)據(jù)庫(kù)rizhi.accdb。PrivateSubForm_Load()DimconnAsNewADODB.Connectionconn.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;

DataSource="+App.Path+"\rizhi.accdb"

conn.OpenIfconn.State=adStateOpenThenMsgBox"鏈接已打開(kāi)"conn.CloseIfconn.State=adstatecolsedThenMsgBox"鏈接已關(guān)閉"EndSub創(chuàng)建Connection對(duì)象conn鏈接數(shù)據(jù)庫(kù)路徑打開(kāi)到數(shù)據(jù)庫(kù)的鏈接判斷鏈接的狀態(tài)關(guān)閉到數(shù)據(jù)庫(kù)的鏈接判斷鏈接的狀態(tài)四、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。1.Recordset對(duì)象的常用屬性（4）RecordCount屬性，返回Recordset對(duì)象中記錄的當(dāng)前數(shù)目。（5）CursorType屬性，設(shè)置或返回一個(gè)Recordset對(duì)象的游標(biāo)類型。常

量值說(shuō)

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

量值說(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,ValuesAddNew方法為記錄集添加新記錄后,需使用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)前記錄修改。字段列表FieldList中字段對(duì)應(yīng)的值2.Recordset對(duì)象常用方法Open方法，打開(kāi)代表基本表、查詢的結(jié)果或保存的Recordset中記錄的游標(biāo)。其語(yǔ)法如下：Recordset對(duì)象.OpenSource,ActiveConnection,CursorType,LockType,Options

以下均為可選項(xiàng)

Source為記錄源，可以是SQL語(yǔ)句、表名等；

ActiveConnection指定相應(yīng)的Connection對(duì)象；

CursorType指定打開(kāi)Recordset對(duì)象使用的指針類型。3.Recordset對(duì)象應(yīng)用示例【例】

DimconnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimstrSQLAsStringconn.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0; DATASource="&App.Path&"\users1.accdb"strSQL="SELECT*FROMusers"conn.OpenSetrs.ActiveConnection=connrs.LockType=adLockOptimisticrs.CursorType=AdOpenKeysetrs.OpenstrSQL增加記錄rs.AddNewrs.Fields(1)=Text1rs.Fields(2)=Text2rs.Updateconn.CloseSetconn

Nothing數(shù)據(jù)有效性檢查前一條、后一條按鈕代碼PrivateSubCommand2_Click()rs.MovePreviousCommand3.Enabled=TrueIfrs.AbsolutePosition=1ThenCommand1.Enabled=FalseCommand2.Enabled=FalseEndIfText1=rs.Fields(0)……Text6=rs.Fields(5)EndSubPrivateSubCommand3_Click()rs.MoveNextCommand1.Enabled=TrueCommand2.Enabled=TrueIfrs.EOFThenCommand3.Enabled=Falsers.MoveLastExitSubEndIfText1=rs.Fields(0)……Text6=rs.Fields(5)EndSub前一條后一條ADO中command對(duì)象ADODB對(duì)象模型Command對(duì)象提交給數(shù)據(jù)源的命令，傳遞SQL命令Parameter對(duì)象用來(lái)向SQL語(yǔ)句傳遞參數(shù)Property對(duì)象指明一個(gè)ADO對(duì)象的屬性Command對(duì)象簡(jiǎn)介使用Command對(duì)象查詢數(shù)據(jù)庫(kù)并返回Recordset對(duì)象中的記錄，以便執(zhí)行大量操作或處理數(shù)據(jù)庫(kù)結(jié)構(gòu)

Command對(duì)象用于執(zhí)行數(shù)據(jù)庫(kù)操作命令，使用Command對(duì)象的ActiveConection屬性同樣可以創(chuàng)建一個(gè)連接。例如"Activeconection"屬性被設(shè)置為一個(gè)Connection對(duì)象的引用，那么Command對(duì)象就建立一個(gè)新的連接，并使用這個(gè)新連接。用Command對(duì)象執(zhí)行一個(gè)查詢子串，可以返回一個(gè)記錄集，也可以返回多個(gè)記錄集，甚至可以不返回記錄集。Command對(duì)象與RecordSet對(duì)象區(qū)別Command對(duì)象：主要是向SQL語(yǔ)句、StoredProcude傳遞參數(shù)，依靠SQL的強(qiáng)大功能來(lái)完成數(shù)據(jù)庫(kù)的操作；Command的性能更優(yōu)越一些，特別是在大量記錄添加情況下。RecordSet對(duì)象：封裝了數(shù)據(jù)對(duì)象、并提供了一系列的方法和屬性來(lái)簡(jiǎn)化數(shù)據(jù)庫(kù)的編程。復(fù)雜數(shù)據(jù)處理，memo備注字段,

time()PKCommand對(duì)象3個(gè)重要屬性Connection屬性設(shè)置Command所使用的Connection例:Setcmd.ActiveConnection=connCommandText屬性設(shè)置對(duì)數(shù)據(jù)源執(zhí)行SQL語(yǔ)句或存儲(chǔ)過(guò)程。例:cmd.CommandText="deletefromyonghu

WHERE帳號(hào)='xxxxxx'“AdCmdText時(shí)，表示包含命令文本，AdCmdTable時(shí)，表示包含一個(gè)表的名字，AdCmdStoredProc時(shí)，表示包含存儲(chǔ)過(guò)程名。CommandType屬性設(shè)置指定的CommandText類型例：cmd.CommandType=adCmdText查詢字串是一個(gè)SQL語(yǔ)句:"adCmdText";查詢字串是一個(gè)存儲(chǔ)過(guò)程，"adCmdStoreProc"；查詢字串是一個(gè)表名，"adCmdTable"；Command對(duì)象操作實(shí)例DimconnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimcmdAsNewADODB.Commandconn