【正文】 要繪制圖表，可使用綁定控件 MsChart。 要顯示作圖數(shù)據(jù)，可在窗體上放置一個(gè)網(wǎng)格控件（選擇工程 → 部件中 Microsoft Data Grid Control (OLEDB)），設(shè)置網(wǎng)格的 DataSource=Adodcl，將其綁定到 ADO 數(shù)據(jù)控件上。學(xué)生成績(jī)表中沒(méi)有姓名字段，故需要通過(guò)條件 “基本情況 .學(xué)號(hào) =學(xué)生成績(jī)表 .學(xué)號(hào) ”從基本情況表取得。 例 設(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ù)作圖。 ADO 數(shù)據(jù)控件的 ConnectionString 屬性設(shè)置為與數(shù)據(jù)源連接的相關(guān)信息，通過(guò)操作完成與 的數(shù)據(jù)連接 (此時(shí)，可查看到 ConnectionString 屬性的內(nèi)容 )； DataSource 指定連接的數(shù)據(jù)庫(kù)文件名，如 圖 。 例 我們將例 中的 Data 控件改 用 ADO 數(shù)據(jù)控件，用 SQL 語(yǔ)句從 214 數(shù)據(jù)庫(kù)的兩個(gè)數(shù)據(jù)表中選擇數(shù)據(jù)構(gòu)成記錄集。如果不包括 ORDER BY 子句，查詢(xún)將從學(xué)生成績(jī)表中返回隨機(jī)的 5 條記錄。 “按專(zhuān)業(yè)統(tǒng)計(jì)人數(shù) ”按鈕的指令代碼為： Private Sub Command1_Click() = select 專(zhuān)業(yè) ,count(*) as 人數(shù) from 基本情況 group by 專(zhuān)業(yè) End Sub 運(yùn)行結(jié)果如圖 。要記錄統(tǒng)計(jì)結(jié)果，需要構(gòu)造一個(gè)輸出字段，此時(shí)可使 213 用 SQL 的統(tǒng)計(jì)函數(shù) Count()作為輸出字段，它按專(zhuān)業(yè)分組創(chuàng)建摘要值。 圖 通過(guò)數(shù)據(jù)控件瀏覽記錄集 為了統(tǒng)計(jì)各專(zhuān)業(yè)的人數(shù)，需要對(duì)基本情況表內(nèi)的記錄按專(zhuān)業(yè)分組。 在窗體上放置一個(gè) Data 控件和一個(gè)網(wǎng)格控件 MSFlexGrid1。為了提高可讀性可以重新排序表中的字段。 圖 數(shù)據(jù)顯示 注意：當(dāng) FROM 子句列出多個(gè)表時(shí)，它們出現(xiàn)的順序并不重要。 本例要求從基本情況中選擇學(xué)生的學(xué) 號(hào)、姓名、照片，從學(xué)生成績(jī)表中選擇該學(xué)生的課程和成績(jī)來(lái)構(gòu)成記錄集，可在 Form_ Load 事件中使用 SQL 語(yǔ)句，通過(guò) “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ù)控件上的箭頭按鈕可改變記錄位置。 在窗體上放置與例 類(lèi)似的控件，如圖 所示。 *39。* amp。 注意：代碼中的兩處 Refresh 語(yǔ)句不能合用為一句，這是因?yàn)樵趫?zhí)行了 Select 命令后，必須激活這些變化，然后才能判斷記錄集內(nèi)有無(wú)數(shù)據(jù)?！倍陶Z(yǔ)構(gòu)成查詢(xún)條件，用于過(guò)濾表中的記錄； 方法激活這些變化。 mzy amp。 If Then MsgBox 無(wú)此專(zhuān)業(yè) !, , 提示 = 基本情況 End If End Sub 程序中 “Select *”選擇表中所有字段 (也可以指定選擇部分列 )； “From 基本情況 ”短語(yǔ)指定數(shù)據(jù)來(lái)源； “Where 專(zhuān)業(yè) = 39。 mzy amp。 使用 SQL 語(yǔ)句查詢(xún)只要將例 中命令按鈕 Command5_Click 事件寫(xiě)為如下代碼： Private Sub Command5_Click() Dim mzy As String 211 mzy = InputBox$(請(qǐng)輸入專(zhuān)業(yè) , 查找窗 ) = Select * From 基本情況 Where 專(zhuān)業(yè) = 39?？梢灾苯釉?Data 控件的 RecordSource 屬性欄中輸入 SQL，也可在代碼中通過(guò) SQL 語(yǔ)句將選擇的記錄集賦給數(shù)據(jù)控件的 RecordSource 屬性，也可賦予對(duì)象變量。 圖 選定網(wǎng)格 (數(shù)據(jù)表 )形式 圖 選定 MSHFlexGrid 數(shù)據(jù)網(wǎng)格 圖 選定主表／細(xì)表形式 9． 6 VB 中 SQL 的實(shí)現(xiàn) SQL 中使用 SELECT 語(yǔ)句實(shí)現(xiàn)查詢(xún)， SELECT 語(yǔ)句基本上是數(shù)據(jù)庫(kù)記錄集的定義語(yǔ)句。圖 所示為窗體布局選定主表／細(xì)表形式，以基本情況表作為主表，學(xué)生成 績(jī)表為細(xì)表所建立的數(shù)據(jù)訪(fǎng)問(wèn)窗口。各按鈕的程序代碼不難理解，請(qǐng)讀者自己閱讀。可以對(duì)產(chǎn)生的窗體布局形式進(jìn)行調(diào)整或在此基礎(chǔ)上加上其他控件對(duì)象。 步驟 7：進(jìn)入 “數(shù)據(jù)窗體向?qū)?—已完 成 ”對(duì)話(huà)框，可以將整個(gè)操作過(guò)程保存到一個(gè)向?qū)渲梦募?.rwp 中。 其中， “記錄源 ”下拉式列表框用于選擇數(shù)據(jù)庫(kù)中的表單，本例選擇 “基本情況 ”表；窗口中間的 4 個(gè)箭頭按鈕用于選定字段， “列排序按 ”下拉式列表框用于選擇排序依據(jù)。本例窗體名為 frmjbqk，選 “單個(gè)記錄 ”形式，使用 “ADO數(shù)據(jù)控件 ”訪(fǎng)問(wèn)數(shù)據(jù)。 步驟 4：在 “數(shù)據(jù)窗體向?qū)?—Form”對(duì)話(huà)框內(nèi)設(shè)置應(yīng)用窗體的工作特性。 步驟 3：在 “數(shù)據(jù)窗體向?qū)?—數(shù)據(jù)庫(kù) ”對(duì)話(huà)框內(nèi)選擇具體的數(shù)據(jù)庫(kù)文件。 步驟 2：?jiǎn)螕?“下 —步 ”按鈕， 進(jìn)入 “數(shù)據(jù)窗體向?qū)?數(shù)據(jù)庫(kù)類(lèi)型 ”對(duì)話(huà)框，可以選擇任何版本的 Access 數(shù)據(jù)庫(kù)或任何 ODBC 兼容的用于遠(yuǎn)程訪(fǎng)問(wèn)的數(shù)據(jù)庫(kù)。 例 使用數(shù)據(jù)窗體向?qū)Ы? 數(shù)據(jù)庫(kù)的數(shù)據(jù)訪(fǎng)問(wèn)對(duì)話(huà)框。數(shù)據(jù)窗體向?qū)儆谕饨映绦?，在使用前必?從 Visual Basic 集成開(kāi)發(fā)環(huán)境 的橫向 菜單 中 點(diǎn)擊 “外接程序 ”，再點(diǎn)擊 子菜單的 “外接程序管理器 ”， 從打開(kāi)的 “外接程序管理器 ”窗口 選 擇 “VB 6 數(shù)據(jù)窗體向?qū)?” 命令 ， 將 數(shù)據(jù)窗體 裝入 到 “外接程序 ”中。標(biāo)有 ?號(hào)的記錄行表示允許增加新記錄。用鼠標(biāo)右鍵單擊需要修改的字段名，在彈出的快捷菜單中選擇 “刪除 ”選項(xiàng)，就可從 DataGrid 控件中刪除該字段，也可選擇 “屬性 ”選項(xiàng)修改字段的顯示寬度或字段標(biāo)題。 Visual Basic 提示是否替換現(xiàn)有的網(wǎng)格布局，單擊 “是 ”按鈕就可將表中的字段裝載到 DataGrid 控件中。 顯示在 DataGrid 網(wǎng)格內(nèi)的記錄集，可以通過(guò) DataGrid 控件的 AllowAddNew、 AllowDelete和 AllowUpdate 屬性設(shè)置控制增，刪、改操作。在使用 DataGrid 控件前也必須先通過(guò) “工程 |部件 ”菜單命令選擇 “Microsoft DataGrid Control (OLEDB)”選項(xiàng)，將DataGrid 控件添加到工具箱，再將 DataGrid 控件放置到窗體上。 在窗體上放置 ADO 數(shù)據(jù)控件，并按前面介紹的 ADO 數(shù)據(jù)控件屬性設(shè)置過(guò)程連接數(shù)據(jù) 208 庫(kù) 中的基本情況表。 DataMember 屬性允許處理多個(gè)數(shù)據(jù)集， DataFormat 屬性用于指定數(shù)據(jù)內(nèi)容的顯示格式。這些新增綁定控件必須使用 ADO 數(shù)據(jù)控件進(jìn)行綁定。 9． 5． 3 ADO 數(shù)據(jù)控件上新增 綁定控件的使用 隨著 ADO 對(duì)象模型的引入， Visual Basic 除了保留以往的一些綁定控件外，又提供了一些新的成員來(lái)連接不同數(shù)據(jù)類(lèi)型的數(shù)據(jù)。此時(shí)，已完成了ADO 數(shù)據(jù)控件的連接工作。 步驟 4：?jiǎn)螕?ADO 控件屬性窗口中的 RecordSource 屬性右邊的 “…” 按鈕，彈出記錄源屬性頁(yè)對(duì)話(huà)框。然后單擊 “下 —步 ”按鈕或打開(kāi) “連接 ”選項(xiàng)卡，在對(duì)話(huà)框內(nèi)指定數(shù)據(jù)庫(kù)文件，這里為 。單擊 “生成 ”按鈕，打開(kāi) “數(shù)據(jù)鏈接屬性 ”對(duì)話(huà)框。 “使用 ODBC 數(shù)據(jù)資源名稱(chēng) ”可以通過(guò)下拉式列表框，選擇某個(gè)創(chuàng)建好的數(shù)據(jù)源名稱(chēng)(DSN)，作為數(shù)據(jù)來(lái)源對(duì)遠(yuǎn)程數(shù)據(jù)庫(kù)進(jìn)行控制。在該對(duì)話(huà)框中允許通過(guò)三種不同的方式連接數(shù)據(jù)源： “使用連接字符串 ”只需要單擊 “生成 ”按鈕，通過(guò)選項(xiàng)設(shè)置自動(dòng)產(chǎn)生連接字符串。 步驟 1：在窗體上放置 ADO 數(shù)據(jù)控件，控件名 采用默認(rèn)名 “Adodcl”。 207 2. ADO數(shù)據(jù)控件的方法和事件 ADO 數(shù)據(jù)控件的方法和事件與 Data 控件的方法和事件完全一樣。 表 ConnectionString 屬性參數(shù) 參數(shù) 描述 Provide 指定數(shù)據(jù)源的名稱(chēng) FileName 指定數(shù)據(jù)源所對(duì)應(yīng)的文件名 RemoteProvide 在遠(yuǎn)程數(shù)據(jù)服務(wù)器打開(kāi)一個(gè)客戶(hù)端時(shí)所用的數(shù)據(jù)源名稱(chēng) RemoteServer 在遠(yuǎn)程數(shù)據(jù) 服務(wù)器打開(kāi)一個(gè)主機(jī)端時(shí)所用的數(shù)據(jù)源名稱(chēng) (3)ConnectionTimeout 屬性 用于數(shù)據(jù)連接的超時(shí)設(shè)置，若在指定時(shí)間內(nèi)連接不成功顯示超時(shí)信息。 (2)RecordSource 屬性 RecordSource 確定具體可訪(fǎng)問(wèn)的數(shù)據(jù)，這些數(shù)據(jù)構(gòu)成記錄集對(duì)象 Recordset。 1． ADO數(shù)據(jù)控件的基本屬性 (1)ConnectionString 屬性 ADO 控件沒(méi)有 DatabaseName 屬性，它使用 ConnectionString 屬性與數(shù)據(jù)庫(kù)建立連接。 9． 5． 2 使用 ADO數(shù)據(jù)控件 在使用 ADO 數(shù)據(jù)控件前，必須先通過(guò) “工程 |部件 ”菜單命令選擇 Microsoft ADO Data Control (OLEDB)”選項(xiàng)，將 ADO 數(shù)據(jù)控件添加到工具箱。 圖 ADO 對(duì)象模型 Connection對(duì)象 Command 對(duì)象 Recordset 對(duì)象 Error集合 Error對(duì)象 Parameter集合 Parameter對(duì)象 Field集合 Field對(duì)象 206 表 ADO 對(duì)象描述 對(duì)象名 描 述 Connection 連接數(shù)據(jù)來(lái)源 Command 從數(shù)據(jù)源獲取所需數(shù)據(jù)的命令信息 Recordset 所獲得的一組記錄組成的記 錄集 Error 在訪(fǎng)問(wèn)數(shù)據(jù)時(shí)，由數(shù)據(jù)源所返回的錯(cuò)誤信息 Parameter 與命令對(duì)象有關(guān)的參數(shù) Field 包含了記錄集中某個(gè)字段的信息 要想在程序中使用 ADO 對(duì)象，必須先為當(dāng)前工程引用 ADO 的對(duì)象庫(kù)。圖 示意了這些對(duì)象之間的關(guān)系。它是一種 ActiveX 對(duì)象，采用了被稱(chēng)為 OLE DB 的數(shù)據(jù)訪(fǎng)問(wèn)模式，是數(shù)據(jù)訪(fǎng)問(wèn)對(duì)象 DAO、遠(yuǎn)程數(shù)據(jù)對(duì)象 RDO 和開(kāi)放數(shù)據(jù)庫(kù)互連 ODBC 三種方式的擴(kuò)展。使用 ODBC 的另一個(gè)好處是當(dāng)作為數(shù)據(jù)庫(kù)源的數(shù)據(jù)庫(kù)服務(wù) 器上的數(shù)據(jù)庫(kù)管理系統(tǒng)升級(jí)或轉(zhuǎn)換到不同的數(shù)據(jù)庫(kù)管理系統(tǒng)時(shí)，客戶(hù)機(jī)端應(yīng)用程序不需作任何改變，因此利用 ODBC 開(kāi)發(fā)的數(shù)據(jù)庫(kù)應(yīng)用程序具有很好的移植性。 ODBC 提供了一個(gè)開(kāi)放的、標(biāo)準(zhǔn)的能訪(fǎng)問(wèn)從 PC 機(jī)、小型機(jī)到大型機(jī)數(shù)據(jù)庫(kù)數(shù)據(jù)的接口。 205 (3)文件數(shù)據(jù)源：文件數(shù)據(jù)源是 ODBC 以上版本增加的一種數(shù)據(jù)源，可用于企業(yè)用戶(hù)，ODBC 驅(qū)動(dòng)程序也安裝在用戶(hù)的計(jì)算機(jī)上。任何用戶(hù)都不能使用其他用戶(hù)創(chuàng)建的用戶(hù)數(shù)據(jù)源。 數(shù)據(jù)源分為以下三類(lèi)： (1)用戶(hù)數(shù)據(jù)源：用戶(hù)創(chuàng)建的數(shù)據(jù)源，稱(chēng)為 “用戶(hù)數(shù)據(jù)源 ”。 數(shù)據(jù)源 (Data Source Name，簡(jiǎn)稱(chēng) DSN)是驅(qū)動(dòng)程序與 DBS 連接的橋梁，數(shù)據(jù)源不是 DBS，而是用于表達(dá)一個(gè) ODBC 驅(qū)動(dòng)程序和 DBMS 特殊連接的命名。 4．?dāng)?shù)據(jù)源 數(shù)據(jù)源是指任一種可以通過(guò) ODBC 連接的數(shù)據(jù)庫(kù)管理系統(tǒng)，它包括要訪(fǎng)問(wèn)的數(shù)據(jù)庫(kù)和數(shù)據(jù)庫(kù)的運(yùn)行平臺(tái)。此管理器的主要作用是用來(lái)裝載ODBC 驅(qū)動(dòng)程序、管理數(shù)據(jù)源、檢查 ODBC 參數(shù)的合法性等。如果在 Windows 95 和 Windows NT 環(huán)境下沒(méi)有這個(gè)圖標(biāo)，說(shuō)明沒(méi)有安裝 ODBC 驅(qū)動(dòng)程序管理器。 1． ODBC數(shù)據(jù)庫(kù)應(yīng)用程序 應(yīng)用程序的主要任務(wù)包括：建立與數(shù)據(jù)源的連接；向數(shù)據(jù)源發(fā)送 SQL 請(qǐng)求；接收并處理請(qǐng)求的結(jié)果；斷開(kāi)與數(shù)據(jù)源的連接等。同樣地， ODBC 屏蔽了 DBMS 之間的差異。因此應(yīng)用程序有很好的適應(yīng)性和可移植性，并且具備了同時(shí)訪(fǎng)問(wèn)多種數(shù)據(jù)庫(kù)管理系統(tǒng)的能力，從而徹底克服了傳統(tǒng)數(shù)據(jù)庫(kù)應(yīng)用程序的缺陷。 ODBC 是 Microsoft 公司開(kāi)發(fā)的一套開(kāi)放數(shù)據(jù)庫(kù)系統(tǒng)應(yīng)用程序接口規(guī)范，目前它已成為一種工業(yè)標(biāo)準(zhǔn)，它提供了統(tǒng)一的數(shù)據(jù)庫(kù)應(yīng)用編程接口 (API)，為應(yīng)用程序提供了一套高層調(diào)用接口規(guī)范和基于動(dòng)態(tài)連接庫(kù)的運(yùn)行支持環(huán)境。這種情況下傳統(tǒng)的數(shù)據(jù)庫(kù)應(yīng)用程序開(kāi)發(fā)方法就難以實(shí)現(xiàn)。嵌入式 SQL 語(yǔ)言的另一個(gè)缺點(diǎn)是它只能存取某種特定的數(shù)據(jù)庫(kù)系統(tǒng)，因此一個(gè)應(yīng)用程序只能連接同類(lèi)的 DBMS，而無(wú)法同時(shí)訪(fǎng)問(wèn)多個(gè)不同的 DBMS，而在實(shí)際應(yīng)用中通常是需要同時(shí)訪(fǎng)問(wèn)多個(gè)不同的 DBMS 的。 Private Sub Picture1_DblClick() =