【正文】 就可以對(duì)表中的數(shù)據(jù)進(jìn)行有條件或無(wú)條件的查詢。 2． 錄入數(shù)據(jù) 數(shù)據(jù)表結(jié)構(gòu)建立好之后，就可以向表中輸入數(shù)據(jù)了，數(shù)據(jù)管理器提供了簡(jiǎn)單的數(shù)據(jù)錄入功能。單擊 “添加索引 ”按鈕，會(huì)出現(xiàn)如圖 所示的對(duì)話框，通過(guò)此對(duì)話框可以將數(shù)據(jù)表的某些字段設(shè)置為索引。 我們首先建立基本情況表。 9． 2． 2 具體實(shí)現(xiàn) 1． 建立數(shù)據(jù)庫(kù) 對(duì)數(shù)據(jù)管理器的基本功能有了初步的認(rèn)識(shí)后，我們看一下如何利用它來(lái)建立數(shù)據(jù)庫(kù)。 （ 2） 數(shù)據(jù)群組按鈕 工具欄的中間一組按鈕。 （ 1） 類型群組按鈕 工具欄的第一組按鈕，它可以設(shè)置記錄集的訪問(wèn) 方式，具體為： ① 表類型記錄集按鈕 (最左邊的按鈕 )：當(dāng)以這種方式打開數(shù)據(jù)庫(kù)中的數(shù)據(jù)時(shí)，所進(jìn)行的增、刪、改、查等操作都是直接更新數(shù)據(jù)庫(kù)中的數(shù)據(jù)。 我們可以看到，在這個(gè) MDI 窗口內(nèi)包含兩個(gè)子窗口：數(shù)據(jù)庫(kù)窗口和 SQL 語(yǔ)句窗口。凡是 VB 有關(guān)數(shù)據(jù)庫(kù)的操作，比如數(shù)據(jù)庫(kù)結(jié)構(gòu)的建立、記錄的添加及修改以及用 ODBC連接到服務(wù)器端的數(shù)據(jù)庫(kù)如 SQL Server，都可以利用此工具來(lái)完成。 （ 4）數(shù)據(jù)庫(kù)應(yīng)用程序：像 FoxPro、 dBase 或 ODBC 客戶機(jī) /服務(wù)器應(yīng)用程序這樣的產(chǎn)品，可以作為外部數(shù)據(jù)庫(kù)， VB 可通過(guò) ISAM 或 ODBC 驅(qū)動(dòng)程序來(lái)訪問(wèn)這些數(shù)據(jù)庫(kù)。在 VB 中，通過(guò)連接到 ODBC 數(shù)據(jù)源，如 Microsoft SQL Server 等，可直接把查詢傳遞給服務(wù)器數(shù)據(jù)庫(kù)引擎，就可以創(chuàng)建客戶機(jī) /服務(wù)器應(yīng)用程序。數(shù)據(jù)庫(kù)引擎可以同時(shí)對(duì)多個(gè)客戶機(jī)的應(yīng)用程序提供服務(wù)、操作數(shù)據(jù)庫(kù)并對(duì)每個(gè)本地應(yīng)用程序返回所請(qǐng)求的數(shù)據(jù)庫(kù) 數(shù)據(jù)庫(kù)引擎 用戶界面 數(shù)據(jù)庫(kù) 數(shù)據(jù)庫(kù)引擎 數(shù)據(jù)庫(kù) 187 記錄。例如，數(shù)據(jù)庫(kù)可以駐留在中央服務(wù)器上，而用戶界面 (即應(yīng)用程序 )則駐留在幾個(gè)客戶機(jī)上，讓許多用戶訪問(wèn)相同的數(shù)據(jù)。但無(wú)論在什么情況下，數(shù)據(jù)庫(kù)本質(zhì)上都是被動(dòng)的，它包含數(shù)據(jù)但不對(duì)數(shù)據(jù)作任何操作。 （ 3） 數(shù)據(jù)庫(kù) 數(shù)據(jù)庫(kù)是包含數(shù)據(jù)庫(kù)表的一個(gè)或多個(gè)文件。它把應(yīng)用程序的請(qǐng)求翻譯成對(duì) .mdb(Access 文件后綴 )文件或其他數(shù)據(jù)庫(kù)的物理操作。 （ 1） 用戶界面和應(yīng)用程序代碼 用戶界面是用戶所看見的用于交互的界面，它包括顯示數(shù)據(jù)并允許用戶查 看或更新數(shù)據(jù)的窗體。 1． VB數(shù)據(jù)庫(kù)應(yīng)用程序的組成 VB 數(shù)據(jù)庫(kù)應(yīng)用程序包含三部分，如圖 所示。在 VB 中可以創(chuàng)建和操作所有這些格式的數(shù)據(jù)庫(kù)，也可以訪問(wèn)文本文件數(shù)據(jù)庫(kù)和 Excel 或 Lotus l23 電子表格文件。用這些對(duì)象的屬性和方法來(lái)實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)的操作。 VB 提供了兩種與 Jet 數(shù)據(jù)庫(kù)引擎接口的方法： Data 控件(Data Control)和數(shù)據(jù)訪問(wèn)對(duì)象 (DAO)。 Data 控件只提供了有限的不需編程就能訪問(wèn)現(xiàn)存數(shù)據(jù)庫(kù)的功能，而 DAO 模型則是全面控制數(shù)據(jù)庫(kù)的完整編程接口。 VB 通過(guò) DAO 和 Jet 引擎可以識(shí)別三類數(shù)據(jù)庫(kù)： 1. VB 數(shù)據(jù)庫(kù)：也稱為本地?cái)?shù)據(jù)庫(kù)，這類數(shù)據(jù)庫(kù)文件使用與 Microsoft Access 相同的格式。 3. ODBC 數(shù)據(jù)庫(kù)：包括符合 ODBC 標(biāo)準(zhǔn)的客戶機(jī)／服務(wù)器數(shù)據(jù)庫(kù)，如 Microsoft SQL Server。 圖 VB 數(shù)據(jù)庫(kù)應(yīng)用程序的組成 用戶界面 Jet 引擎 數(shù)據(jù)庫(kù) 186 數(shù)據(jù)庫(kù)引擎位于程序和物理數(shù)據(jù)庫(kù)文件之間。驅(qū)動(dòng)這些窗體的是應(yīng)用程序的 VB 代碼，包括用來(lái)請(qǐng)求數(shù)據(jù)庫(kù)服務(wù)的數(shù)據(jù)訪問(wèn)對(duì)象和方法，比如添加或刪除記錄，或執(zhí)行查詢等。它真正讀取、寫入和修改數(shù)據(jù)庫(kù)，并處理所有內(nèi)部事務(wù)，如索引、鎖定、安全性和引用完整性。對(duì)于本地 VB 或 Access 數(shù)據(jù)庫(kù)來(lái)說(shuō)，就是． mdb 文件。數(shù)據(jù)操作是數(shù)據(jù)庫(kù)引擎的任務(wù)。 脫離開應(yīng)用程序本身，將數(shù)據(jù)存放在另一臺(tái)機(jī)器上的數(shù)據(jù)庫(kù)應(yīng)用程序，有遠(yuǎn)程數(shù)據(jù)庫(kù)和客戶機(jī) /服務(wù)器數(shù)據(jù)庫(kù)兩種結(jié)構(gòu)。在遠(yuǎn)程系統(tǒng)中，數(shù)據(jù)庫(kù)引擎與用戶應(yīng)用程序在相同的計(jì)算機(jī)上，只有數(shù)據(jù)庫(kù)駐留在遠(yuǎn)程計(jì)算機(jī)上。 9． 2 本地?cái)?shù)據(jù)庫(kù)設(shè)計(jì) （ ACCESS） VB 中創(chuàng)建數(shù)據(jù)庫(kù)的途徑主要有： （ 1）可視化數(shù)據(jù)管理器：使用可視化數(shù)據(jù)管理器，不需要編程就可以創(chuàng)建 Jet 數(shù)據(jù)庫(kù)。 9． 2． 1 可視化數(shù)據(jù)管理器 數(shù)據(jù)管理器 (Data Manager)是 VB 的一個(gè) 傳統(tǒng) 成員，它可以用于快速地建立數(shù)據(jù)庫(kù)結(jié)構(gòu)及數(shù)據(jù)庫(kù)內(nèi)容。 1． 啟動(dòng)數(shù)據(jù)管理器 選擇 “外接程序 ”菜單下的 “可視化數(shù)據(jù)管理器 ”項(xiàng)就可以啟動(dòng)數(shù)據(jù)管理器，打開 “VisData”窗口。數(shù)據(jù)庫(kù)窗口顯示了數(shù)據(jù)庫(kù)的結(jié)構(gòu)，包括表名、列名、索引。 ② 動(dòng)態(tài)集類型記錄集按鈕 (中間的按鈕 )：使用這種方式是先將指定的數(shù)據(jù)打開并讀入到內(nèi)存中，當(dāng)用戶進(jìn)行數(shù)據(jù)編輯操作時(shí)，不直接影響數(shù)據(jù)庫(kù)中的數(shù)據(jù)。用于指定數(shù)據(jù)表中數(shù)據(jù)的顯示方式。我 189 們這里所建立的數(shù)據(jù)庫(kù) (學(xué)生數(shù)據(jù)庫(kù) )中各表如下： （ 1） 建立數(shù)據(jù)庫(kù)結(jié)構(gòu) 單擊 “文件 ”菜單中的 “新建 ”命令，在 “新建 ”級(jí)聯(lián)菜單中選擇 “Microsoft Access”，再選擇 “版本 MDB”項(xiàng)，在 “選擇要?jiǎng)?chuàng)建的 Microsoft Access 數(shù)據(jù)庫(kù) ”窗口中選定新建數(shù)據(jù)庫(kù)的路徑并輸入數(shù)據(jù)庫(kù)名，這里為 。在 “表名稱 ”中輸入 “基本情況 ”，然后添加基本情況表的字段，單擊 “添加字 段 ”按鈕，出現(xiàn) “添加字段 ”對(duì)話框，在此對(duì)話框中填入 “學(xué)號(hào) ”字段的信息。在 “名稱 ”字段中輸入索引的名稱，然后從下邊的 “索引的字段 ”列表中選擇作為索引的字段，我們這里選擇的是 “學(xué)號(hào) ”。 首先在工具欄上選定 DBGrid 顯示風(fēng)格的按鈕，然后在要錄入數(shù)據(jù)的數(shù)據(jù)表上單擊鼠標(biāo)右鍵，選擇 “打開 ”選項(xiàng)，則出現(xiàn)以網(wǎng)格風(fēng)格顯示數(shù)據(jù)的窗口，如果此表中已有數(shù)據(jù)，則此時(shí)會(huì)顯示出此表中的全部數(shù)據(jù)；若此表中無(wú)數(shù)據(jù)，則會(huì)顯示出一個(gè)空表。 VB 的數(shù)據(jù)管理器提供了一個(gè)圖形化的設(shè)置查詢條件的窗口 ——查詢生成器。 (3)單擊 “運(yùn)算符 ”列表，選擇 “=”。注意，這里所選的字段就是我們?cè)诓樵兘Y(jié)果中要看的字段。要利用數(shù)據(jù)控件返回?cái)?shù)據(jù)庫(kù)中記錄的集合，應(yīng)先在窗體上畫出控件，再通過(guò)它的三個(gè)基本屬性 Connect、 DatabaseName 和 RecordSource設(shè)置要訪問(wèn)的數(shù)據(jù)資源。 例如 ， 要連接一個(gè) Microsoft Access 的數(shù)據(jù)庫(kù) C:\，則設(shè)置 DatabaseName=”C:＼ ， Access 數(shù)據(jù)庫(kù)的所有表都包含在一個(gè) MDB 文件中。 例如 ， 要指定 數(shù)據(jù)庫(kù)中的基本情況表，則 RecordSource=”基本情況 ”。屬性的取值如表 所示。 (2)DataField 屬性 DataField 屬性設(shè)置數(shù)據(jù)庫(kù)有效的字段與綁定控件建立聯(lián)系。數(shù)據(jù)控件 在裝入數(shù)據(jù)庫(kù)時(shí)，它把記錄集的第一個(gè)記錄作為當(dāng)前記錄。 表 學(xué)生基本情況表結(jié)構(gòu) 字段名 類型 寬度 學(xué)號(hào) Text 6 姓名 Text 10 性別 Text 2 專業(yè) Text 10 出生年月 Date 8 照片 Binary 0 表 學(xué)生成績(jī)表結(jié)構(gòu) 字段名 類型 寬度 學(xué)號(hào) Text 6 課程 Text 10 成績(jī) Long 4 學(xué)期 Text 2 用可視化數(shù)據(jù)管理器建立以上設(shè)計(jì)的數(shù)據(jù)庫(kù)及其表，表中數(shù)據(jù)可自行錄入。本例中不需要編寫任何代碼，具體操作步驟如下： (1)參考如圖 所示窗體，在窗體上放置 1 個(gè)數(shù)據(jù)控件，一個(gè)圖形框、 5 個(gè)文本框 和 5個(gè)標(biāo)簽控件。通過(guò)單擊這些綁定控件的 DataField 屬性上的 “…” 按鈕，將下拉出基本情況表所含的全部字段，分別選擇與其對(duì)應(yīng)的字段照 片、學(xué)號(hào)、姓名、性別、專業(yè)和出生年月，使之建立約束關(guān)系。單擊最左邊的按鈕顯示第 l 條記錄；單擊其旁邊的按鈕顯示上一條記錄；單擊最右邊的按鈕顯示最后一條記錄；單擊其旁邊的按鈕顯示下 —條記錄。當(dāng)把數(shù)據(jù)網(wǎng)格控件的 DataSource 屬性設(shè)置為一個(gè) Data 控件時(shí)，網(wǎng)格控件會(huì)被自動(dòng)地填充，并且其列標(biāo)題會(huì)用 Data 控件的記錄集里的數(shù)據(jù)自動(dòng)地設(shè)置。請(qǐng)讀者自行比較不可卷動(dòng)列屬性FixedCols=0 與 FixedCols=1 的區(qū)別。例如，在例 的 Data1_Reposition 事件中加入如下代碼： Private Sub Data1_Reposition() = + 1 End Sub 這里， Recordset 為記錄集對(duì)象， AbsolutePosition 屬性指示當(dāng)前指針值 (從 0 開始 )。它通過(guò) Save 參 數(shù) (True或 False)判斷是否有數(shù)據(jù)發(fā)生變化， Action 參數(shù)判斷哪 —種操作觸發(fā)了 Validate 事件。如果 Text3 內(nèi)的 數(shù)據(jù)發(fā)生變化，則 Save 參數(shù)返回 True，若性別對(duì)應(yīng)的文本框 Text3 被置空，則通過(guò) Action=0 取消對(duì)數(shù)據(jù)控件的操作。 例如：將例 ，使所連接數(shù)據(jù)庫(kù)所在的文件夾可隨程序而變化： Private Sub Form_Load( ) Dim mpath As String Mpath= ’獲取當(dāng)前路徑 If Right(mpath,1)”/” Then mpath=mpath+”/” =mpath+”” ’連接數(shù)據(jù)庫(kù) =”基本情況 ” ’構(gòu)成記錄集對(duì)象 ’激活數(shù)據(jù)控件 End Sub 2． UpdateControls 方法 UpdateControls 方法可以將數(shù)據(jù)從數(shù)據(jù)庫(kù)中重新讀到被數(shù)據(jù)控件綁定的控件內(nèi)。如果使用 UpdateRecord 方法，可強(qiáng)制數(shù)據(jù)控件將綁定控件內(nèi)的數(shù)據(jù)寫入到數(shù)據(jù)庫(kù)中，而不再觸發(fā)Validate 事件。 1． AbsolutePosition 屬性 AbsolutePosition 返回當(dāng)前指針值，如果是第 1 條記錄，其值為 0，該屬性為只讀屬性。在程序中可以使用 Bookmark 屬性重定位記錄集的指針，但不能使用 AbsolutePostion 屬性。在多用戶環(huán)境下，RecordCount 屬性值可能不準(zhǔn)確，為了獲得準(zhǔn)確值，在讀取 RecordCount 屬性值之前，可使用 MoveLast 方法將記錄指針移至最后一條記錄上。 (3)MoveNext 方法 :移至下一條記錄。 在例 的基礎(chǔ)上，窗體上增加 4 個(gè)命令按鈕，將數(shù)據(jù)控件的 Visible 屬性設(shè)置為 False，如圖 所示。 4 種 Find 方法是： (1)FindFirst 方法：從記錄集的開始查找滿足條件的第 1 條記錄。 4 種 Find 方法的語(yǔ)法格式相同： 數(shù)據(jù)集合 .Find 方法 條件 搜索條件是一個(gè)指定字段與常量關(guān)系的字符串表達(dá)式。要想查找下一條符合條件的記錄，可繼續(xù)使用語(yǔ)句： ” 專業(yè) =’物理 ’”。 8． Seek方法 使用 Seek 方法必須打開表的索引，它在 Table 表中查找與指定索引規(guī)則相符的第 1 條記錄，并使之成為當(dāng)前記錄。 例如：假設(shè)數(shù)據(jù)庫(kù) Student 內(nèi)基本情況表的索引字段為學(xué)號(hào)，滿足學(xué)號(hào)字段值大于等于110001 的第 1 條記錄可使用以下程序代碼： = 0 ’設(shè)置記錄集類型為 Table = 基本情況 ’打開基本情況表單 = jbqk_no ’打開名稱為 jbqk_no 的索引 =, 110001 9． 3． 5 數(shù)據(jù)庫(kù)記錄的增、刪、改操作 Data 控件是瀏覽表格并編輯表格的好工具，但怎么輸入新信息或刪除現(xiàn)有記錄呢 ?這需要編寫幾行代碼，否則無(wú)法在 Data 控件上完成數(shù)據(jù)輸入。 (2)給各字段賦值。當(dāng)調(diào)用 Update方法寫入記錄后，記錄指針自 動(dòng)返回到添加新記錄前的位置上，而不顯示新記錄。 (3)移動(dòng)記錄指針。在移動(dòng)記錄指針后， 應(yīng)該檢查 Eof 屬性。 200 (3)調(diào)用 Update 方法，確定所做的修改。當(dāng)按鈕提示為 “新增 ”時(shí)調(diào)用 AddNew 方法，并將提示文字改為“確認(rèn) ”，同時(shí)使 “刪除 ”按鈕 Command “修改 ”按鈕 Command3 和 “查找 ”按鈕 Command5 不可用，而使 “放棄 ”按鈕 Command4 可用。 Private Sub Command1_Click() On Error Resume Next = Not = Not = Not = Not If = 新增 Then = 確認(rèn) Else = 新增 201 End If End Sub 命令按鈕 Command2_Click 事件調(diào)用方法刪除當(dāng)前記錄。 mzy amp。例如，下面的代碼對(duì)學(xué)號(hào)字段進(jìn)行測(cè)試，如果學(xué)號(hào)為空則輸入無(wú)效。在輸入照片時(shí)，事