【正文】 d Sub這里，“Group by 學(xué)號(hào)”短語將同一學(xué)生的各門課程的記錄合并成一條記錄，由Avg(成績(jī))計(jì)算出該學(xué)生的平均成績(jī)，“Order By Avg(成績(jī)) Desc”短語按平均成績(jī)的降序排列數(shù)據(jù)，“Top 5”短語返回最前面的5條記錄。如果不包括ORDER BY子句，查詢將從學(xué)生成績(jī)表中返回隨機(jī)的5條記錄。“恢復(fù)原表內(nèi)容”按鈕的指令代碼為：Private Sub Command3_Click() = 基本情況End Sub以上介紹的是在Data控件上使用SQL，如果要在ADO數(shù)據(jù)控件上使用SQL語句，最好通過代碼配合ADO數(shù)據(jù)控件完成數(shù)據(jù)庫(kù)的連接，這可給程序帶來更大的靈活性。 。 將Data控件改用ADO數(shù)據(jù)控件Adodc1，各文本框的Datasource=Adodc1，DataField屬性分別設(shè)置為學(xué)號(hào)、姓名、課程、成績(jī)，而字段照片綁定圖形框。ADO數(shù)據(jù)控件的ConnectionString屬性設(shè)置為與數(shù)據(jù)源連接的相關(guān)信息，(此時(shí)，可查看到ConnectionString屬性的內(nèi)容)；DataSource指定連接的數(shù)據(jù)庫(kù)文件名。 使用ADO數(shù)據(jù)控件即DataSource屬性使用SQL語句：select 學(xué)生成績(jī)表.*, from 學(xué)生成績(jī)表,基本情況 where =。 設(shè)計(jì)一個(gè)窗體，產(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ī)表中沒有姓名字段，故需要通過條件“=”從基本情況表取得。然后，將產(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。 要繪制圖表，可使用綁定控件MsChart。MsChart控件也是一個(gè)Active X控件，需要通過“工程→部件”菜單命令，將MsChart控件添加到工具箱中。要將作圖數(shù)據(jù)傳送到Mschart控件,=Adodc1。如果只要選擇部分?jǐn)?shù)據(jù)作圖，可以將作圖數(shù)據(jù)存入到數(shù)組，=數(shù)組名即可。 將Adodcl的RecordSource屬性設(shè)置為SQL語句，代碼如下：”select ,avg(成績(jī)) as 平均成績(jī),min(成績(jī)) as 最低成績(jī) from 學(xué)生成績(jī)表,基本情況 where = group by , order by avg(成績(jī)) desc”。 顯示作圖數(shù)據(jù)9．7 VB中使用ODBC在VB環(huán)境開發(fā)數(shù)據(jù)庫(kù)應(yīng)用時(shí)，與數(shù)據(jù)庫(kù)連接和對(duì)數(shù)據(jù)庫(kù)的數(shù)據(jù)操作是通過ODBC、Microsoft Jet(數(shù)據(jù)庫(kù)引擎)等實(shí)現(xiàn)的。Microsoft Jet主要用于本地?cái)?shù)據(jù)庫(kù)，而在C／S結(jié)構(gòu)的應(yīng)用中一般用ODBC。 使用ADO數(shù)據(jù)控件，設(shè)計(jì)一個(gè)簡(jiǎn)單窗體。窗體中幾個(gè)約束數(shù)據(jù)文本框綁定到連接表中當(dāng)前記錄的ADO數(shù)據(jù)控件。這個(gè)項(xiàng)目不需編程，步驟如下：步驟1：開始新項(xiàng)目，并在項(xiàng)目工具箱中加進(jìn)ADO數(shù)據(jù)控件。 步驟2：在窗體上放一個(gè)ADO數(shù)據(jù)控件的實(shí)例。 步驟3：右鍵單擊控件，并從彈出菜單中選擇“ADODC屬性”命令（或單擊Adodc1的ConnectionString屬性旁的“…”按鈕），打開ADO數(shù)據(jù)控件的屬性頁。 步驟4：選擇“通用”標(biāo)簽，并選擇“使用ODBC數(shù)據(jù)資源名稱”單選項(xiàng)。 步驟5：現(xiàn)在要指定數(shù)據(jù)源(ADO數(shù)據(jù)控件聯(lián)系的數(shù)據(jù)庫(kù))?？梢钥闯?，可以指定多種數(shù)據(jù)庫(kù)，但應(yīng)用程序用相同的方法處理。不管實(shí)際提供表格的數(shù)據(jù)庫(kù)為何種形式，它用相同的語句訪問表格及其記錄。 數(shù)據(jù)源名就是系統(tǒng)知道的數(shù)據(jù)庫(kù)名。數(shù)據(jù)源名只要生成一次，此后任何應(yīng)用程序都可以使用。如果系統(tǒng)上沒有數(shù)據(jù)源名，則按下列步驟生成新的數(shù)據(jù)源名： “新建”按鈕，打開“創(chuàng)建新數(shù)據(jù)源”窗口。在這個(gè)窗口中可以選擇數(shù)據(jù)源類型，選項(xiàng)包括： 文件數(shù)據(jù)源 所有用戶均可以訪問的數(shù)據(jù)庫(kù)文件。 用戶數(shù)據(jù)源 只有你能訪問的數(shù)據(jù)庫(kù)文件。 系統(tǒng)數(shù)據(jù)源 能登錄該機(jī)器的任何用戶都能訪問的數(shù)據(jù)庫(kù)文件。 2．選擇“系統(tǒng)數(shù)據(jù)源”，以便從網(wǎng)上登錄測(cè)試鎖定機(jī)制(如果在網(wǎng)絡(luò)環(huán)境中)。 3．單擊“下一步”按鈕顯示“創(chuàng)建新數(shù)據(jù)源”窗口，指定訪問數(shù)據(jù)庫(kù)所用的驅(qū)動(dòng)程序。 驅(qū)動(dòng)程序必須符合數(shù)據(jù)庫(kù)。可以看出，數(shù)據(jù)源可以是個(gè)大數(shù)據(jù)庫(kù)，包括Access、Oracle、 SQL Server。本例采用Access數(shù)據(jù)庫(kù)。 4．選擇Microsoft Access Driver，并單擊“下一步”按鈕。 新窗口指出，已選擇了系統(tǒng)數(shù)據(jù)源并用Access驅(qū)動(dòng)程序訪問。 5．單擊“完成”按鈕，生成數(shù)據(jù)源。 這時(shí)就可以指定將哪個(gè)Access數(shù)據(jù)庫(kù)賦予新建的數(shù)據(jù)源。在出現(xiàn)的“ODBC Microsoft Access 安裝”窗口中，執(zhí)行如下操作步驟： 6．在第一個(gè)框中，指定數(shù)據(jù)源名mystudent，在“描述”框中，輸入簡(jiǎn)短說明：student數(shù)據(jù)源（說明可以空缺）。 7．單擊“選擇”按鈕，并通過“選定數(shù)據(jù)庫(kù)”窗口選擇數(shù)據(jù)庫(kù)，()。 8．回到ADO數(shù)據(jù)控件的屬性頁時(shí)，新的數(shù)據(jù)源即會(huì)出現(xiàn)在“使用ODBC數(shù)據(jù)資源名稱”下拉清單中。步驟6：展開下拉清單，并選擇mystudent數(shù)據(jù)源。實(shí)際上，這就指定了要使用的數(shù)據(jù)庫(kù)(類似于設(shè)計(jì)Data控件的DatabaseName屬性)。下一個(gè)任務(wù)是，選擇ADO數(shù)據(jù)控件能看到的數(shù)據(jù)庫(kù)記錄(表格或SQL語句返回的記錄集)。 步驟7：切換到“記錄源”標(biāo)簽（或單擊Adodc1的RecordSource屬性旁的“…”按鈕）。 步驟8：在“命令類型” 下拉清單中，選擇adCmdTable項(xiàng)目，這是記錄源的類型。 步驟9：在“表或存儲(chǔ)過程名稱”下拉的清單中出現(xiàn)數(shù)據(jù)庫(kù)中的所有表名。選擇基本情況表。 。步驟10：將四個(gè)文本框控件和四個(gè)標(biāo)題控件放在窗體上。將它們的DataSource=Adodc1，DataField分別設(shè)置為學(xué)號(hào)、姓名、專業(yè)、出生年月。 Mystudent數(shù)據(jù)源已經(jīng)注冊(cè)到系統(tǒng)上，不必再次生成。它會(huì)自動(dòng)出現(xiàn)在ADO數(shù)據(jù)控件屬性頁的“使用ODBC數(shù)據(jù)資源名稱”下拉清單中。 。 使用ADO數(shù)據(jù)控件及ODBC ADO數(shù)據(jù)控件使用自己的高級(jí)約束數(shù)據(jù)控件，即DataList和DataCombo控件。本例要求在DataList控件中顯示學(xué)號(hào)，要將DataList控件與ADO數(shù)據(jù)控件連接，使用戶每次選擇清單中的新學(xué)號(hào)，窗體上的文本框中出現(xiàn)相應(yīng)的字段。要使用DataList和DataCombo控件，首先要將其加進(jìn)工具箱。步驟如下： 1．選擇“工程|部件”菜單，打開“部件”對(duì)話框，選取“Microsoft DataList Controls (OLEDB)”復(fù)選項(xiàng)。 2．將DataList控件的實(shí)例放在窗體上。 3．要用基本情況表中的學(xué)號(hào)建立DataList控件，設(shè)置屬性RowSource= Adodc1，ListField=學(xué)號(hào)。 如果這時(shí)運(yùn)行應(yīng)用程序，則會(huì)自動(dòng)生成DataList控件，但清單中所選的學(xué)號(hào)對(duì)約束數(shù)據(jù)控件沒有影響。我們要加入一些代碼，在清單中每次選擇另一學(xué)號(hào)時(shí)，移動(dòng)ADO數(shù)據(jù)控件，具體方法如下：Private Sub DataList1_Click() = End Sub 每次單擊清單中的新項(xiàng)目時(shí)，這個(gè)項(xiàng)目就成為ADO數(shù)據(jù)控件的書簽。 大多數(shù)情況下，用于自動(dòng)建立DataList控件的數(shù)據(jù)通常沒有排序。如果DataList控件中學(xué)號(hào)沒有排序，就無法方便地找到清單中的項(xiàng)目。要使DataList控件中學(xué)號(hào)排序，按如下步驟修改ADO數(shù)據(jù)控件的RecordSource屬性： 。 ，并在屬性頁中將“ODBC 數(shù)據(jù)源名”設(shè)置為mystudent。 3．切換到“記錄源” 標(biāo)簽，指定SQL 語 Adodc1控件句而不是表格：將“命令類型”設(shè)置為 adCmdUnknown，并在“命令文本”框中輸人下列SQL語句： select * from 基本情況 order by 學(xué)號(hào) 用外接程序的數(shù)據(jù)窗體向?qū)?chuàng)建主細(xì)表（，細(xì)表是學(xué)生成績(jī)表）。步驟1:選擇 “外接程序”的“數(shù)據(jù)窗體向?qū)А辈藛危ㄈ绮藛沃袩o此選項(xiàng)，可通過“外接程序”的“外接程序管理器”加載“VB 6 數(shù)據(jù)窗體向?qū)А保?，出現(xiàn)“數(shù)據(jù)窗體向?qū)А榻B”窗口，選擇“無”，單擊下一步；步驟2: 在“數(shù)據(jù)窗體向?qū)А獢?shù)據(jù)庫(kù)類型”窗口“選擇Remote(ODBC)”，單擊下一步；步驟3: 在“數(shù)據(jù)窗體向?qū)АB接信息”窗口,在DSN（數(shù)據(jù)源名）欄選擇已定義的數(shù)據(jù)源mystudent，單擊下一步；步驟4: 在“數(shù)據(jù)窗體向?qū)А狥orm”窗口，在“窗體名稱為”文本框中輸入窗體名稱，本例輸入frm_jbqk；窗體布局選擇“主表/細(xì)表”，單擊下一步；步驟5: 在“數(shù)據(jù)窗體向?qū)А鞅碛涗浽础贝翱谶x擇主表及其字段，本例在“記錄源” 文本框選擇主表為“基本情況”，在“可用字段”中挑選字段學(xué)號(hào)、姓名、專業(yè)到“選定字段”，單擊下一步；步驟6:在“數(shù)據(jù)窗體向?qū)А敿?xì)資料記錄源”窗口選擇細(xì)表及其字段，本例在“記錄源” 文本框選擇細(xì)表為“學(xué)生成績(jī)表”，在“可用字段”中挑選字段學(xué)號(hào)、課程、成績(jī)到“選定字段”，單擊下一步；步驟7:在“ 數(shù)據(jù)窗體向?qū)А涗浽搓P(guān)系”窗口，選擇主表及其細(xì)表相連接的字段，本例在“主表”和“細(xì)表”下拉列表框中均選擇“學(xué)號(hào)”，單擊下一步；步驟8:在“ 數(shù)據(jù)窗體向?qū)А丶x擇”窗口選擇需要的控件，單擊下一步； 步驟9:單擊“完成”按鈕。 用外接程序的數(shù)據(jù)窗體向?qū)?chuàng)建主細(xì)表習(xí)題與思考題 選擇題1．要利用數(shù)據(jù)控件返回?cái)?shù)據(jù)庫(kù)中記錄集，則需設(shè)置_______屬性。（A）Connect (B)DatabaseName (C)RecordSource (D)RecordType2．Seek方法可在______記錄集中進(jìn)行查找。(A)Table類型 (B)Snapshot類型 (C)Dynaset類型 (D)以上三者3．下列_________組關(guān)鍵字是Select語句中不可缺少的。(A)Select 、From 　(B)Select、Where　　(C)From、Order By　　(D)Select、All4．在使用Delete方法刪除當(dāng)前記錄后，記錄指針位于____________。(A) 被刪除記錄上　　　　　　　　　　 (B)被刪除記錄的上一條　(B) (C)被刪除記錄下一條　　　　　　　(D)記錄集的第一條5．使用ADO數(shù)據(jù)控件的ConnectionString屬性與數(shù)據(jù)源建立連接相關(guān)信息，在屬性頁對(duì)話框中可以有_________種不同的連接方式。(A)１　　　　　(B)２　　　　　　(C)３　　　　　　　　(D)４6．?dāng)?shù)據(jù)綁定列表框DBList和下拉式列表框DBCombo控件中的列表數(shù)據(jù)通過屬性_________從數(shù)據(jù)庫(kù)中獲得。(A) DataSource和DataField 　(B)RowSource和ListField(C)BoundColumn和BoundText 　 　(D)DataSource和ListField7．DBList控件和DBCombo控件與數(shù)據(jù)庫(kù)的綁定通過屬性_________實(shí)現(xiàn)。(B) DataSource和DataField (B)RowSource和ListField(C)BoundColumn和BoundText 　　 (D)DataSource和ListField8．下列所顯示的字符串中，字符串__________不包含在ADO數(shù)據(jù)控件的ConnectionString屬性中。(A) Microsoft Jet OLE DB Provider(B) Data Source=C:\(C) Persist Security Info=False(D) 2adCmdTable0 填空題1．要使綁定控件能通過數(shù)據(jù)控件Ｄata1連接到數(shù)據(jù)庫(kù)上，必須設(shè)置控件的_____屬性為______，要使綁定控件能與有效的字段建立聯(lián)系，則須設(shè)置控件的_____屬性。2．如果數(shù)據(jù)控件連接的是單表數(shù)據(jù)庫(kù)，則_______屬性應(yīng)設(shè)置為數(shù)據(jù)庫(kù)文件所在的子文件夾名，而具體文件名放在______屬性中。3．記錄集的RecordCount屬性用于對(duì)Recordset對(duì)象中的記錄計(jì)數(shù)，為了獲得準(zhǔn)確值，應(yīng)先使用_______方法，再獲得RecordCount屬性值。4．要在程序中通過代碼使用ADO對(duì)象，必須先為當(dāng)前工程引用__________。 問答題1．記錄、字段、表與數(shù)據(jù)庫(kù)之間的關(guān)系是什么？2．Visual Basic中記錄集有幾種類型？有何區(qū)別？3．要利用數(shù)據(jù)控件返回?cái)?shù)據(jù)庫(kù)中記錄的集合，怎樣設(shè)置它的屬性？4．對(duì)數(shù)據(jù)庫(kù)進(jìn)行增、改操作后必須使用什么方法確認(rèn)操作？5．怎樣使綁定控件能被數(shù)據(jù)庫(kù)約束？6．怎樣準(zhǔn)確地獲得記錄集的記錄計(jì)數(shù)？7．ODBC技術(shù)與傳統(tǒng)的數(shù)據(jù)庫(kù)編程方式有什么區(qū)別？8．什么是ODBC數(shù)據(jù)源？有哪三類？