第13章數(shù)庫的基本應用

1、大學計算機基礎教程taiyuan university of technology第第1313章章 數(shù)據(jù)庫的基本應用數(shù)據(jù)庫的基本應用visual basic 程序設計教程程序設計教程visual basic程序設計教程2 第第12章我們介紹了文件的基本操作，實際章我們介紹了文件的基本操作，實際上使用數(shù)據(jù)庫來存儲和管理數(shù)據(jù)將比文件操作有上使用數(shù)據(jù)庫來存儲和管理數(shù)據(jù)將比文件操作有更高的效率。更高的效率。vb具有了強大的數(shù)據(jù)庫操作功能，具有了強大的數(shù)據(jù)庫操作功能，使程序開發(fā)人員可以輕松地開發(fā)出各種數(shù)據(jù)庫應使程序開發(fā)人員可以輕松地開發(fā)出各種數(shù)據(jù)庫應用程序。用程序。visual basic程序設計教程3

2、本章介紹：本章介紹：數(shù)據(jù)庫的基本概念數(shù)據(jù)庫的基本概念vb可視化數(shù)據(jù)庫管理器的用法可視化數(shù)據(jù)庫管理器的用法vb操作數(shù)據(jù)庫的兩種工具操作數(shù)據(jù)庫的兩種工具 data數(shù)據(jù)控件數(shù)據(jù)控件 ado數(shù)據(jù)對象數(shù)據(jù)對象顯示數(shù)據(jù)的基本方法。顯示數(shù)據(jù)的基本方法。visual basic程序設計教程413.1.1 關系數(shù)據(jù)庫關系數(shù)據(jù)庫1. 數(shù)據(jù)庫和數(shù)據(jù)表數(shù)據(jù)庫和數(shù)據(jù)表 數(shù)據(jù)庫數(shù)據(jù)庫(datebse)是許多相關數(shù)據(jù)根據(jù)一定的原則是許多相關數(shù)據(jù)根據(jù)一定的原則構成的數(shù)據(jù)集合。一個數(shù)據(jù)庫由一個或多個數(shù)據(jù)構成的數(shù)據(jù)集合。一個數(shù)據(jù)庫由一個或多個數(shù)據(jù)表表(table)組成。組成。 數(shù)據(jù)表中的一列稱為一個字段或域數(shù)據(jù)表中的一列稱為一個

3、字段或域(field)，表中的，表中的一行數(shù)據(jù)稱為一條記錄一行數(shù)據(jù)稱為一條記錄(record)。 同一個表中字段名不允許重名同一個表中字段名不允許重名 表中同一字段的數(shù)據(jù)類型相同表中同一字段的數(shù)據(jù)類型相同 所有記錄具有同樣的字段所有記錄具有同樣的字段visual basic程序設計教程5學生基本情況表 visual basic程序設計教程613.1.2 可視化數(shù)據(jù)管理器可視化數(shù)據(jù)管理器2. vb可訪問的數(shù)據(jù)庫可訪問的數(shù)據(jù)庫 vb默認的數(shù)據(jù)庫格式與默認的數(shù)據(jù)庫格式與access格式相同，其默格式相同，其默認的數(shù)據(jù)庫文件認的數(shù)據(jù)庫文件(.mdb)稱為內(nèi)部數(shù)據(jù)庫。稱為內(nèi)部數(shù)據(jù)庫。 除此之外，在除此之

4、外，在vb中還可以訪問：中還可以訪問：外部數(shù)據(jù)庫，如外部數(shù)據(jù)庫，如dbase、foxpro、paradox等等isam(索引順序訪問方法索引順序訪問方法)數(shù)據(jù)庫，以及數(shù)據(jù)庫，以及l(fā)otus123和和excel等電子表格數(shù)據(jù)列表等電子表格數(shù)據(jù)列表odbc(開放式數(shù)據(jù)互接開放式數(shù)據(jù)互接) )數(shù)據(jù)庫，如數(shù)據(jù)庫，如sqlserver等等visual basic程序設計教程7可視化數(shù)據(jù)管理器是可視化數(shù)據(jù)管理器是vb提供的一個數(shù)據(jù)庫提供的一個數(shù)據(jù)庫操作的實用工具，使用它可以方便地建立數(shù)據(jù)庫，操作的實用工具，使用它可以方便地建立數(shù)據(jù)庫，并對數(shù)據(jù)表的記錄進行增加、刪除、修改及查詢。并對數(shù)據(jù)表的記錄進行增加、刪

5、除、修改及查詢。vb默認的數(shù)據(jù)庫是默認的數(shù)據(jù)庫是access，擴展名是，擴展名是.mdb。visual basic程序設計教程81啟動可視化數(shù)據(jù)管理器圖啟動可視化數(shù)據(jù)管理器圖 在在vb ide中，打開中，打開“外接程序外接程序”菜單的菜單的“可視可視化數(shù)據(jù)管理器化數(shù)據(jù)管理器”命令，即打開可視命令，即打開可視化數(shù)據(jù)管理器的化數(shù)據(jù)管理器的“visdata”窗口，如圖所示。窗口，如圖所示。visual basic程序設計教程9visual basic程序設計教程103. 修改表結構修改表結構 “數(shù)據(jù)庫窗口數(shù)據(jù)庫窗口”快捷菜單中快捷菜單中“設計設計”命令命令 4. 輸入、編輯、刪除記錄輸入、編輯、刪除

6、記錄 在在“數(shù)據(jù)庫窗口數(shù)據(jù)庫窗口”中雙擊數(shù)據(jù)表中雙擊數(shù)據(jù)表visual basic程序設計教程1113.1.3 使用使用sqlsql語句語句結構化查詢語言（結構化查詢語言（sql）是一種操作關系數(shù)據(jù)庫的）是一種操作關系數(shù)據(jù)庫的工業(yè)標準語言。工業(yè)標準語言。sql由一系列由一系列sql語句組成。用戶語句組成。用戶可以在可以在“sql語句語句”窗口中輸入窗口中輸入sql語句，也可以語句，也可以在程序中使用在程序中使用sql語句中來實現(xiàn)各種功能。下面介語句中來實現(xiàn)各種功能。下面介紹紹sql的基本語句。的基本語句。visual basic程序設計教程121select語句。語句。select語句可以從一

7、個或多個表中選取特定的語句可以從一個或多個表中選取特定的行和列。該語句基本格式如下行和列。該語句基本格式如下：select 字段名列表字段名列表 from 表名表名 where 查詢條件查詢條件order by 排序字段排序字段asc|desc,【例】：【例】：elect 學號學號,姓名姓名,性別性別 from 學生基本情況表學生基本情況表 where 專業(yè)專業(yè)計算機計算機應用應用select * from 學生基本情況表學生基本情況表 where 性別性別女女 order by 專業(yè)專業(yè) visual basic程序設計教程132insert語句。語句。 insert語句用于向數(shù)據(jù)表中追加一

8、條記錄。語句格語句用于向數(shù)據(jù)表中追加一條記錄。語句格式如下：式如下： insert into 表名表名(字段列表字段列表) values(字段值表字段值表)例如例如 insert into 學生成績表學生成績表(學號學號,英語英語,程序設計程序設計) values(2001006,85,88)visual basic程序設計教程143delete語句。語句。 delete語句用于刪除指定條件的記錄。語句格式語句用于刪除指定條件的記錄。語句格式如下：如下： delete from表名表名 where條件條件 說明：默認說明：默認where子句，將刪除指定表中的所有子句，將刪除指定表中的所有記錄。

9、記錄。例如例如 delete from 學生成績表學生成績表 where 學號學號=2001006visual basic程序設計教程154update語句。語句。update語句用于修改指定條件的記錄。語句用于修改指定條件的記錄。 語句格式如下：語句格式如下： update 表名表名 set 字段字段=表達式表達式,字段字段=表達式表達式, where 條件條件 例如，修改學生基本情況表中學號為例如，修改學生基本情況表中學號為“2001005”的專業(yè)，可使用的的專業(yè)，可使用的update語句如下：語句如下： update 學生基本情況表學生基本情況表 set 專業(yè)專業(yè)=計算機應用計算機應用

10、where 學學=2001005visual basic程序設計教程16【例【例13-1】修改例】修改例11-1程序，用數(shù)據(jù)庫方法進行用戶名程序，用數(shù)據(jù)庫方法進行用戶名和密碼驗證。界面如圖所示，和密碼驗證。界面如圖所示， frmlogin窗體中添加了窗體中添加了一個一個data控件。控件。visual basic程序設計教程17 建立管理員表，在管理員表中添加記錄。建立管理員表，在管理員表中添加記錄。 data控件屬性設置控件屬性設置屬性屬性屬性值屬性值說明說明名稱名稱data1connectaccess 連接數(shù)據(jù)庫類型連接數(shù)據(jù)庫類型databasename學生學生.mdb數(shù)據(jù)庫名稱數(shù)據(jù)庫名稱

11、visiblefalse不可見不可見visual basic程序設計教程18 private sub cmdok_click() dim sql as string sql = select * from 管理員表管理員表 where 用戶名用戶名= + username.text + sql = sql + and 密碼密碼= + password.text + data1.recordsource = sql 用用sql語句返回記錄集語句返回記錄集 data1.refresh 刷新數(shù)據(jù)庫刷新數(shù)據(jù)庫 if not data1.recordset.eof and npass 3 then 在數(shù)

12、據(jù)庫中找到在數(shù)據(jù)庫中找到了對應的用戶名和密碼了對應的用戶名和密碼 frmlogin.hide frmmain.show else end if end subvisual basic程序設計教程191. 窗體上添加窗體上添加data控件控件 2. 三個重要屬性三個重要屬性connect：指定所連接的數(shù)據(jù)庫類型，默認為：指定所連接的數(shù)據(jù)庫類型，默認為accessdatabasename：選擇要訪問的數(shù)據(jù)庫文件：選擇要訪問的數(shù)據(jù)庫文件 recordsource：確定要訪問的數(shù)據(jù)來源：確定要訪問的數(shù)據(jù)來源(數(shù)據(jù)表或數(shù)據(jù)表或sql查詢語句查詢語句) 3. 其它常用屬性其它常用屬性recordsetty

13、pe：設置：設置記錄集記錄集的類型的類型readonly：設置是否以只讀方式打開數(shù)據(jù)庫：設置是否以只讀方式打開數(shù)據(jù)庫 visual basic程序設計教程2013.3.1 data控件的常用屬性控件的常用屬性 程序運行時，根據(jù)程序運行時，根據(jù)data控件設置的屬性打開控件設置的屬性打開數(shù)據(jù)庫，返回一個記錄集對象數(shù)據(jù)庫，返回一個記錄集對象(recordset)，recordset對象提供和物理數(shù)據(jù)庫相應的一組邏對象提供和物理數(shù)據(jù)庫相應的一組邏輯記錄。輯記錄。data控件對數(shù)據(jù)的操作主要是對控件對數(shù)據(jù)的操作主要是對recordset對象進行的，對象進行的，recordset對象也有自對象也有自己的

14、屬性和方法。己的屬性和方法。visual basic程序設計教程21屬性屬性說明說明bof記錄指針是否指向記錄指針是否指向recordset對象第一條記錄之前對象第一條記錄之前eof記錄指針是否指向記錄指針是否指向recordset對象最后一條記錄之后對象最后一條記錄之后recordcount返回返回recordset對象的記錄的個數(shù)對象的記錄的個數(shù)absoluteposition返回當前記錄的記錄號。取值范圍從返回當前記錄的記錄號。取值范圍從0開始，到開始，到recordcount-1。nomatch用用find查詢方法在表中查詢滿足某一條件的記錄，如果查詢方法在表中查詢滿足某一條件的記錄，

15、如果未找到符合條件的記錄，則該屬性值為未找到符合條件的記錄，則該屬性值為true，否則值為，否則值為false。fields記錄集中的字段，記錄集中的字段，fields(i)表示當前記錄的第表示當前記錄的第i個字段，個字段，i從從0開始；開始；fields(字段名字段名)表示當前記錄的指定字段表示當前記錄的指定字段visual basic程序設計教程2213.3.2 data控件和控件和recordset對象的常用方法對象的常用方法1data控件的常用方法控件的常用方法（1）refresh方法方法格式：格式：data控件名控件名.refresh在程序運行中，如改變了在程序運行中，如改變了dat

16、a控件的控件的connect、databasename、recordsource或或readonly等屬性等屬性的值，則必須調(diào)用的值，則必須調(diào)用refresh方法，使所作的更改生效。方法，使所作的更改生效。visual basic程序設計教程23（2）updaterecord方法方法格式：格式：data控件名控件名.updaterecord當用戶對數(shù)據(jù)庫作了修改后，調(diào)用此方法使所作的修當用戶對數(shù)據(jù)庫作了修改后，調(diào)用此方法使所作的修改生效。改生效。updaterecord 方法只保存那些來自被綁定方法只保存那些來自被綁定的控件。的控件。visual basic程序設計教程242recordset

17、對象的常用方法對象的常用方法（1）記錄的定位方法）記錄的定位方法格式：格式：data控件名控件名.recordset.方法名方法名功能：在記錄集上前后移動以改變當前記錄。其中方功能：在記錄集上前后移動以改變當前記錄。其中方法有：法有： movefirst：將記錄指針定位到第一條記錄。：將記錄指針定位到第一條記錄。 movelast：將記錄指針定位到最后一條記錄。：將記錄指針定位到最后一條記錄。 visual basic程序設計教程25movenext：將記錄指針定位到下一條記錄。：將記錄指針定位到下一條記錄。moveprevious： 將記錄指針定位到上一條記錄。將記錄指針定位到上一條記錄。（

18、2）update方法方法格式：格式：data控件名控件名.recordset.update功能：更新記錄內(nèi)容。通常在調(diào)用了功能：更新記錄內(nèi)容。通常在調(diào)用了addnew方法后，方法后，調(diào)用該方法。調(diào)用該方法。visual basic程序設計教程26（3）addnew方法方法格式：格式：data控件名控件名.recordset.addnew功能：添加一條新的空白記錄。用戶可以給當前記錄的功能：添加一條新的空白記錄。用戶可以給當前記錄的各字段賦值，然后調(diào)用各字段賦值，然后調(diào)用update方法對數(shù)據(jù)表更新，否則方法對數(shù)據(jù)表更新，否則用用addnew方法添加的記錄無效。例如：方法添加的記錄無效。例如：d

19、ata1.recordset.addnew data1.recordset.fields(0)=王剛王剛data1.recordset.updatevisual basic程序設計教程27（4）delete方法方法格式：格式：data控件名控件名.recordset.delete功能：刪除當前記錄。使用該方法刪除一條記錄后，功能：刪除當前記錄。使用該方法刪除一條記錄后，需用需用movenext方法將記錄指針移到下一條記錄。方法將記錄指針移到下一條記錄。visual basic程序設計教程28（5）edit方法方法格式：格式：data控件名控件名.recordset.edit功能：將當前記錄的內(nèi)

20、容進行修改之前，使用功能：將當前記錄的內(nèi)容進行修改之前，使用edit方法使記錄處于編輯狀態(tài)。與方法使記錄處于編輯狀態(tài)。與addnew方法類似，方法類似，必須再調(diào)用必須再調(diào)用update或或updaterecord方法來更新，方法來更新，才使用所作的修改生效。才使用所作的修改生效。visual basic程序設計教程29（6）記錄的查詢方法）記錄的查詢方法格式：格式：data控件名控件名.recordset.方法名方法名功能：在記錄集中查詢滿足條件的記錄。如果找到滿足條功能：在記錄集中查詢滿足條件的記錄。如果找到滿足條件的記錄，則記錄指針將定位在找到的記錄上。如果找不件的記錄，則記錄指針將定位在

21、找到的記錄上。如果找不到滿足條件的記錄，則記錄指針將定位記錄集的末尾。其到滿足條件的記錄，則記錄指針將定位記錄集的末尾。其中方法有：中方法有： findfirst：查詢滿足條件的第一條記錄。：查詢滿足條件的第一條記錄。 findlast：查詢滿足條件的最后一條記錄。：查詢滿足條件的最后一條記錄。 findnext：從當前記錄開始往后查找滿足條件的第一條記錄。：從當前記錄開始往后查找滿足條件的第一條記錄。 findprevious：從當前記錄開始往前查找滿足條件的第一條記錄。：從當前記錄開始往前查找滿足條件的第一條記錄。visual basic程序設計教程30 通常可以使用通?？梢允褂胒ind方

22、法查找某字段的值與方法查找某字段的值與一表達式的值相匹配的記錄，通過一表達式的值相匹配的記錄，通過nomatch屬性屬性判斷是否找到。例如，在判斷是否找到。例如，在“學生基本情況表學生基本情況表”中，中，查找第一條姓名為查找第一條姓名為“王東王東”的記錄，可以用如下的記錄，可以用如下的語句：的語句：data1.recordset.findfirst 姓名姓名王東王東if data1.recordset.nomatch then msgbox 數(shù)據(jù)表中沒有符合條件的記錄！數(shù)據(jù)表中沒有符合條件的記錄！end ifvisual basic程序設計教程3113.3.3 data控件的常用事件控件的常用

23、事件1validate事件事件在一條不同的記錄成為在一條不同的記錄成為當前記錄當前記錄之前，之前，update 方法之方法之前，或者前，或者delete、unload 或或 close 操作之前會引發(fā)操作之前會引發(fā)該事件。即將記錄指針從該事件。即將記錄指針從x記錄移到記錄移到y(tǒng)記錄時，引發(fā)該記錄時，引發(fā)該事件。引發(fā)該事件時，當前記錄仍為事件。引發(fā)該事件時，當前記錄仍為x記錄。記錄。validate事件過程的格式為：事件過程的格式為：private sub data1_validate (action as integer, save as integer)visual basic程序設計教程3

24、2其中，其中，action參數(shù)用來標識引發(fā)該事件的操作。借參數(shù)用來標識引發(fā)該事件的操作。借用該參數(shù)可以根據(jù)不同的操作作不同的處理。用該參數(shù)可以根據(jù)不同的操作作不同的處理。save參數(shù)是一個布爾表達式，用來表示是否保存已修改參數(shù)是一個布爾表達式，用來表示是否保存已修改的數(shù)據(jù)。如果該事件退出時的數(shù)據(jù)。如果該事件退出時 save 為為 true，則激活，則激活 edit 和和 updaterecord 方法。方法。2reposition事件事件在一條記錄成為當前記錄之后引發(fā)該事件。即將記在一條記錄成為當前記錄之后引發(fā)該事件。即將記錄指針從錄指針從x記錄移到記錄移到y(tǒng)記錄時，引發(fā)該事件。引發(fā)此記錄時，

25、引發(fā)該事件。引發(fā)此事件時，當前記錄是事件時，當前記錄是y記錄。記錄。 visual basic程序設計教程33綁定：通過對普通控件的屬性設置，使得這些控件與綁定：通過對普通控件的屬性設置，使得這些控件與data控件記錄集中的字段建立鏈接關系?？丶涗浖械淖侄谓㈡溄雨P系。1. data的綁定控件的綁定控件 具有具有datasource和和datafield屬性的控件可以和屬性的控件可以和data控件進行綁定，如標簽、文本框等。控件進行綁定，如標簽、文本框等。2. 綁定控件的屬性設置綁定控件的屬性設置datasource：選擇所綁定的：選擇所綁定的data控件控件 datafield：確定需顯

26、示或更新的數(shù)據(jù)表字段，即：確定需顯示或更新的數(shù)據(jù)表字段，即data控件連接的數(shù)據(jù)表字段控件連接的數(shù)據(jù)表字段 visual basic程序設計教程34【例【例13-2】設計一個程序，管理】設計一個程序，管理“學生學生.mdb”數(shù)據(jù)庫中數(shù)據(jù)庫中“學學生基本情況表生基本情況表”的記錄的內(nèi)容，此數(shù)據(jù)表中的記錄如表的記錄的內(nèi)容，此數(shù)據(jù)表中的記錄如表13.1所示。程序運行的界面如圖所示。所示。程序運行的界面如圖所示。visual basic程序設計教程35分析：程序運行時要顯示如圖的界面，相應文本框分析：程序運行時要顯示如圖的界面，相應文本框需要分別綁定到數(shù)據(jù)控件，同時由于文本框控件已需要分別綁定到數(shù)據(jù)控

27、件，同時由于文本框控件已綁定，文本框中任何數(shù)據(jù)的修改都會直接改變數(shù)據(jù)綁定，文本框中任何數(shù)據(jù)的修改都會直接改變數(shù)據(jù)庫中的數(shù)據(jù)，因此需要對已更改的數(shù)據(jù)作出判斷，庫中的數(shù)據(jù)，因此需要對已更改的數(shù)據(jù)作出判斷，這一過程可以通過這一過程可以通過data控件的控件的validate事件完成。事件完成。另外，通過另外，通過data控件的控件的reposition事件設置它的事件設置它的caption屬性。數(shù)據(jù)控件屬性。數(shù)據(jù)控件data1和文本框的屬性設和文本框的屬性設置如表置如表13.9所示。所示。visual basic程序設計教程36對象對象屬性屬性屬性值屬性值data1connectaccessdata

28、basename學生數(shù)據(jù)庫所在路徑及名稱學生數(shù)據(jù)庫所在路徑及名稱(學生學生.mdb)recordsource學生基本情況表學生基本情況表text1text6datasourcedata1datafield分別為：學號、專業(yè)、姓名、性別和籍貫分別為：學號、專業(yè)、姓名、性別和籍貫visual basic程序設計教程37ado：activex data objects(activex數(shù)據(jù)對象數(shù)據(jù)對象) 創(chuàng)建創(chuàng)建ado控件控件 (1) “工程工程”部件部件”(2) 點擊工具箱中，點擊工具箱中， 在窗體上畫出在窗體上畫出ado對象對象visual basic程序設計教程3813.5.2 adoado控件

29、的屬性、方法和事件控件的屬性、方法和事件設置窗體上設置窗體上ado對象的對象的connectionstring屬性屬性visual basic程序設計教程39 visual basic程序設計教程40設置窗體上設置窗體上ado對象的對象的recordsource屬性屬性 選擇數(shù)據(jù)表為記錄源選擇數(shù)據(jù)表為記錄源 由由sql查詢來確定記錄源查詢來確定記錄源visual basic程序設計教程41 ado控件的方法和事件控件的方法和事件 ado控件與控件與data控件類似，對數(shù)據(jù)的操作主要控件類似，對數(shù)據(jù)的操作主要通過通過recordset對象的方法來實現(xiàn)。對象的方法來實現(xiàn)。 ado控件提供可響應的事

30、件較多，常用的是控件提供可響應的事件較多，常用的是willmove事件和事件和movecomplete事件。當用某種方事件。當用某種方法改變紀錄集的指針使其從一條記錄移到另一條記錄，法改變紀錄集的指針使其從一條記錄移到另一條記錄，產(chǎn)生產(chǎn)生willmove事件。當一條記錄成為當前記錄后，事件。當一條記錄成為當前記錄后，產(chǎn)生產(chǎn)生movecomplete事件，它在事件，它在willmove事件之后事件之后發(fā)生。發(fā)生。visual basic程序設計教程42datagrid控件與控件與ado控件綁定后，可一次顯示多條控件綁定后，可一次顯示多條記錄，并允許對顯示的記錄進行編輯修改，并可將修記錄，并允許對顯示的記錄進行編輯修改，并可將修改的結果自動更新到數(shù)據(jù)庫中。改的結果自動更新到數(shù)據(jù)庫中。使用使用datagrid控件：控件： (1) “工程工程”部件部件” (2) 點擊工具箱中點擊工具箱中 (3) 在窗體上畫出在窗體上畫出 datagrid對象對象visual basic程序設計教程43【例【例13-3】用】用datagrid控件顯示學生基本情況表中控件顯示學生基本情況表中的數(shù)據(jù)，界面如圖所示的數(shù)據(jù)，界面如圖所示 visual basic程序設計教程44【操作步驟】【操作步驟】在窗體上放置一個在窗體上