【文章內(nèi)容簡(jiǎn)介】 件 需要指出是，數(shù)據(jù)控件本身并不直接顯示記錄集中的數(shù)據(jù)，而是通過(guò)與它綁定的控件（也稱綁定控件）來(lái)實(shí)現(xiàn)。常用的綁定控件有文本框、標(biāo)簽、復(fù)選框、圖片框和圖象框等。數(shù)據(jù)控件用于綁定數(shù)據(jù)庫(kù)和數(shù)據(jù)庫(kù)中的某個(gè)數(shù)據(jù)表，綁定控件先與數(shù)據(jù)控件進(jìn)行綁定，再綁定數(shù)據(jù)表中的某個(gè)列。所以要使綁定控件能與數(shù)據(jù)庫(kù)進(jìn)行連接，必須設(shè)置它的兩個(gè)屬性： ① DataSource屬性：該屬性通過(guò)指定一個(gè)有效的數(shù)據(jù)控件使綁定控件連接到一個(gè)數(shù)據(jù)庫(kù)上。 ② DataField屬性：該屬性設(shè)置數(shù)據(jù)庫(kù)有效的字段與綁定控件建立聯(lián)系。 程序設(shè)計(jì)界面 Data數(shù)據(jù)控件 創(chuàng)建步驟： ① 選擇“文件”菜單中的“新建工程”，在隨后出現(xiàn)的“新建工程”對(duì)話框中選擇“標(biāo)準(zhǔn) EXE”，單擊“確定”按鈕。 ② 設(shè)置窗體的 Caption屬性為“ StuInfo數(shù)據(jù)表基本信息瀏覽”。 ③ 在窗體中添加 7個(gè)標(biāo)簽框、 7個(gè)文本框和一個(gè)命令按鈕，并按圖 命令按鈕的 Caption屬性。 ④ 在窗體上添加一個(gè) Data控件，并按表 置屬性。 Data數(shù)據(jù)控件 屬性 值 Caption StuInfo表數(shù)據(jù)控件 Name Data1 Connect Access RecordsetType 1Dynaset DatabaseName RecordSource StuInfo Name Text DataSource DataField TxtID 空 Data1 StuID TxtName 空 Data1 StuName TxtSex 空 Data1 StuSex TxtBirthDate 空 Data1 StuBirthDate TxtClass 空 Data1 StuClass TxtFrom 空 Data1 StuFrom TxtTel 空 Data1 StuTel Data控件的屬性 綁定控件文本框的屬性 Data數(shù)據(jù)控件 ⑤ 設(shè)置綁定控件文本框的屬性，如表 ： ⑥修改命令按鈕的 Name屬性值為“退出”，程序代碼如下： Private Sub 退出 _Click() Unload Me End End Sub ⑦ 運(yùn)行該應(yīng)用程序，出現(xiàn)如圖 ，單擊 Data控件上的左右箭頭可以瀏覽“ StuInfo”數(shù)據(jù)表中的記錄。 Data數(shù)據(jù)控件 程序運(yùn)行界面 Data數(shù)據(jù)控件 Data數(shù)據(jù)控件常用的事件 Reposition事件 Vaildate事件 Errors事件 Data數(shù)據(jù)控件 Data數(shù)據(jù)控件常用的事件 [例 72] 修改例 71的應(yīng)用程序，編一 Reposition事件過(guò)程，使得當(dāng)單擊數(shù)據(jù)控件對(duì)象上的箭頭時(shí)，在數(shù)據(jù)控件的標(biāo)題區(qū)顯示記錄的序號(hào)。 創(chuàng)建步驟 ： 添加 Reposition事件過(guò)程 運(yùn)行該應(yīng)用程序，出現(xiàn)如圖 ，單擊 Data控件上的箭頭可以瀏覽“ StuInfo”數(shù)據(jù)表及其記錄序號(hào) Data數(shù)據(jù)控件 Data數(shù)據(jù)控件常用的事件 [例 73] 在例 72的應(yīng)用程序中，添加 Vaildate事件，使得用戶在瀏覽“ StuInfo”數(shù)據(jù)表時(shí)不能改變學(xué)號(hào)的位數(shù)。 創(chuàng)建步驟： Vaildate事件的程序代碼如下： Private Sub Data1_Validate(Action As Integer, Save As Integer) If Save And Len(Trim(TxtID)) 6 Then MsgBox 學(xué)號(hào)必須為 6位！ , vbCritical, 警告框 Action = 0 End If End Sub 運(yùn)行該應(yīng)用程序時(shí)，如果用戶改變了“ StuInfo”數(shù)據(jù)表的學(xué)號(hào)位數(shù)，然后按了數(shù)據(jù)控件上的任一個(gè)按鈕，會(huì)出現(xiàn)如右圖所示的對(duì)話框。 Data數(shù)據(jù)控件 Data數(shù)據(jù)控件常用的方法 Refresh方法 UpdateControls方法 UpdateRecord方法 Data數(shù)據(jù)控件 數(shù)據(jù)控件的記錄集（ RecordSet對(duì)象） RecordSet對(duì)象的常用屬性 RecordSet對(duì)象的常用方法 Data數(shù)據(jù)控件 RecordSet對(duì)象的常用屬性 Enabled屬性 EOF（ End Of File）屬性 BOF（ Beginning Of File）屬性 RecordCount屬性 Data數(shù)據(jù)控件 RecordCount屬性 該屬性用于統(tǒng)計(jì) RecordSet對(duì)象的記錄個(gè)數(shù)。 [例 75] 修改例 73的應(yīng)用程 序，當(dāng)打開(kāi)該應(yīng)用程序 時(shí)顯示 “ StuInfo”數(shù)據(jù)表記錄的個(gè)數(shù)。 創(chuàng)建步驟： 在窗體上添加兩個(gè)標(biāo)簽，如右圖所示。 添加 Activate事件過(guò)程，代碼如下： Private Sub Form_Activate() = End Sub 運(yùn)行該應(yīng)用程序，“ StuInfo”數(shù)據(jù)表記錄個(gè)數(shù)顯示在標(biāo)簽框中 。 Data數(shù)據(jù)控件 RecordSet對(duì)象的常用方法 Move方法 AddNew方法 Delete方法 Edit方法 Update方法 Data數(shù)據(jù)控件 Move方法 本方法用于移動(dòng) RecordSet對(duì)象的記錄指針，有 5種移動(dòng)記錄指針的方法： MoveFirst方法 MoveLast方法 MovePrevious方法 MoveNext方法 Move(n)方法 Data數(shù)據(jù)控件 Move(n)方法 Move方法的語(yǔ)法格式如下： 數(shù)據(jù)控件名 . [例 76] 修改例 73的應(yīng)用程序，界面如圖，要求通過(guò) Move方法來(lái)移動(dòng)該應(yīng)用程序的記錄。 創(chuàng)建步驟：分為三部 Data數(shù)據(jù)控件 AddNew方法 本方法用于清除數(shù)據(jù)緩沖區(qū)中的信息，并將當(dāng)前記錄指針移到最后，為添加新記錄作好準(zhǔn)備。 語(yǔ)法格式如下： 數(shù)據(jù)控件名 . 調(diào)用 AddNew方法。清空數(shù)據(jù)緩沖區(qū)，為增加數(shù)據(jù)作準(zhǔn)備。 給各個(gè)字段賦值。有兩種方法可以使用：一種方法，直接在綁定控件中輸入各字段的值；另一種方法，可使用語(yǔ)句： 數(shù)據(jù)控件名 .(”字段名” )=值。 調(diào)用 Update方法。將數(shù)據(jù)緩沖區(qū)中的數(shù)據(jù)寫入數(shù)據(jù)表。 Data數(shù)據(jù)控件 Delete方法 刪除記錄中的當(dāng)前記錄，但記錄指 針不動(dòng)，它仍是當(dāng)前記錄 語(yǔ)句格式如下： 數(shù)據(jù)控件名 . 定位被刪除的記錄使之成為當(dāng)前記錄。 調(diào)用 Delete方法，刪除當(dāng)前記錄。 移動(dòng)記錄指針。 Data數(shù)據(jù)控件 Edit方法 用于將當(dāng)前記錄復(fù)制到數(shù)據(jù)緩沖區(qū)以便編輯。 語(yǔ)法格式如下： 數(shù)據(jù)控件名 . 注意：編輯一條記錄需分四步完成： 定位需編輯的記錄使之成為當(dāng)前記錄。 調(diào)用 Edit方法。 修改各需要修改的字段。 調(diào)用 Update方法，確定所做的修改。 Data數(shù)據(jù)控件 Update方法 將數(shù)據(jù)緩沖區(qū)的內(nèi)容送到數(shù)據(jù)庫(kù)中。 語(yǔ)法格式如下： 數(shù)據(jù)控件名 . [例 77] 修改例 76的應(yīng)用程序，在窗口中增 加五個(gè)命令按鈕，界面如圖 。命令按鈕的事件過(guò)程要求如下： 程序開(kāi)始運(yùn)行時(shí)， “確認(rèn)”和“取消”按鈕是不可用的； 單擊“添加記錄”或“修改記錄”按鈕后，只有“確認(rèn)”和“取消”按鈕可用； 單擊“確認(rèn)”或“取消”按鈕后，按鈕的狀態(tài)又回到程序開(kāi)始運(yùn)行時(shí)的狀態(tài) 在數(shù)據(jù)控件中使用 SQL查詢 SQL語(yǔ)言以其豐富的功能、方便靈活的使用方法、簡(jiǎn)潔的語(yǔ)言等特點(diǎn)，贏得了廣大計(jì)算機(jī)用戶的歡迎。 SQL語(yǔ)言的查詢語(yǔ)句是SQL的精華所在，查詢的動(dòng)詞只有一個(gè) SELECT，查詢的語(yǔ)法也很簡(jiǎn)單。但是，通過(guò)改變查詢條件和查詢方式， SQL查詢語(yǔ)句可以完成多種查詢?nèi)蝿?wù)。 在數(shù)據(jù)控件中使用 SQL查詢 在數(shù)據(jù)控件中可以通過(guò)將 SELECT語(yǔ)句字符串賦給 RecordSource屬性來(lái)實(shí)現(xiàn)查詢。查詢過(guò)程可以通過(guò)以下步驟來(lái)完成： 根據(jù)查詢的條件，給出實(shí)現(xiàn)查詢的 SELECT語(yǔ)句字符串（一般賦值給某個(gè)變量）； 將 SELECT語(yǔ)句字符串賦值給數(shù)據(jù)控件的RecordSource屬性； 執(zhí)行數(shù)據(jù)控件的 Refresh方法。 注意：當(dāng)查詢條件中包含變量時(shí)，該變量要用兩個(gè)單引號(hào)括起來(lái)。 在數(shù)據(jù)控件中使用 SQL查詢 [例 78] 修改例 77的應(yīng)用程序，在窗體中增加二個(gè)命令按鈕，界面如圖 所示。命令按鈕的事件過(guò)程要求如下： 程序開(kāi)始運(yùn)行時(shí)，“查詢結(jié)束”、“確認(rèn)”和“取消”按鈕無(wú)效； 單擊“查詢”按鈕后，只有“查詢結(jié)束”可用； 單擊“查詢結(jié)束”按鈕后，按鈕的狀態(tài)又回到程序開(kāi)始運(yùn)行時(shí)的狀態(tài)； 數(shù)據(jù)綁定控件 在 Visual Basic 直接顯示記錄集中的數(shù)據(jù)，必須通過(guò)可以與數(shù)據(jù)控件進(jìn)行綁定的控件來(lái)實(shí)現(xiàn)。 那些可以與數(shù)據(jù)控件進(jìn)行綁定，并顯示記錄集中數(shù)據(jù)的控件稱為數(shù)據(jù)綁定控件。 常用的標(biāo)準(zhǔn)數(shù)據(jù)綁定控件有文本框、標(biāo)簽框、復(fù)選框、圖片框和圖象框等，另外 Visual Basic 到工程中的 ActiveX數(shù)據(jù)綁定控件 。 數(shù)據(jù)綁定控件 Datasource屬性 Row 屬性 Rows屬性 Col屬性 Cols 屬性 FixedCols屬性 FixedRows 屬性 RowHeight屬性 ColWidth屬性 GridLine屬性 Scrollbars屬性 Text屬性 Picture屬性 大多數(shù)數(shù)據(jù)綁定控件都是讀者比較熟悉的常用控件，只需對(duì) DataSource和 DataField這兩個(gè)屬性進(jìn)行設(shè)置即可使用。 ActiveX數(shù)據(jù)綁定控件 Dblist和 DBCombo同標(biāo)準(zhǔn)控件的列表框和組合框類似，可以給用戶提供選項(xiàng)列表，只是其選項(xiàng)從記錄集中獲得。 ActiveX數(shù)據(jù)綁定控件MSFlexGrid使用非常廣泛，MSFlexGrid控件除具有Name、 Caption、 Visible等大多數(shù)控件都擁有的屬性外，還具有以下幾個(gè)與顯示數(shù)據(jù)有關(guān)的屬性： 數(shù)據(jù)綁定控件 [例 710] 修改“例 72”應(yīng)用程序，在窗體中增加一個(gè) Data控件和MSFlexGrid控件，界面如圖 。要求當(dāng) StuInfo數(shù)據(jù)表記錄發(fā)生變化時(shí)，在MSFlexGrid控件中顯示該學(xué)生的課程成績(jī)。 圖 “例 710” 初始界面 修改步驟：三個(gè)步驟 小 結(jié) 小結(jié) Data數(shù)據(jù)控件是 Visual Basic 問(wèn)數(shù)據(jù)庫(kù)的對(duì)象，它是通過(guò) Jet數(shù)據(jù)庫(kù)引擎接口實(shí)現(xiàn)數(shù)據(jù)訪問(wèn)的。 Data數(shù)據(jù)控件可以將 Visual Basic ，并提供有效的、不需編程即能訪問(wèn)數(shù)據(jù)庫(kù)的功能。其工作原理是：通過(guò)設(shè)置數(shù)據(jù)控件的屬性，將數(shù)據(jù)控件與一個(gè)特定的數(shù)據(jù)庫(kù)及其中的數(shù)據(jù)表連接起來(lái)，然后通過(guò)數(shù)據(jù)綁定控件在窗體上顯示數(shù)據(jù)庫(kù)中的相應(yīng)數(shù)據(jù)。本章主要介紹 Data數(shù)據(jù)控件的使用方法，數(shù)據(jù)控件的記錄集（ RecordSet對(duì)象）， SQL查詢?cè)跀?shù)據(jù)控件中的使用及數(shù)據(jù)綁定控件。 習(xí)題 （ P 習(xí)題） 第 8章 使用 DAO訪問(wèn)數(shù)據(jù)庫(kù) DAO層次結(jié)構(gòu) DAO對(duì)象 DAO編程實(shí)例 小結(jié)和習(xí)題 DAO層次結(jié)構(gòu) DAO提供兩種不同的編程模型結(jié)構(gòu)： Microsoft Jet Workspaces DAO模型 ODBC Direct Workspaces DAO模型。 數(shù)據(jù)訪問(wèn)對(duì)象模型是 Jet為數(shù)據(jù)庫(kù)引擎的面向?qū)ο蟮慕涌凇Ｓ梢幌盗袛?shù)據(jù)庫(kù)對(duì)象和對(duì)象的集合按一定的層次結(jié)構(gòu)組成。其層次結(jié)構(gòu)和關(guān)系數(shù)據(jù)庫(kù)的邏輯視圖相符合。數(shù)據(jù)訪問(wèn)對(duì)象類以分層結(jié)構(gòu)來(lái)組織，其中的大多數(shù)類屬于集合類。在分層結(jié)構(gòu)中，它又屬于其上層的另一個(gè)類。DAO的層次結(jié)構(gòu)如圖 。 DAO層次結(jié)構(gòu) 圖 DAO層次結(jié)構(gòu)模型圖 DAO對(duì)象 DBEngine對(duì)象 Workspace對(duì)象 Database對(duì)象 TableDef對(duì)象 Recordset對(duì)象 QueryDef對(duì)象 Field對(duì)象 DAO對(duì)象 DBEn