第十一章VisualBasic與數(shù)據(jù)庫(kù)模板

1、第十一章Visual Basic 與數(shù)據(jù)庫(kù)11.1數(shù)據(jù)庫(kù)概念數(shù)據(jù)庫(kù)就是一組排列成易于處理和讀取的相關(guān)信息的集合。關(guān)系模型已經(jīng)成為數(shù)據(jù)庫(kù)設(shè)計(jì)事實(shí)上的標(biāo)準(zhǔn)。11.2數(shù)據(jù)庫(kù)管理器VB 的數(shù)據(jù)庫(kù)管理器 (Visdata.exe )可用于管理數(shù)據(jù)庫(kù)。 在 VB 開(kāi)發(fā)環(huán)境內(nèi)單擊外接程序菜單中的可視化數(shù)據(jù)管理器命令可打開(kāi)可視數(shù)據(jù)管理器。建立 Student.mdb 數(shù)據(jù)庫(kù)，所含學(xué)生基本情況表結(jié)構(gòu)如下：字段名類(lèi) 型寬 度字段名類(lèi) 型寬 度學(xué)號(hào)Text6專(zhuān)業(yè)Text10姓名Text10出生年月Date8性別Text2照片Binary數(shù)據(jù)庫(kù)管理器使用小結(jié)：1建立新表：鼠標(biāo)右鍵單擊數(shù)據(jù)庫(kù)窗口，彈出菜單，選擇對(duì)應(yīng)命令

2、。2打開(kāi)、刪除表，修改表結(jié)構(gòu)和建立表間的關(guān)聯(lián)等操作：右鍵單擊數(shù)據(jù)庫(kù)窗口內(nèi)的表名，彈出菜單，選擇對(duì)應(yīng)命令。3編輯記錄：雙擊表名，打開(kāi)表格輸入窗，編輯、增刪記錄。11.3數(shù)據(jù)控件11 .3.1數(shù)據(jù)控件能夠利用三種記錄集對(duì)象訪(fǎng)問(wèn)數(shù)據(jù)庫(kù)中的數(shù)據(jù)，連接方法：連接屬性Data控件屬性說(shuō)明Connect指定數(shù)據(jù)控件所要連接的數(shù)據(jù)庫(kù)類(lèi)型。DatabaseName指定具體使用的數(shù)據(jù)庫(kù)文件名，包括所有的路徑名。RecordSource確定具體可訪(fǎng)問(wèn)的數(shù)據(jù)，這些數(shù)據(jù)構(gòu)成記錄集對(duì)象。RecordType確定記錄集類(lèi)型。注：RecordSource屬性可以是數(shù)據(jù)庫(kù)中的單個(gè)表名，也可以是使用SQL查詢(xún)語(yǔ)言的一個(gè)查詢(xún)字符串

3、。如果連接的是單表數(shù)據(jù)庫(kù)，則DatabaseName名，而具體文件名放在RecordSource 屬性中。、屬性應(yīng)設(shè)置為數(shù)據(jù)庫(kù)文件所在的子目錄數(shù)據(jù)控件只能連接數(shù)據(jù)庫(kù)產(chǎn)生記錄集，過(guò)能與它綁定的控件來(lái)實(shí)現(xiàn)。綁定控件具有DataSource 和 DataField不能顯示記錄集中的數(shù)據(jù)，兩個(gè)重要屬性，其作用如下：要顯示記錄集中的數(shù)據(jù)必須通屬性綁定控件綁定屬性說(shuō)明DataSource指定一個(gè)有效的數(shù)據(jù)控件連接到數(shù)據(jù)庫(kù)上。DataField設(shè)置數(shù)據(jù)庫(kù)有效的字段與綁定控件建立聯(lián)系。數(shù)據(jù)控件的事件事件說(shuō)明Reposition發(fā)生在一條記錄成為當(dāng)前記錄后，這個(gè)事件中顯示當(dāng)前指針的位置。移動(dòng)記錄指針前、 修改與

4、刪除記錄前或卸載含有Vaildate數(shù)據(jù)控件的窗體時(shí)觸發(fā)該事件。參數(shù) Save可判斷綁定控件內(nèi)的數(shù)據(jù)是否發(fā)生變化。數(shù)據(jù)控件的常用方法方法說(shuō)明Refresh激活對(duì)數(shù)據(jù)控件屬性的改變，使對(duì)數(shù)據(jù)庫(kù)的操作有效。UpdateControls將數(shù)據(jù)從數(shù)據(jù)庫(kù)中重新讀到被數(shù)據(jù)控件綁定的控件內(nèi)。UpdateRecord將綁定控件內(nèi)的數(shù)據(jù)寫(xiě)入到數(shù)據(jù)庫(kù)中而不觸發(fā)數(shù)據(jù)控件的Vaildate事件。記錄集的屬性與方法1. 屬性2. 記錄集的方法?FindFirst 、FindLast 、 FindNext 、FindPrevious 方法可在指定的Dynaset 或 Snapshot 類(lèi)型的記錄集對(duì)象中查找。?Seek

5、方法在 Table 表中查找。Nomarch 屬性可判定是否找到。記錄的增刪改操作增加記錄： Data1.Recordset. AddNew編輯記錄調(diào)用 Edit 方法。給各字段賦值。調(diào)用 Update 方法。刪除記錄 ?調(diào)用 Delete 方法。移動(dòng)記錄指針。11.4ADO 數(shù)據(jù)控件11.4.1ADO 對(duì)象模型ADO 是 Microsoft 處理數(shù)據(jù)庫(kù)信息的最新技術(shù)，它是一種ActiveX 對(duì)象，采用了被稱(chēng)為 OLE DB的數(shù)據(jù)訪(fǎng)問(wèn)模式。它是數(shù)據(jù)訪(fǎng)問(wèn)對(duì)象DAO 、遠(yuǎn)程數(shù)據(jù)對(duì)象 RDO 和開(kāi)放數(shù)據(jù)庫(kù)互連ODBC 三種方式的擴(kuò)展。 ADO 對(duì)象模型更為簡(jiǎn)化，不論是存取本地的還是遠(yuǎn)程的數(shù)據(jù)，都提供

6、了統(tǒng)一的接口。11.4.2使用 ADO 數(shù)據(jù)控件在使用 ADO 數(shù)據(jù)控件前，必須先通過(guò)“工程/部件”菜單命令選擇“ Microsoft ADO Data Control6.0(OLE DB) ”選項(xiàng)，將 ADO 數(shù)據(jù)控件添加到工具箱。ADO 數(shù)據(jù)控件與 Visual Basic 的內(nèi)部數(shù)據(jù)控件很相似，它允許使用ADO 數(shù)據(jù)控件的基本屬性快速地創(chuàng)建與數(shù)據(jù)庫(kù)的連接。能夠利用三種記錄集對(duì)象訪(fǎng)問(wèn)數(shù)據(jù)庫(kù)中的數(shù)據(jù)，連接方法：ADO 控件連接設(shè)置連接屬性ADO 控件屬性說(shuō)明ConnectionString包含了用于與數(shù)據(jù)源建立連接的相關(guān)信息（ ADO控件沒(méi)有 DatabaseName屬性）。確定具體可訪(fǎng)問(wèn)的

7、數(shù)據(jù)，這些數(shù)據(jù)構(gòu)成記RecordSource錄集對(duì)象 Recordset。連接操作- 鼠標(biāo)右擊ADO控件，選擇快捷菜單“ ADODC屬性”命令，打開(kāi)ADO控件屬性頁(yè)窗：設(shè)置完成后，ADO控件的ConnectionString屬性為：Security Info=False; Data Source=Student.mdbRecordSource 屬性為：基本情況（表）ADO控件的的其他操作與Data 控件相同。ADO 控件上綁定控件的使用MSFlexGridDataGridMSHFlexGridMSChartDataListDataCombo網(wǎng)格控件比較網(wǎng)格控件分類(lèi)功能說(shuō)明MSFlexGrid標(biāo)

8、準(zhǔn)不能進(jìn)行編輯，有圖形功能。MSHFlexGridOLEDB不能進(jìn)行編輯，可分層處理網(wǎng)格，有圖形功能。DataGridOLEDB可以進(jìn)行編輯操作，顯示文本。使用數(shù)據(jù)窗體向?qū)ㄟ^(guò)數(shù)據(jù)窗體向?qū)芙⒁粋€(gè)訪(fǎng)問(wèn)數(shù)據(jù)的窗口。在使用前必須執(zhí)行“外接程序 /外接程序管理器”命令，將“ VB 6 數(shù)據(jù)窗體向?qū)А毖b入到“外接程序”菜單中。步驟 1：執(zhí)行“外接程序”菜單中的“數(shù)據(jù)窗體向?qū)А泵睢?1.5結(jié)構(gòu)化查詢(xún)語(yǔ)言(SQL)結(jié)構(gòu)化查詢(xún)語(yǔ)言結(jié)構(gòu)化查詢(xún)語(yǔ)言 SQL 是操作數(shù)據(jù)庫(kù)的工業(yè)標(biāo)準(zhǔn)語(yǔ)言。在 SQL 語(yǔ)言中，指定要做什么而不是怎么做。不需要告訴 SQL 如何訪(fǎng)問(wèn)數(shù)據(jù)庫(kù)，只要告訴 SQL 需要數(shù)據(jù)庫(kù)做什么。利用

9、SQL ，可以確切指定想要檢索的記錄以及按什么順序檢索?？梢栽谠O(shè)計(jì)或運(yùn)行時(shí)對(duì)數(shù)據(jù)控件使用 SQL 語(yǔ)句。用戶(hù)提出一個(gè)查詢(xún)，數(shù)據(jù)庫(kù)返回所有與該查詢(xún)匹配的記錄。結(jié)構(gòu)化查詢(xún)語(yǔ)言常用 SQL命令描 述CREAT創(chuàng)建新的表、字段和索引DELETE從數(shù)據(jù)庫(kù)表中刪除記錄。SELECT在數(shù)據(jù)庫(kù)中查找滿(mǎn)足特定條件的記錄。UPDATE改變特定記錄和字段的值。常用 SQL命令子句描 述FROM用來(lái)為從其中選定記錄的表命名。WHERE用來(lái)指定所選記錄必須滿(mǎn)足的條件。GROUP BY用來(lái)把選定的記錄分成特定的組。HA VING用來(lái)說(shuō)明每個(gè)組需要滿(mǎn)足的條件。ORDER BY用來(lái)按特定的次序?qū)⒂涗浥判颉：嫌?jì)函數(shù)描 述AVG

10、用來(lái)獲得特定字段中的值的平均數(shù)COUNT用來(lái)返回選定記錄的個(gè)數(shù)SUM用來(lái)返回特定字段中所有值的總和MAX用來(lái)返回指定字段中的最大值MIN用來(lái)返回指定字段中的最小值使用 SELECT 語(yǔ)句查詢(xún)1. 使用SELECT語(yǔ)句從數(shù)據(jù)庫(kù)中的獲取數(shù)據(jù)稱(chēng)為查詢(xún)數(shù)據(jù)庫(kù)，查詢(xún)數(shù)據(jù)庫(kù)通過(guò)使用SELECT語(yǔ)句。常見(jiàn)的SELECT語(yǔ)句形式為：Select 字段表From表名Where可以在設(shè)計(jì)或代碼中對(duì)數(shù)據(jù)控件的查詢(xún)條件GroupByRecordSource 屬性設(shè)置分組字段OrderBy字段 Asc|DescSQL 語(yǔ)句，也可將 SQL 語(yǔ)句賦予對(duì)象變量。在建立SQL語(yǔ)句時(shí)，如果需要通過(guò)變量構(gòu)造條件，則需要在應(yīng)用程序

11、中將變量連接到SELECT 語(yǔ)句。例如：Select * From基本情況Where 專(zhuān)業(yè)= & Text1 & 例 11.8 將例 11.4 中的查找功能改用SQL 語(yǔ)句處理。例 11.9 用 SQL 語(yǔ)句從兩個(gè)數(shù)據(jù)表中選擇數(shù)據(jù)構(gòu)成記錄集。例 11.10 用 SQL 指令按專(zhuān)業(yè)統(tǒng)計(jì) Student.mdb 數(shù)據(jù)庫(kù)各專(zhuān)業(yè)的人數(shù)。例 11.11 在 ADO 數(shù)據(jù)控件上使用SQL 語(yǔ)句。將例11.9 中的 Data 控件改用ADO 數(shù)據(jù)控件，用SQL 語(yǔ)句從 Student.mdb 數(shù)據(jù)庫(kù)的兩個(gè)數(shù)據(jù)表中選擇數(shù)據(jù)構(gòu)成記錄集。例 11.12 設(shè)計(jì)一個(gè)窗體，計(jì)算 Student.mdb 數(shù)據(jù)庫(kù)內(nèi)學(xué)生成績(jī)

12、表中每個(gè)學(xué)生的平均成績(jī)，產(chǎn)生姓名、平均成績(jī)和最低成績(jī)?nèi)?xiàng)數(shù)據(jù)，按平均成績(jī)升序排列數(shù)據(jù)，并用該數(shù)據(jù)作圖。*2.使用 UPDATE 語(yǔ)句修改記錄UPDATE 創(chuàng)建一個(gè)更新查詢(xún)來(lái)按照某個(gè)條件修改特定表中的字段值。其語(yǔ)法如下：UPDATE 表集合 SET 表達(dá)式 WHERE 條件 例 11.12a本例把學(xué)生平均成績(jī)字段的值增加了10% ，并刷新網(wǎng)格。*3.使用 DELETE 語(yǔ)句查詢(xún)可以創(chuàng)建刪除查詢(xún)來(lái)刪除FROM 子句中列出的、滿(mǎn)足WHERE 子句的一個(gè)或多個(gè)表中的記錄，其語(yǔ)法所示如下：DELETE 表字段 FROM 表集合 WHERE 條件 例 11.12b 刪除例11.12a 所產(chǎn)生 temp 表

13、中平均成績(jī)80 的全部記錄，并刷新網(wǎng)格。使用對(duì)象變量訪(fǎng)問(wèn)數(shù)據(jù)庫(kù)DAO 對(duì)象定義了一個(gè)可編程的對(duì)象集合?？砂聪铝蟹椒ǘx數(shù)據(jù)庫(kù)對(duì)象和記錄集對(duì)象，不必在窗體上放置數(shù)據(jù)控件。方 法說(shuō) 明Dim db As Database打開(kāi)數(shù)據(jù)庫(kù)，返回一個(gè)Set db = OpenDatabase(數(shù)據(jù)庫(kù) )Database類(lèi)型的對(duì)象 db。Dim rs As Recordset返回一個(gè)記錄集對(duì)象 rs。Set rs = db.OpenRecordset(記錄源 )要想在程序中使用DAO 對(duì)象，必須先為當(dāng)前工程引用DAO 對(duì)象的數(shù)據(jù)庫(kù)引擎庫(kù)。引用方式：執(zhí)行工程菜單的引用命令，啟動(dòng)引用對(duì)話(huà)框， 在清單中選取 “ M

14、icrosoft DAO 3.51 ObjectLibrary ”項(xiàng)目。使用 DAO 模型訪(fǎng)問(wèn)數(shù)據(jù)庫(kù)的例題。例 11.12d 使用 DAO 模型訪(fǎng)問(wèn)數(shù)據(jù)庫(kù)，分頁(yè)顯示基本情況表的記錄。本程序通過(guò) Bookmark 屬性設(shè)置當(dāng)前記錄的書(shū)簽，用于當(dāng)前頁(yè)上記錄的定位。例 11.12e 使用 DAO 模型訪(fǎng)問(wèn)數(shù)據(jù)庫(kù)，約束綁定控件。記錄集的字段對(duì)象可以使用如下幾種方法獲?。篟ecordset.Fields( 字段名稱(chēng) ）、 Recordset( 字段名稱(chēng) )Recordset.Fields( 數(shù)字 ）、 Recordset( 數(shù)字 ）在 DAO 中記錄集對(duì)象為對(duì)象變量，故字段可用rs(j) 表示。ADO

15、對(duì)象使用 ADO 對(duì)象訪(fǎng)問(wèn)數(shù)據(jù)庫(kù)比 DAO 對(duì)象模型更為簡(jiǎn)化，不論是存取本地的還是遠(yuǎn)程的數(shù)據(jù)，都提供了統(tǒng)一的接口。ADO 的連接方法方法Dim db As ConnectionSet db = New Connectiondb.Open 數(shù)據(jù)源連接字符串Dim rs As RecordsetSet rs = New Recordsetrs.Open 數(shù)據(jù)源，連接對(duì)象，指針，鎖類(lèi)型說(shuō)明連接數(shù)據(jù)源。返回一個(gè)連接對(duì)象db。打開(kāi)記錄集。返回查詢(xún)結(jié)果。11.6報(bào)表制作數(shù)據(jù)報(bào)表設(shè)計(jì)器屬于A(yíng)ctiveXDesigner組中的一個(gè)成員，在使用前需要執(zhí)行“工程|添加DataReport”命令，將報(bào)表設(shè)計(jì)器加入到

16、當(dāng)前工程中，產(chǎn)生一個(gè)DataReport1 對(duì)象，并在工具箱內(nèi)產(chǎn)生一個(gè) “數(shù)據(jù)報(bào)表 ”標(biāo)簽?！? 標(biāo)簽”控件在報(bào)表上放置靜態(tài)文本“?文本”控件在報(bào)表上連接并顯示字段的數(shù)據(jù)“?圖形”控件可在報(bào)表上添加圖片“?線(xiàn)條”控件在報(bào)表上繪制直線(xiàn)“?形狀”控件在報(bào)表上繪制各種各樣的圖形外形“?函數(shù)”控件在報(bào)表上建立公式。?報(bào)表標(biāo)頭區(qū)包含整個(gè)報(bào)表最開(kāi)頭的信息，一個(gè)報(bào)表只有一個(gè)報(bào)表頭，可使用“標(biāo)簽 ”控件建立報(bào)表名?報(bào)表注腳區(qū)包含整個(gè)報(bào)表尾部的信息，一個(gè)報(bào)表也只有一個(gè)注腳區(qū)?頁(yè)標(biāo)頭區(qū)設(shè)置報(bào)表每一頁(yè)頂部的標(biāo)題信息；頁(yè)注腳區(qū)包含每一頁(yè)底部的信息；細(xì)節(jié)區(qū)包含報(bào)表的具體數(shù)據(jù)，細(xì)節(jié)區(qū)的高度將決定報(bào)表的行高。例 11.13

17、建立新工程，在窗體上放置兩個(gè)命令按鈕。在當(dāng)前工程內(nèi)加入一個(gè)DataEnvironent1 對(duì)象。完成與指定數(shù)據(jù)庫(kù)的連接。在下創(chuàng)建 Command1 對(duì)象。Connection1在當(dāng)前工程中加入報(bào)表設(shè)計(jì)器DataReport1 ，設(shè)置報(bào)表設(shè)計(jì)器的DataSource 屬性為數(shù)據(jù)環(huán)境對(duì)象， DataMember 屬性為 Command1 對(duì)象。將數(shù)據(jù)環(huán)境設(shè)計(jì)器中Command1 對(duì)象內(nèi)的字段拖動(dòng)到數(shù)據(jù)報(bào)表設(shè)計(jì)器的細(xì)節(jié)區(qū)。使用“標(biāo)簽”控件，在報(bào)表標(biāo)頭區(qū)插入報(bào)表名，頁(yè)標(biāo)頭區(qū)設(shè)置報(bào)表每一頁(yè)頂部的標(biāo)題信息等。使用“線(xiàn)條”控件在報(bào)表內(nèi)加入直線(xiàn)，使用“圖形”控件和“形狀”控件加入圖案或圖 形 。在 命 令 按

18、 鈕Click事 件 內(nèi) 加 入 代 碼DataReport1.Show顯 示 報(bào) 表 ，DataReport1.PrintReport打印報(bào)表。11.7錯(cuò)誤處理錯(cuò)誤處理步驟：1. 用 On Error 語(yǔ)句設(shè)置錯(cuò)誤陷阱，捕捉錯(cuò)誤。2. 編寫(xiě)錯(cuò)誤處理程序，根據(jù)可預(yù)知的錯(cuò)誤類(lèi)型決定采取何種措施?？筛鶕?jù) Err.Number 的值來(lái)編寫(xiě)出錯(cuò)處理程序。On Error 語(yǔ)句有如下幾種形式：(1) On Error Resume Next 忽略錯(cuò)誤行，繼續(xù)執(zhí)行下一語(yǔ)句。(2) On Error GoTo 標(biāo)號(hào) 使程序轉(zhuǎn)跳到語(yǔ)句標(biāo)號(hào)所指示的程序塊(3) On Error GoTo 0 不使用錯(cuò)誤處理程序

19、塊。處理方法：Resume重新執(zhí)行引起錯(cuò)誤的語(yǔ)句或指令。Resume Next忽略錯(cuò)誤行，繼續(xù)執(zhí)行下一語(yǔ)句。Resume標(biāo)號(hào)忽略錯(cuò)誤行，轉(zhuǎn)跳到由指明的語(yǔ)句繼續(xù)執(zhí)行。若 為0，則表示終止程序執(zhí)行。例11.14錯(cuò)誤處理的基本方法Sub OnErrorStatementDemo()Dim Response ,Msg, Style, Title As StringDim db As Database, rs As RecordsetOn Error GoTo ErrorHandlerSet db = OpenDatabase(A:Student.mdb)Set rs = db.OpenRecordse

20、t(基本情況 )打開(kāi)數(shù)據(jù)庫(kù)設(shè)置記錄集Exit Sub正常退出本程序ErrorHandler: 錯(cuò)誤處理塊入口Style = vbRetryCancel + vbCritical + vbDefaultButton2Select CaseErr .NumberCase 53Msg = 文件不存在 !Response = MsgBox(Msg, Style, 出錯(cuò)提示 )If Response = vbCancel Then Exit SubCase 71 71 號(hào)驅(qū)動(dòng)器未準(zhǔn)備好Msg = A 盤(pán)未準(zhǔn)備好 出錯(cuò)號(hào)53 為文件不存在Response = MsgBox(Msg, Style, 出錯(cuò)提示

21、 )If Response = vbCancel Then Exit SubCase Else 當(dāng)發(fā)生其他不可預(yù)知的錯(cuò)誤，退出本程序Exit SubEnd SelectResume 再次執(zhí)行原出錯(cuò)語(yǔ)句End Sub例11.15下列程序用于處理刪除一個(gè)已打開(kāi)的文件所產(chǎn)生的錯(cuò)誤。Sub ResumeStatementDemo()On Error GoTo ErrorHandler 設(shè)置錯(cuò)誤陷阱Open testfile For Output As #1Kill testfile 企圖刪除一個(gè)打開(kāi)的文件Exit SubErrorHandler:Select Case Err.NumberCase 55Close #1 處理方法：關(guān)閉文件Case Else文件已打開(kāi)錯(cuò)誤End SelectResumeEnd Sub例11.16采用忽略錯(cuò)誤的方法處理錯(cuò)誤。Sub OnErrorStatementDemo()On Error GoTo ErrorHandler 設(shè)置錯(cuò)誤陷阱Open testfile For Output