【正文】 缺陷。這種情況下傳統(tǒng)的數(shù)據(jù)庫應(yīng)用程序開發(fā)方法就難以實現(xiàn)。 Private Sub Picture1_DblClick() = End Sub 9． 4 ODBC 9． 4． 1 ODBC 概述 在傳統(tǒng)的數(shù)據(jù)庫管理系統(tǒng)中，每個數(shù)據(jù)庫管理系統(tǒng)都有自己的應(yīng)用程序開發(fā)接口 (API)，應(yīng)用程序使用數(shù)據(jù)庫系統(tǒng)所提供的專用開發(fā)工具 (如嵌入式 SQL 語言 )進(jìn)行開發(fā)，這樣的應(yīng)用程序只能運行在特定的數(shù)據(jù)庫系統(tǒng)環(huán)境下，適應(yīng)性和可移植性比較差。此外，使用數(shù)據(jù)控件對象的任一箭頭按鈕來改變當(dāng)前記錄，也可確定所做添加的新記錄或?qū)σ延杏涗浀男薷?，Action 取值 1~4 分別對應(yīng)單擊其中一個箭頭按鈕的操作，當(dāng)單擊數(shù)據(jù)控件的箭頭按鈕時也觸發(fā) Validate 事件。 If Then MsgBox 無此專業(yè) !, , 提示 = 基本情況 End If End Sub 上面的代碼給出了數(shù)據(jù)表內(nèi)數(shù)據(jù)處理的基本方法。 Private Sub Command2_Click() On Error Resume Next If Then End Sub 命令按鈕 Command3_Click 事件的編程思路與 Command1_Click 事件類似，根據(jù)按鈕提示文字調(diào)用 Edit 方法進(jìn)入編輯狀態(tài)或調(diào)用 Update 方法將修改后的數(shù)據(jù)寫入到數(shù)據(jù)庫，并控制其他 3 個按鈕的可用性，代碼如下： Private Sub Command3_Click() On Error Resume Next = Not = Not = Not = Not If = 修改 Then = 確認(rèn) Else = 修改 End If End Sub 命令按鈕 Command4_Click 事件使用 UpdateControls 方法放棄操作，代碼如下： Private Sub Command4_Click() On Error Resume Next = 新增 = 修改 = True = True = True = False = True 202 End Sub 命令按鈕 Command5_Click 事件根據(jù)輸入專業(yè)使用 SQL 語句查找記錄，代碼如下： Private Sub Command5_Click() Dim mzy As String mzy = InputBox$(請輸入專業(yè) , 查找窗 ) = Select * From 基本情況 Where 專業(yè) = 39。程序中出現(xiàn)的 On Error Resume Next 語句是 Visual Basic 提供的錯誤捕獲語句。 例 在例 的基礎(chǔ)上加入 “新增 ”、 “刪除 ”、 “修改 ”、 “放棄 ”和 “查找 ”鈕，通過對 5個按紐的編程建立增、刪、改、查功能，如圖 所示。也可通過程序代碼來修改記錄，使用程序代碼修改當(dāng)前記錄的步驟為： (1)調(diào)用 Edit 方法。刪除一條記錄后，被數(shù)據(jù)庫所約束的綁定控件仍舊顯示該記錄的內(nèi)容。 2．刪除記錄 要從記錄集中刪除記錄的操作分為三步： (1)定位被刪除的記錄使之成為當(dāng)前記錄。 (3)調(diào)用 Update 方法，確定所做的添加，將緩沖區(qū)內(nèi)的數(shù)據(jù)寫入數(shù)據(jù)庫。它們的語法格式為： 數(shù)據(jù)控件 .記錄集 .方法名 1．增加記錄 AddNew 方法在記錄集中增加新記錄。 在使用 Seek 方法定位記錄時，必須通過 Index 屬性設(shè)置索引。 需要指出的是 Find 方法在找不到相匹配的記錄時，當(dāng)前記錄保 持在查找的始發(fā)處，NoMatch 屬性為 True。 例如：語句 “ 專業(yè) =’物理 ’”表示在由 Data1 數(shù)據(jù)控件所連接的數(shù)據(jù)庫 的記錄集內(nèi)查找專業(yè)為 “物理 ”的第 l 條記錄。 (3)FindNext 方法：從當(dāng)前記錄開始查找滿足條件的下一條記錄。 圖 用按鈕代替數(shù)據(jù)控件對象的箭頭按鈕 命令按鈕 Command1_Click 事件移至第 1 條記錄，代碼如下： Private Sub Command1_Click() End Sub 命令按鈕 Command4_Click 事件移至最后一條記錄，代碼如下： Private Sub Command4_Click() End Sub 198 另外兩個按鈕的代碼需要考慮 Recordset 對象的邊界的首尾，如果越界，則用 MoveFirst方法定位到第 1 條記錄或用 MoveLast 方法定位到最后一條記錄。 (5)Move [n] 方法 :向前或向后移 n 條記錄， n 為指定的數(shù)值。 5 種Move 方法是： (1)MoveFirst 方法 :移至第 1 條記錄。該屬性常與 Bookmark 屬性一起使用。與此類似， Eof 判定記錄指針是否在末記錄之后。 9． 3． 4 記錄集的屬性與方法 由 RecordSource 確定的具體可訪問的數(shù)據(jù)構(gòu)成的記錄集 Recordset 也是一個對象，因而，它和其他對象一樣具有屬性和方法。 例如：將代碼 放在一個命令按鈕的 Click 事件中，就可以實現(xiàn)對記錄修改的功能。 1． Refresh 方法 如果在設(shè)計狀態(tài)沒有為打開數(shù)據(jù)庫控件的有關(guān)屬性全部賦值，或當(dāng) RecordSource 在運行時被改變后，必須使用數(shù)據(jù)控件的 Refresh 方法激活這些變化。 表 Validate 事件的 Action 參數(shù) Action 值 描述 Action 值 描述 0 取消對數(shù)據(jù)控件的操作 6 Update 1 MoveFirst 7 Delete 2 MovePrevious 8 Find 3 MoveNext 9 設(shè)置 Bookmark 4 MoveLast 10 Close 5 AddNew 11 卸載窗體 一般可用 Validate 事件來檢查數(shù)據(jù)的有效性。 事件 當(dāng)要移動記錄指針、修改與刪除記錄前或卸載含有數(shù)據(jù)控件的窗體時都觸發(fā) Validate 事件。 表 控件屬性 默認(rèn)控件名 其它屬性設(shè)置 Data1 DatabaseName=”c:\” RecordsetType=0 RecordSource=”基本情況 ” MSFlexGrid1 DataSource=Data1 FixCols=0 圖 使用 數(shù)據(jù)網(wǎng)格控件 195 9． 3． 2 數(shù)據(jù)控件的事件 1． Reposition事件 Reposition 事件發(fā)生在一條記錄成為當(dāng)前記錄后 ,只要改變記錄集的指針使其從一條記錄移到另一條記錄，會產(chǎn)生 Reposition 事件。 MsFlexGrid 控件不是 Visual Basic 工具箱內(nèi)的默認(rèn)控件，需要在開發(fā)環(huán)境中選擇 “工程 |部件 ”菜單命令， 并在隨即出現(xiàn)的對話框中選擇 “MicroSoft FlexGrid Control ”選項，將其添加到工具箱中。如果改變了某個字段的值，只要移動記錄 ，這時所作的改變存入數(shù)據(jù)庫中。 5 個文本框分別顯示基本情況表內(nèi)的字段：學(xué)號、姓名、性別、專業(yè)和出生年月的內(nèi)容，圖形框顯示每個學(xué)生的照片。 圖 顯示 基本情況表的數(shù)據(jù) 194 (2)將數(shù)據(jù)控件 Data1 的 Connect 屬性指定為 Access 類型， DatabaseName 屬性連接數(shù)據(jù)庫 ， RecordSource 屬性設(shè)置為 “基本情況 ”表。 基本情況表包含了 6 個字段，故需要用 6 個綁定控件與之對應(yīng)。 例 建立 數(shù)據(jù)庫，它包含兩個表： “基本情況 ”表和 “學(xué)生成績表 ”。 綁定控件 數(shù)據(jù)控件 數(shù)據(jù)庫 193 圖 綁定控件、數(shù)據(jù)控件和數(shù)據(jù)庫三者的關(guān)系 當(dāng)上述控件與數(shù)據(jù)控件綁定后， Visual Basic 將當(dāng)前記錄的字段值賦給控件?？膳c數(shù)據(jù)控件綁定的控件對象有文本框、標(biāo)簽、圖像框、圖形框、列表框、組合框、復(fù)選框、網(wǎng)格、 DB 列表框、 DB 組合框、 DB 網(wǎng)格和 OLE 容器等控件。 4． RecordType屬性 RecordType 屬性確定記錄集類型。 3． RecordSource 屬性 RecordSource 確定具體可訪問的數(shù)據(jù)，這些數(shù)據(jù)構(gòu)成記錄集對象 Recordset。 2． DatabaseName 屬性 DatabaseName 屬性指定具體使用的數(shù)據(jù)庫文件名，包括所有的路徑名。 （ 8）單擊 “顯示 “按鈕，在隨 后出現(xiàn)的 “SQL Query”窗口中，顯示剛建立的查詢所對應(yīng)的 SQL語句。 (5)單擊 “將 And 加入條件 ”按鈕，將條件加入 “條件 ”列表框中。 假設(shè)我們要查詢學(xué)號為 110002 的學(xué)生基本情況，可按下述步驟進(jìn)行： (1)首先選擇要進(jìn)行查詢的數(shù)據(jù) 表，單擊表列表框中的 “基本情況 ”表。我們這里是以 “基本情況 ”表為例，并且輸入了部分?jǐn)?shù)據(jù)后的情況。設(shè)置完畢后，單擊 “關(guān)閉 ”按鈕返回到 “表結(jié)構(gòu) ”對話框。 （ 3） 建立索引 建立了表的結(jié)構(gòu)后就可以建立此表的索引了，這樣可以加快檢索速度。 （ 2） 添加數(shù)據(jù)表 將鼠標(biāo)移到數(shù)據(jù)庫窗口區(qū)域內(nèi)，單擊鼠標(biāo)右鍵，在彈出的菜單中選擇 “新建表 ”命令，出現(xiàn) “表結(jié)構(gòu) ”對話框，利用對話框我們可以建立數(shù)據(jù)表的結(jié)構(gòu)。 （ 3） 事務(wù)方式群組按鈕 工具欄的最后一組按鈕用于進(jìn)行事務(wù)處理。 ③ 快照類型記錄集 (最右邊的拉鈕 )：以這種類型顯示的數(shù)據(jù)只能讀不能修改，適用于只查詢的情況。 圖 VisData 窗口 下面我們對工具欄上的按鈕進(jìn)行簡單的說明。 存放在 VB98 目錄中，單擊 “文件 ”菜單中的 “打開數(shù)據(jù)庫 ”級聯(lián)菜單的“Microsoft Access”項，即可在出現(xiàn)的對話框中看到 ，選中并打開它，打開后的VisData 窗口如圖 所示。它隨安裝過程放置在 VB 目錄中，可以單獨運行，也可以在 VB 開發(fā)環(huán)境中啟動。 （ 3） Microsoft Access：因為 Microsoft Access 使用了與 VB 相同的數(shù)據(jù)庫引擎和格式，所以，用 Microsoft Access 創(chuàng)建的數(shù)據(jù)庫和直接 在 VB 中創(chuàng)建的數(shù)據(jù)庫是 一 樣的。如果程序在不同的工作站上有許多備份，那么每個備份都將有它自己的 Jet 數(shù)據(jù)庫引擎在本地的備份。 客戶機(jī) /服務(wù)器 遠(yuǎn)程 服務(wù)器 客戶機(jī) 圖 客戶機(jī) /服務(wù)器數(shù)據(jù)庫與遠(yuǎn)程數(shù)據(jù)庫的 存放 在客戶機(jī) /服務(wù)器系統(tǒng)中，數(shù)據(jù)庫引擎和數(shù)據(jù)庫一起被放置在服務(wù)器上?？梢园?它們都放在一臺計算機(jī)上，供單用戶應(yīng)用程序使用，也可以放置在通過網(wǎng)絡(luò)連接起來的不同計算機(jī)上?；蛘?，應(yīng)用程序可能會訪問保存在幾個不同的數(shù)據(jù)庫文件或格式中的數(shù)據(jù)。另外，它還包含一個結(jié)果 處理器，用來管理查詢所返回的結(jié)果。在運行時，這些文件被鏈接到 VB 程序。不管這個數(shù)據(jù)庫是本地的 VB 數(shù)據(jù)庫，還是所支持的其他任何格式的數(shù)據(jù)庫，所使用的數(shù)據(jù)訪問對象和編程技術(shù)都是相同的。 9． 1． 2 VB 數(shù)據(jù)庫體系結(jié)構(gòu) VB 提供了基于 Microsoft Jet 數(shù)據(jù)庫引擎的數(shù)據(jù)訪問能力， Jet 引擎負(fù)責(zé)處理存儲、檢索、更 新數(shù)據(jù)的結(jié)構(gòu)，并提供了功能強(qiáng)大的面向?qū)ο蟮?DAO 編程接口。 2. 外部數(shù)據(jù)庫： VB 可以使用幾種比較流行的 “索引順序訪問文件方法 (ISAM)”數(shù)據(jù)庫，包括： dDase III、 dBase IV、 FoxPro 和 以及 Paradox 和 。 VB 中的數(shù)據(jù)庫編程就是創(chuàng)建數(shù)據(jù)訪問對象，這些數(shù)據(jù)訪問對象對應(yīng)于被訪問的物理數(shù)據(jù)庫的不同部分，如 Database(數(shù)據(jù)庫 )、 Table(表 )、 Field(字段 )和 Index(索引 )對象。 185 第 9 章 VB 數(shù)據(jù)庫編程技術(shù) 9． 1 數(shù)據(jù)庫設(shè)計基礎(chǔ) 9． 1． 1 VB 中的數(shù)據(jù)訪問 VB 提供的數(shù)據(jù)庫引擎叫 Jet。這兩種方法不是互斥的，實際上，它們可以同時使用。 Jet 引擎直接創(chuàng)建和操作這些數(shù)據(jù)庫并且提供了最大程度的靈活性 和 速度。如果要在 VB 中創(chuàng)建真正的客戶機(jī)／服務(wù)器應(yīng)用程序，可以使用 ODBC Direct 直接把命令傳遞給服務(wù)器處理。這把用戶與正在訪問的特定數(shù)據(jù)庫隔離開來，實現(xiàn) “透明 ”訪問。 （ 2） Jet 引擎 Jet 引擎被包含在一組動態(tài)鏈接庫 (DLL)文件中。它還包含一個查詢處理器，接收并執(zhí)行 SQL 查詢，實現(xiàn)所需的數(shù)據(jù)操作。對于