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

　　

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