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

1、限定性選修模塊增加算法在數(shù)據(jù)管理中的應(yīng)用必修中的數(shù)據(jù)庫(kù)相關(guān)知識(shí)枚舉、排序、查找的綜合運(yùn)用VB訪問數(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ì)Dim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim n As IntegerDim a(200) As SinglePrivate Sub Command1_Click()conn.ConnectionString = Provider=Microsoft.ACE.OLEDB.12.0; Data Source= & A

2、pp.Path & rizhi.accdbconn.OpenSet rs.ActiveConnection = connrs.Open select * from gnipcn = 0Do While Not rs.EOF n = n + 1 a(n) = rs.Fields(“登錄次數(shù)) rs.MoveNextLooprs.Closeconn.CloseEnd SubWindows 7 32位Visual Basic 6.0 SP6(完全安裝版）Access 2010Access 2000,2003 *.mdbAccess 2010 *.accdb在access 2010中從mdb

3、轉(zhuǎn)為 accdb格式二、二、ADOADO數(shù)據(jù)訪問技術(shù)數(shù)據(jù)訪問技術(shù)三、三、ADOADO對(duì)象使用實(shí)例對(duì)象使用實(shí)例一、一、SQLSQL查詢查詢基礎(chǔ)基礎(chǔ) SQLSQL：Structured Structured Query Query LanguageLanguage結(jié)構(gòu)化結(jié)構(gòu)化查詢語(yǔ)言查詢語(yǔ)言，是對(duì)，是對(duì)數(shù)據(jù)操作的命令集。數(shù)據(jù)操作的命令集。 特點(diǎn)：由于特點(diǎn)：由于所有主要的關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)都支持所有主要的關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)都支持SQLSQL語(yǔ)言語(yǔ)言，所有所有用用SQLSQL編寫的程序都是可以移植的編寫的程序都是可以移植的。（。（AccessAccess，Sql Sql ServerServer等數(shù)據(jù)

4、庫(kù)）等數(shù)據(jù)庫(kù)） SQLSQL功能：可以功能：可以面向數(shù)據(jù)庫(kù)執(zhí)行查詢、從數(shù)據(jù)庫(kù)取回?cái)?shù)據(jù)、面向數(shù)據(jù)庫(kù)執(zhí)行查詢、從數(shù)據(jù)庫(kù)取回?cái)?shù)據(jù)、可在數(shù)據(jù)庫(kù)中插入新的紀(jì)錄、可更新數(shù)據(jù)庫(kù)中的數(shù)據(jù)、可可在數(shù)據(jù)庫(kù)中插入新的紀(jì)錄、可更新數(shù)據(jù)庫(kù)中的數(shù)據(jù)、可從數(shù)據(jù)庫(kù)刪除記錄、可創(chuàng)建新數(shù)據(jù)庫(kù)、可在數(shù)據(jù)庫(kù)中創(chuàng)建從數(shù)據(jù)庫(kù)刪除記錄、可創(chuàng)建新數(shù)據(jù)庫(kù)、可在數(shù)據(jù)庫(kù)中創(chuàng)建新表等新表等。其功能可歸結(jié)為查詢。其功能可歸結(jié)為查詢、定義、操縱和、定義、操縱和控制等幾個(gè)控制等幾個(gè)方面：方面：SQLSQL功能功能常用語(yǔ)句常用語(yǔ)句數(shù)據(jù)查詢數(shù)據(jù)查詢SELECTSELECT數(shù)據(jù)定義數(shù)據(jù)定義CREATE,DROPCREATE,DROP數(shù)據(jù)操縱數(shù)據(jù)操縱INSERT

5、,DELETE,UPDATEINSERT,DELETE,UPDATE數(shù)據(jù)控制數(shù)據(jù)控制GRANT,REVOKEGRANT,REVOKE SQL（structured query language)結(jié)構(gòu)化查詢語(yǔ)言。它是一種標(biāo)準(zhǔn)，不是一種軟件。 SQL Server是數(shù)據(jù)庫(kù)管理系統(tǒng)的一種它是一種軟件，這種軟件在遵循SQL這種標(biāo)準(zhǔn)，很多數(shù)據(jù)庫(kù)管理軟件及開發(fā)工具都支持SQL這種標(biāo)準(zhǔn)?？稍贏ccess中利用查詢中的Sql視圖編寫查詢語(yǔ)句，練習(xí)、校對(duì)Sql查詢語(yǔ)句SELECT SELECT DISTINCT DISTINCT 目標(biāo)列表達(dá)式目標(biāo)列表達(dá)式1 AS 1 AS 別名別名 , ,目標(biāo)列表目標(biāo)列表達(dá)式達(dá)

6、式2 AS 2 AS 別名別名 ， FROM FROM 表名表名1 ,1 ,表名表名2 2 WHERE WHERE 條件表達(dá)式條件表達(dá)式 GROUP BY GROUP BY 列名列名1 HAVING 1 HAVING 組條件表達(dá)式組條件表達(dá)式ORDER BY ORDER BY 列名列名2 ASC|DESC ;2 ASC|DESC ;功能功能從數(shù)據(jù)庫(kù)中查詢數(shù)據(jù)，并以表格形式返回查詢結(jié)果。從數(shù)據(jù)庫(kù)中查詢數(shù)據(jù)，并以表格形式返回查詢結(jié)果。語(yǔ)法語(yǔ)法查詢loginCount表全部記錄：SELECT * FROM loginCount查詢loginCount表部分字段：SELECT 帳號(hào) as qq,登錄時(shí)

7、間 as qqtime FROM loginCount查詢loginCount表中登錄時(shí)間超過650的記錄SELECT 帳號(hào) as qq,登錄時(shí)間 as qqtime FROM loginCountwhere 登錄時(shí)間650查詢loginCount表中qq號(hào)碼為333的記錄SELECT loginCount.帳號(hào) AS qq, loginCount.登錄時(shí)間 AS qqtimeFROM loginCountWHERE 帳號(hào)=333Sqlstr=“select Sqlstr=“select * * from t_user where u_name from t_user where u_name

8、=張三張三”“ “字符串字符串1 1” ” & &“ “字符串字符串2 2” ” & & “ “字符串字符串3 3” ” 不建不建議議用用+ +號(hào)連號(hào)連接字符串接字符串Username=“張三”Sqlstr=“select Sqlstr=“select * * from t_user where u_name= from t_user where u_name=” & username & username & &“”1.書寫最熟悉的sql語(yǔ)句2.找斷點(diǎn)，加雙引號(hào)，&斷開3.加入vb中表達(dá)式4.Msgobx debug.p

9、ringt等 輸出 sqlstr 進(jìn)行檢查 把下面的語(yǔ)句題換成變量的寫法： strsql=“Insert into mytable(username) values(張紅)” 第一步：先把張紅抹去，在原位置加兩個(gè)引號(hào) strsql=“Insert into mytable(username) values(”“)” 第二步：在中間添加兩個(gè)連接符& strsql=“Insert into mytable(username) values(”& &“)” 第三步：把變量寫在兩個(gè)連接符之間 strsql=“Insert into mytable(username) value

10、s(”& thename &“)” 一個(gè)數(shù)據(jù)庫(kù)中的多個(gè)數(shù)據(jù)表之間一般都存在某種內(nèi)在聯(lián)系，它們共同一個(gè)數(shù)據(jù)庫(kù)中的多個(gè)數(shù)據(jù)表之間一般都存在某種內(nèi)在聯(lián)系，它們共同提供有用信息。提供有用信息。 若一個(gè)查詢同時(shí)涉及兩個(gè)及以上的表，稱之為多表查詢或鏈接查詢。若一個(gè)查詢同時(shí)涉及兩個(gè)及以上的表，稱之為多表查詢或鏈接查詢。 兩張表間有一個(gè)相同的字段，才能進(jìn)行有效的多表查詢。兩張表間有一個(gè)相同的字段，才能進(jìn)行有效的多表查詢。 查詢時(shí)列名前加表名或表別名前查詢時(shí)列名前加表名或表別名前輟（輟（asas），），如果字段在兩個(gè)表中是唯如果字段在兩個(gè)表中是唯一的可以不加。一的可以不加。 DELETE FRO

11、M 表名 WHERE 條件 功能功能DELETEDELETE語(yǔ)句的功能為刪除表中指定的記錄。語(yǔ)句的功能為刪除表中指定的記錄。語(yǔ)法語(yǔ)法 DELETE語(yǔ)句對(duì)滿足WHERE子句中條件的所有記錄執(zhí)行刪除操作。 省略WHERE子句，則刪除表中全部記錄，但表結(jié)構(gòu)仍在，即DELETE語(yǔ)句刪除的是表中的數(shù)據(jù)。應(yīng)用應(yīng)用刪除部分記錄【例】刪除用戶名為“l(fā)ee”的所有記錄。DELETE FROM TravelPlanWHERE UserName=lee;分析分析lee所在兩條記錄均被刪除，記錄數(shù)由4變?yōu)?。UPDATE 表名 SET 字段1 = 表達(dá)式 ，字段2=表達(dá)式2，字段N=表達(dá)式N WHERE 條件 功能功

12、能UPDATEUPDATE語(yǔ)句的功能是更新表中指定記錄中指定字段的值。語(yǔ)句的功能是更新表中指定記錄中指定字段的值。語(yǔ)法語(yǔ)法 UPDATE語(yǔ)句對(duì)指定表中滿足WHERE子句中條件的記錄進(jìn)行修改，具體修改內(nèi)容在SET子句中設(shè)定。 表達(dá)式的值必須與其對(duì)應(yīng)字段的數(shù)據(jù)類型吻合。 UPDATE的操作是不可逆的，即做出的修改是無(wú)法撤消的。（一）ADO數(shù)據(jù)模型（二）Connection對(duì)象及應(yīng)用（三）Command對(duì)象及應(yīng)用（四）Recordset對(duì)象及應(yīng)用 ADO (ActiveX Data Objects)數(shù)據(jù)庫(kù)訪問技術(shù)，采用OLE DB的數(shù)據(jù)訪問模式。向應(yīng)用程序提供一個(gè)統(tǒng)一的數(shù)據(jù)訪問方法，不僅可以訪問Ac

13、cess，SQL Server數(shù)據(jù)庫(kù)，還可以訪問 Excel，文本文件等基于OLE DB之上的對(duì)象模型，半酣可以被OLE DB標(biāo)準(zhǔn)接口描述的數(shù)據(jù)類型。（優(yōu)點(diǎn)：應(yīng)用程序移植）三個(gè)對(duì)象成員： Connection Command Recordset幾個(gè)集合對(duì)象： Errors Parameters Fields Properties指定連接數(shù)據(jù)來(lái)源發(fā)出命令信息從數(shù)據(jù)源獲取所需數(shù)據(jù)查詢命令的返回的記錄集訪問數(shù)據(jù)源時(shí)所返回的錯(cuò)誤信息與命令對(duì)象有關(guān)的參數(shù)記錄集中某個(gè)字段的信息每個(gè)ADO對(duì)象都有一組惟一的屬性，用來(lái)描述或控制對(duì)象（1）初始化COM庫(kù)，引入ADO庫(kù)定義文件；（2）用Connection對(duì)象連

14、接數(shù)據(jù)庫(kù)；（3）利用建立好的連接，通過Connection、Command對(duì)象執(zhí)行SQL命令，或利用Recordset對(duì)象取得結(jié)果記錄集進(jìn)行查詢、處理；（4）使用完畢后關(guān)閉連接釋放對(duì)象。在Visual Basic程序中使用ADO對(duì)象，必須先為當(dāng)前工程引用ADO的對(duì)象庫(kù)。方法：執(zhí)行“工程”菜單中 “引用”命令，彈出“引用”對(duì)話框，如圖所示。單擊“確定”選擇該選項(xiàng)（不同環(huán)境下ADO的版本號(hào)可能不同） Connection用來(lái)創(chuàng)建到數(shù)據(jù)庫(kù)建立連接。 1.常用屬性 ConnectionString屬性，指定用于建立連接數(shù)據(jù)源的信息。 【例】創(chuàng)建到數(shù)據(jù)庫(kù)rizhi.accdb的鏈接。 Dim conn

15、As ADODB.Connection Set conn=new ADODB.Connection conn.ConnectionString = Provider=Microsoft.ACE.OLEDB.12.0; Data Source= + App.Path + rizhi.accdb“ 2行代碼等同于Dim conn As new ADODB.Connection Access 2003：conn.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & rizhi.mdbAc

16、cess 2010： conn.ConnectionString = Provider=Microsoft.ACE.OLEDB.12.0; Data Source= + App.Path + rizhi.accdb”Mode屬性，指定Connection對(duì)象修改數(shù)據(jù)的權(quán)限。其值如下：常 量 說(shuō) 明adModeUnknown 默認(rèn)值。表明權(quán)限尚未設(shè)置或無(wú)法確定adModeRead 只讀權(quán)限adModeWrite 只寫權(quán)限adModeReadWrite讀寫權(quán)限adModeShareDenyRead禁止其他用戶使用讀權(quán)限打開連接adModeShareDenyWrite 禁止其他用戶使用寫權(quán)限打開連接

17、adModeShareExclusive 禁止其他用戶打開連接adModeShareDenyNone允許其他人以任何權(quán)限打開連接State屬性，返回Connection對(duì)象的狀態(tài)。其值如下：常 量 說(shuō) 明adStateClosed對(duì)象已關(guān)閉adStateOpen對(duì)象已打開adStateConnecting對(duì)象正在連接adStateExecuting對(duì)象正在執(zhí)行命令adStateFetching正在檢索對(duì)象的行Open方法，打開到數(shù)據(jù)源的連接。語(yǔ)法如下: Connection對(duì)象.Open ConnectionString, UserID, PassWord, Options 以下參數(shù)均為可選項(xiàng)

18、 ConnectionString ：包含連接信息的字符串。 UserID ：包含建立連接時(shí)所使用的用戶名稱。 Password ：字符串，包含建立連接時(shí)所用密碼。 Options ：設(shè)置為 adConnectAsync，則異步打開連接； 設(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ù)了【例】使用Connection對(duì)象鏈接到數(shù)據(jù)庫(kù)rizhi.

19、accdb。Private Sub Form_Load() Dim conn As New ADODB.Connection conn.ConnectionString = Provider=Microsoft.ACE.OLEDB.12.0; Data Source= + App.Path + rizhi.accdb conn.Open If conn.State = adStateOpen Then MsgBox 鏈接已打開 conn.Close If conn.State = adstatecolsed Then MsgBox 鏈接已關(guān)閉End Sub創(chuàng)建Connection對(duì)象conn

20、鏈接數(shù)據(jù)庫(kù)路徑打開到數(shù)據(jù)庫(kù)的鏈接判斷鏈接的狀態(tài)關(guān)閉到數(shù)據(jù)庫(kù)的鏈接判斷鏈接的狀態(tài)Recordset對(duì)象表示從數(shù)據(jù)庫(kù)返回的一系列記錄的集合。一個(gè) Recordset 對(duì)象由記錄和列（字段）組成。通過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屬性，

21、若當(dāng)前記錄的位置在最后的記錄之后，則返回 true，否則返回 fasle。（4）RecordCount屬性，返回Recordset對(duì)象中記錄的當(dāng)前數(shù)目。（5）CursorType屬性，設(shè)置或返回一個(gè) Recordset 對(duì)象的游標(biāo)類型。常 量值說(shuō) 明AdOpenForwardOnly0默認(rèn)值，打開僅向前類型游標(biāo)，只能用MoveNext讀取，打開的同時(shí)建立的數(shù)據(jù)庫(kù)的備份,不能即時(shí)體現(xiàn)數(shù)據(jù)庫(kù)記錄狀態(tài),比如記錄的編輯和增刪。AdOpenKeyset1打開鍵集類型游標(biāo)，可上下滾動(dòng)游標(biāo)，給打開的記錄創(chuàng)建了一個(gè)關(guān)鍵字列表,類似記錄集的描述,訪問的時(shí)候才去取得數(shù)據(jù)值,就是說(shuō)可以即時(shí)看到修改信息,但是不能即時(shí)

22、得到數(shù)據(jù)是否刪除的信息,因?yàn)檫@個(gè)關(guān)鍵字列表是事先初始化好的。程序中常用此類型。AdOpenDynamic2打開動(dòng)態(tài)類型游標(biāo)，完全可滾動(dòng)游標(biāo)，可得到數(shù)據(jù)的最新狀態(tài)，但執(zhí)行效率也會(huì)有所降低。AdOpenStatic3打開靜態(tài)類型游標(biāo)，完全可滾動(dòng)游標(biāo)，它先將數(shù)據(jù)庫(kù)備份文件之后進(jìn)行操作，可以斷開數(shù)據(jù)庫(kù)連接后繼續(xù)使用。（6）LockType屬性，指定打開Recordset對(duì)象使用的鎖定類型，其值如下表所示。常 量值說(shuō) 明AdLockReadOnly1默認(rèn)值，只讀鎖AdLockPessimistic2悲觀鎖，操作者打開之后立即上鎖，直到修改完成或者放棄修改為止，此時(shí)其他人無(wú)法編輯AdLockOptimis

23、tic3樂觀鎖，當(dāng)記錄將要被更新的時(shí)候才開始上鎖，但是不能保證在提交修改之前是否有人改動(dòng)過AdLockBatchOptimistic4批量樂觀鎖（7 7）SortSort屬性，設(shè)置排序字段。屬性，設(shè)置排序字段。（8 8）FilterFilter屬性，設(shè)置屬性，設(shè)置RecordsetRecordset對(duì)象中的篩選條件。對(duì)象中的篩選條件。（1）AddNew方法，創(chuàng)建和初始化新記錄，其語(yǔ)法為:Recordset對(duì)象.AddNew FieldList, Values AddNew方法為記錄集添加新記錄后,需使用UpDate將所添加的數(shù)據(jù)存儲(chǔ)到數(shù)據(jù)庫(kù)中。（2）Delete方法，刪除當(dāng)前記錄或記錄組。（3

24、）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)的值Open方法，打開代表基本表、查詢的結(jié)果或保存的 Recordset 中記錄的游標(biāo)。其語(yǔ)法如下：Re

25、cordset對(duì)象.Open Source, ActiveConnection, CursorType, LockType, Options 以下均為可選項(xiàng) Source為記錄源，可以是SQL語(yǔ)句、表名等； ActiveConnection指定相應(yīng)的Connection對(duì)象； CursorType指定打開Recordset對(duì)象使用的指針類型。【例】 Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim strSQL As String conn.ConnectionString = Provider = Micro

26、soft.ACE.OLEDB.12.0;DATA Source= & App.Path & users1.accdb strSQL = SELECT * FROM users conn.Open Set rs.ActiveConnection = conn rs.LockType = adLockOptimistic rs.CursorType = AdOpenKeyset rs.Open strSQL rs.AddNew rs.Fields(1) = Text1 rs.Fields(2) = Text2 rs.Update conn.Close Set conn Nothin

27、gPrivate Sub Command2_Click()rs.MovePreviousCommand3.Enabled = TrueIf rs.AbsolutePosition = 1 Then Command1.Enabled = False Command2.Enabled = FalseEnd IfText1 = rs.Fields(0)Text6 = rs.Fields(5)End SubPrivate Sub Command3_Click()rs.MoveNextCommand1.Enabled = TrueCommand2.Enabled = TrueIf rs.EOF Then

28、 Command3.Enabled = False rs.MoveLast Exit SubEnd IfText1 = rs.Fields(0)Text6 = rs.Fields(5)End Sub前一條前一條后一條后一條ADO中command對(duì)象Command對(duì)象提交給數(shù)據(jù)源的命令，傳遞SQL命令Parameter對(duì)象用來(lái)向SQL語(yǔ)句傳遞參數(shù)Property對(duì)象指明一個(gè)ADO對(duì)象的屬性 使用 Command 對(duì)象查詢數(shù)據(jù)庫(kù)并返回 Recordset 對(duì)象中的記錄，以便執(zhí)行大量操作或處理數(shù)據(jù)庫(kù)結(jié)構(gòu) Command對(duì)象用于執(zhí)行數(shù)據(jù)庫(kù)操作命令，使用Command對(duì)象的ActiveConection

29、屬性同樣可以創(chuàng)建一個(gè)連接。例如Activeconection屬性被設(shè)置為一個(gè)Connection對(duì)象的引用，那么Command對(duì)象就建立一個(gè)新的連接，并使用這個(gè)新連接。用Command對(duì)象執(zhí)行一個(gè)查詢子串，可以返回一個(gè)記錄集，也可以返回多個(gè)記錄集，甚至可以不返回記錄集。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

30、對(duì)象3個(gè)重要屬性Connection屬性設(shè)置Command所使用的Connection例:Set cmd.ActiveConnection = connCommandText屬性設(shè)置對(duì)數(shù)據(jù)源執(zhí)行SQL語(yǔ)句或存儲(chǔ)過程。例:cmd.CommandText = delete from yonghu WHERE 帳號(hào) = xxxxxx “AdCmdText時(shí)，表示包含命令文本，AdCmdTable時(shí)，表示包含一個(gè)表的名字，AdCmdStoredProc時(shí)，表示包含存儲(chǔ)過程名。CommandType屬性設(shè)置指定的CommandText類型例：cmd.CommandType = adCmdText查詢字串是一個(gè)SQL語(yǔ)句: adCmdText;查詢字串是一個(gè)存儲(chǔ)過程，adCmdStoreProc；查詢字串是一個(gè)表名，adCmdTable；Dim conn As New ADODB.ConnectionDim rs As New ADODB.Record