【導(dǎo)讀】VB提供的數(shù)據(jù)庫(kù)引擎叫Jet。VB提供了兩種與Jet數(shù)據(jù)庫(kù)引擎接口的方法：Data控件。和數(shù)據(jù)訪問對(duì)象。Data控件只提供了有限的不需編程就能訪問現(xiàn)存數(shù)據(jù)。庫(kù)的功能，而DAO模型則是全面控制數(shù)據(jù)庫(kù)的完整編程接口。際上，它們可以同時(shí)使用。據(jù)庫(kù)的不同部分，如Database(數(shù)據(jù)庫(kù))、Table(表)、Field(字段)和Index(索引)對(duì)象。Jet引擎直接創(chuàng)建和操作這些數(shù)據(jù)庫(kù)并且提供了最大程度的靈活性和速度。把命令傳遞給服務(wù)器處理。VB數(shù)據(jù)庫(kù)應(yīng)用程序包含三部分，如圖所示。這把用戶與正在訪問的特定數(shù)據(jù)庫(kù)隔離開。來，實(shí)現(xiàn)“透明”訪問。在運(yùn)行時(shí)，這些文件被鏈接到VB程序。讀取、寫入和修改數(shù)據(jù)庫(kù)，并處理所有內(nèi)部事務(wù)，如索引、鎖定、安全性和引用完整性。個(gè)結(jié)果處理器，用來管理查詢所返回的結(jié)果。據(jù)庫(kù)窗口顯示了數(shù)據(jù)庫(kù)的結(jié)構(gòu)，包括表名、列名、索引。SQL語(yǔ)句窗口可用于輸入一些SQL

　　

【正文】 id 控件放置到窗體上。設(shè)置 DataGrid 網(wǎng)格控件的DataSource 屬性為 Adodc1，就可將 DataGrid1 綁定到數(shù)據(jù)控件 Adodc1 上。 顯示在 DataGrid 網(wǎng)格內(nèi)的記錄集，可以通過 DataGrid 控件的 AllowAddNew、 AllowDelete和 AllowUpdate 屬性設(shè)置控制增，刪、改操作。 如果要 改變 DataGrid 網(wǎng)格上顯示的字段，可用鼠標(biāo)右鍵單擊 DataGrid 控件，在彈出的快捷菜單中選擇 “檢索字段 ”選項(xiàng)。 Visual Basic 提示是否替換現(xiàn)有的網(wǎng)格布局，單擊 “是 ”按鈕就可將表中的字段裝載到 DataGrid 控件中。再次用鼠標(biāo)右鍵單擊 DataGrid 控件，在彈出的快捷菜單中選擇 “編輯 ”選項(xiàng)，進(jìn)入數(shù)據(jù)網(wǎng)格字段布局的編輯狀態(tài)，此時(shí)，當(dāng)鼠標(biāo)指在字段名上時(shí)，鼠標(biāo)指針變成黑色向下箭頭。用鼠標(biāo)右鍵單擊需要修改的字段名，在彈出的快捷菜單中選擇 “刪除 ”選項(xiàng)，就可從 DataGrid 控件中刪除該字段，也可選擇 “屬性 ”選項(xiàng)修改字段的顯示寬度或字段標(biāo)題。 圖 所示為具有增、刪、改功能的數(shù)據(jù)網(wǎng)格綁定。標(biāo)有 ?號(hào)的記錄行表示允許增加新記錄。 圖 具有增、刪、改功能的數(shù)據(jù)網(wǎng)格綁定 9． 5． 4 使用數(shù)據(jù)窗體向?qū)? Visual Basic 提供了一個(gè)功能強(qiáng)大的數(shù)據(jù)窗體向?qū)Вㄟ^幾個(gè)交互過程，便能創(chuàng)建前面介紹的 ADO 數(shù)據(jù)控件和綁定控件，構(gòu)成 —個(gè)訪問數(shù)據(jù)的窗口。數(shù)據(jù)窗體向?qū)儆谕饨映绦?，在使用前必?從 Visual Basic 集成開發(fā)環(huán)境 的橫向 菜單 中 點(diǎn)擊 “外接程序 ”，再點(diǎn)擊 子菜單的 “外接程序管理器 ”， 從打開的 “外接程序管理器 ”窗口 選 擇 “VB 6 數(shù)據(jù)窗體向?qū)?” 命令 ， 將 數(shù)據(jù)窗體 裝入 到 “外接程序 ”中。 這里以 數(shù)據(jù)庫(kù)的基本情況表作為數(shù)據(jù)源來說明數(shù)據(jù)訪問窗口建立的過程。 例 使用數(shù)據(jù)窗體向?qū)Ы? 數(shù)據(jù)庫(kù)的數(shù)據(jù)訪問對(duì)話框。 步驟 1：執(zhí)行 “外接程序 ”菜單中的 “數(shù)據(jù)窗體向?qū)?”命令，進(jìn)入 “數(shù)據(jù)窗體向?qū)?介紹 ”對(duì)話 209 框，可以利用先前建立的數(shù)據(jù)窗體信息配置文件創(chuàng)建外觀相似的數(shù)據(jù)訪問窗體，選擇 “無 ”將不使用現(xiàn)有的配置文件。 步驟 2：?jiǎn)螕?“下 —步 ”按鈕， 進(jìn)入 “數(shù)據(jù)窗體向?qū)?數(shù)據(jù)庫(kù)類型 ”對(duì)話框，可以選擇任何版本的 Access 數(shù)據(jù)庫(kù)或任何 ODBC 兼容的用于遠(yuǎn)程訪問的數(shù)據(jù)庫(kù)。本例中選擇 Access 數(shù)據(jù)庫(kù)。 步驟 3：在 “數(shù)據(jù)窗體向?qū)?—數(shù)據(jù)庫(kù) ”對(duì)話框內(nèi)選擇具體的數(shù)據(jù)庫(kù)文件。本例為 數(shù)據(jù)庫(kù)。 步驟 4：在 “數(shù)據(jù)窗體向?qū)?—Form”對(duì)話框內(nèi)設(shè)置應(yīng)用窗體的工作特性。 其中，在 “窗體名稱為 ”文本框輸入將要?jiǎng)?chuàng)建的窗體名； “窗體布局 ”指定窗口內(nèi)顯示數(shù)據(jù)的類型，可以按單條記錄形式顯示，也可以按數(shù)據(jù)網(wǎng)格形式同時(shí)顯示多條記錄；綁定類型用于選擇連接數(shù)據(jù)來源的方 式，可以使用 ADODC 數(shù)據(jù)控件訪問數(shù)據(jù)，也可以使用 ADO 對(duì)象程序代碼訪問數(shù)據(jù)。本例窗體名為 frmjbqk，選 “單個(gè)記錄 ”形式，使用 “ADO數(shù)據(jù)控件 ”訪問數(shù)據(jù)。 步驟 5：在 “數(shù)據(jù)窗體向?qū)?記錄源 ”對(duì)話框內(nèi)選擇所需要的數(shù)據(jù)。 其中， “記錄源 ”下拉式列表框用于選擇數(shù)據(jù)庫(kù)中的表單，本例選擇 “基本情況 ”表；窗口中間的 4 個(gè)箭頭按鈕用于選定字段， “列排序按 ”下拉式列表框用于選擇排序依據(jù)。 步驟 6：在 “數(shù)據(jù)窗體向?qū)?控件選擇 ”對(duì)話框內(nèi)，選擇所創(chuàng)建的數(shù)據(jù)訪問窗體需要提供哪些操作按鈕。 步驟 7：進(jìn)入 “數(shù)據(jù)窗體向?qū)?—已完 成 ”對(duì)話框，可以將整個(gè)操作過程保存到一個(gè)向?qū)渲梦募?.rwp 中。 單擊 “完成 ”按鈕結(jié)束數(shù)據(jù)窗體向?qū)У慕换?，此時(shí)向?qū)⒆詣?dòng)產(chǎn)生數(shù)據(jù)訪問對(duì)話框的畫面及代碼?？梢詫?duì)產(chǎn)生的窗體布局形式進(jìn)行調(diào)整或在此基礎(chǔ)上加上其他控件對(duì)象。圖 為調(diào)整照片位置的數(shù)據(jù)訪問對(duì)話框運(yùn)行結(jié)果。各按鈕的程序代碼不難理解，請(qǐng)讀者自己閱讀。 圖 數(shù)據(jù)窗體向?qū)?chuàng)建的數(shù)據(jù)訪問對(duì)話框 圖 為窗體布局 (步驟 4)選定網(wǎng)格 (數(shù)據(jù)表 )形式的數(shù)據(jù)訪問窗口運(yùn)行結(jié)果。圖 所示為窗體布局選定主表／細(xì)表形式，以基本情況表作為主表，學(xué)生成 績(jī)表為細(xì)表所建立的數(shù)據(jù)訪問窗口。圖 為窗體布局 (步驟 4)選定 MSHFlexGrid 數(shù)據(jù)網(wǎng)格形式的數(shù)據(jù)訪問窗口運(yùn) 210 行結(jié)果。 圖 選定網(wǎng)格 (數(shù)據(jù)表 )形式 圖 選定 MSHFlexGrid 數(shù)據(jù)網(wǎng)格 圖 選定主表／細(xì)表形式 9． 6 VB 中 SQL 的實(shí)現(xiàn) SQL 中使用 SELECT 語(yǔ)句實(shí)現(xiàn)查詢， SELECT 語(yǔ)句基本上是數(shù)據(jù)庫(kù)記錄集的定義語(yǔ)句。Data 控件的 RecordSource 屬性不 —定是數(shù)據(jù)表名，可以是數(shù)據(jù)表中的某些行或多個(gè)數(shù)據(jù) 表中的數(shù)據(jù)組合?？梢灾苯釉?Data 控件的 RecordSource 屬性欄中輸入 SQL，也可在代碼中通過 SQL 語(yǔ)句將選擇的記錄集賦給數(shù)據(jù)控件的 RecordSource 屬性，也可賦予對(duì)象變量。 例 將例 中的查找功能改用 SQL 語(yǔ)句處理，顯示某專業(yè)的學(xué)生記錄。 使用 SQL 語(yǔ)句查詢只要將例 中命令按鈕 Command5_Click 事件寫為如下代碼： Private Sub Command5_Click() Dim mzy As String 211 mzy = InputBox$(請(qǐng)輸入專業(yè) , 查找窗 ) = Select * From 基本情況 Where 專業(yè) = 39。 amp。 mzy amp。 39。 If Then MsgBox 無此專業(yè) !, , 提示 = 基本情況 End If End Sub 程序中 “Select *”選擇表中所有字段 (也可以指定選擇部分列 )； “From 基本情況 ”短語(yǔ)指定數(shù)據(jù)來源； “Where 專業(yè) = 39。 amp。 mzy amp。 39?！倍陶Z(yǔ)構(gòu)成查詢條件，用于過濾表中的記錄； 方法激活這些變化。此時(shí)，若 為 True，表示記錄過濾后無數(shù)據(jù)，重新打開原來的基本情況表。 注意：代碼中的兩處 Refresh 語(yǔ)句不能合用為一句，這是因?yàn)樵趫?zhí)行了 Select 命令后，必須激活這些變化，然后才能判斷記錄集內(nèi)有無數(shù)據(jù)。 也可用 SQL 語(yǔ)句實(shí)現(xiàn)模糊查詢，命令按鈕 Command5_Click 事件改為如下代碼： Private Sub Command5_Click() Dim mzy As String mzy = InputBox$(請(qǐng)輸入專業(yè) , 查找窗 ) = Select * From 基本情況 Where 專業(yè) like 39。* amp。 mzy amp。 *39。 If Then MsgBox 無此專業(yè) !, , 提示 = 基本情況 End If End Sub 例 用 SQL 語(yǔ)句從 數(shù)據(jù)庫(kù)的兩個(gè)數(shù)據(jù)表中選擇數(shù)據(jù)構(gòu)成記錄集，并通過數(shù)據(jù)控件瀏覽記錄集。 在窗體上放置與例 類似的控件，如圖 所示。 Data 控件的 DatabaseName 屬性指定數(shù)據(jù)庫(kù) ， RecordSource 屬性空缺，各文本框的 DataSource=Data1， DataField屬性分別設(shè)置為學(xué)號(hào)、姓名、課程、成績(jī)，而照片字段綁定圖形框。 本例要求從基本情況中選擇學(xué)生的學(xué) 號(hào)、姓名、照片，從學(xué)生成績(jī)表中選擇該學(xué)生的課程和成績(jī)來構(gòu)成記錄集，可在 Form_ Load 事件中使用 SQL 語(yǔ)句，通過 “Where 學(xué)生成績(jī)表 .學(xué)號(hào) =基本情況 .學(xué)號(hào) ”短語(yǔ)實(shí)現(xiàn)兩表之間的連接，用 Select 命令從學(xué)生成績(jī)表中選擇課程、成績(jī)字段，從基本情況表中選擇學(xué)號(hào)、姓名和照片字段構(gòu)成記錄集： Private Sub Form_Load() = Select 基本情況 .學(xué)號(hào) ,基本情況 .姓名 ,基本情況 .照片 ,學(xué)生成績(jī) 212 表 .課程 ,學(xué)生成績(jī)表 .成績(jī) From 學(xué)生成績(jī)表 ,基本情 況 Where 學(xué)生成績(jī)表 .學(xué)號(hào) =基本情況 .學(xué)號(hào) End Sub 當(dāng)窗體啟動(dòng)后，數(shù)據(jù)顯示如圖 所示，數(shù)據(jù)控件上的箭頭按鈕可改變記錄位置。如果要求顯示的記錄按一定的順序排列，可使用 ORDER BY 子句。 圖 數(shù)據(jù)顯示 注意：當(dāng) FROM 子句列出多個(gè)表時(shí)，它們出現(xiàn)的順序并不重要。 Select 短語(yǔ)中字段的排列決定了所產(chǎn)生的記錄集內(nèi)每一列數(shù)據(jù)的排列順序。為了提高可讀性可以重新排序表中的字段。 例 用 SQL 指令按專業(yè)統(tǒng)計(jì) 數(shù)據(jù)庫(kù)中各專業(yè)的人數(shù)，要求按圖 所示形式輸出。 在窗體上放置一個(gè) Data 控件和一個(gè)網(wǎng)格控件 MSFlexGrid1。 Data1 的 DatabaseName 屬性指定數(shù)據(jù)庫(kù) ，網(wǎng)格控件的 DataSource=Data1。 圖 通過數(shù)據(jù)控件瀏覽記錄集 為了統(tǒng)計(jì)各專業(yè)的人數(shù)，需要對(duì)基本情況表內(nèi)的記錄按專業(yè)分組。 “Group By 專業(yè) ”可將同一專業(yè)的記錄合并成一條新記錄。要記錄統(tǒng)計(jì)結(jié)果，需要構(gòu)造一個(gè)輸出字段，此時(shí)可使 213 用 SQL 的統(tǒng)計(jì)函數(shù) Count()作為輸出字段，它按專業(yè)分組創(chuàng)建摘要值。若希望按用戶要求 的標(biāo)題顯示統(tǒng)計(jì)摘要值，可用 As 短語(yǔ)命名一個(gè)別名。 “按專業(yè)統(tǒng)計(jì)人數(shù) ”按鈕的指令代碼為： Private Sub Command1_Click() = select 專業(yè) ,count(*) as 人數(shù) from 基本情況 group by 專業(yè) End Sub 運(yùn)行結(jié)果如圖 。 圖 使用 SQL 的統(tǒng)計(jì)函數(shù) 有時(shí)，我們只要返回一定數(shù)量的記錄，如獲取平均成績(jī)最好的前 5 名，則 “按平均成績(jī)統(tǒng)計(jì)前 5 名 ” 按鈕的指令代 碼為： Private Sub Command2_Click() = select top 5 學(xué)號(hào) ,avg(成績(jī) ) as 平均成績(jī) from 學(xué)生成績(jī)表 group by 學(xué)號(hào) order by avg(成績(jī) ) desc End Sub 這里， “Group by 學(xué)號(hào) ”短語(yǔ)將同一學(xué)生的各門課程的記錄合并成一條記錄，由 Avg(成績(jī) )計(jì)算出該學(xué)生的平均成績(jī)， “Order By Avg(成績(jī) ) Desc”短語(yǔ)按平均成績(jī)的降序排列數(shù)據(jù) ，“Top 5”短語(yǔ)返回最前面的 5 條記錄。如果不包括 ORDER BY 子句，查詢將從學(xué)生成績(jī)表中返回隨機(jī)的 5 條記錄。 “恢復(fù)原表內(nèi)容 ”按鈕的指令代碼為： Private Sub Command3_Click() = 基本情況 End Sub 以上介紹的是在 Data 控件上使用 SQL，如果要在 ADO 數(shù)據(jù)控件上使用 SQL 語(yǔ)句，最好通過代碼配合 ADO 數(shù)據(jù)控件完成數(shù)據(jù)庫(kù)的連接，這可給程序帶來更大的靈活性。 例 我們將例 中的 Data 控件改 用 ADO 數(shù)據(jù)控件，用 SQL 語(yǔ)句從 214 數(shù)據(jù)庫(kù)的兩個(gè)數(shù)據(jù)表中選擇數(shù)據(jù)構(gòu)成記錄集。 將 Data 控件改用 ADO 數(shù)據(jù)控件 Adodc1，各文本框的 Datasource=Adodc1， DataField屬性分別設(shè)置為學(xué)號(hào)、姓名、課程、成績(jī)，而字段照片綁定圖形框。 ADO 數(shù)據(jù)控件的 ConnectionString 屬性設(shè)置為與數(shù)據(jù)源連接的相關(guān)信息，通過操作完成與 的數(shù)據(jù)連接 (此時(shí)，可查看到 ConnectionString 屬性的內(nèi)容 )； DataSource 指定連接的數(shù)據(jù)庫(kù)文件名，如 圖 。 圖 使 用 ADO 數(shù)據(jù)控件 即 DataSource 屬性使用 SQL 語(yǔ)句： select 學(xué)生成績(jī)表 .*,基本情況 .姓名 ,基本情況 .照片 from 學(xué)生成績(jī)表 ,基本情況 where 學(xué)生成績(jī)表 .學(xué)號(hào) =基本情況 .學(xué)號(hào) 程序執(zhí)行后將產(chǎn)生與圖 所示相同的效果。 例 設(shè)計(jì)一個(gè)窗體，計(jì)算 數(shù)據(jù)庫(kù)內(nèi)學(xué)生成績(jī)表中每個(gè)學(xué)生的平均成績(jī)，產(chǎn)生姓名、平均成績(jī)和最低成績(jī)?nèi)?xiàng)數(shù)據(jù)，按平均成績(jī)降序排列數(shù)據(jù)，并用該數(shù)據(jù)作圖。 學(xué)生成績(jī)表中沒有平均成績(jī)和最低成績(jī)這兩項(xiàng)數(shù)據(jù) ，可以在 SELECT 子句內(nèi)使用統(tǒng)計(jì)函數(shù) AVG()和 Min()產(chǎn)生， “Group By學(xué)號(hào) ”可將同一學(xué)生的記錄合并成一條新記錄。學(xué)生成績(jī)表中沒有姓名字段，故需要通過條件 “基本情況 .學(xué)號(hào) =學(xué)生成績(jī)表 .學(xué)號(hào) ”從基本情況表取得。然后，將產(chǎn)生的記錄集連接到 ADO 數(shù)據(jù)控件上。 要顯示作圖數(shù)據(jù)，可在窗體上放置一個(gè)網(wǎng)格控件（選擇工程 → 部件中 Microsoft Data Grid Control (OLEDB)），設(shè)置網(wǎng)格的 DataSource=Adodcl，將其綁定到 ADO 數(shù)據(jù)控件上。此例將 Adodc1 控 件的 Visible 屬性設(shè)為 False，故在圖 中看不到 Adodc1 控件。 要繪制圖表，可使用綁定控件 MsChart。 MsChart 控