【正文】 VB數(shù)據(jù)庫應(yīng)用程序的組成VB數(shù)據(jù)庫應(yīng)用程序包含三部分，如下圖所示。 ，并在屬性頁中將“ODBC 數(shù)據(jù)源名”設(shè)置為mystudent。如果DataList控件中學(xué)號沒有排序，就無法方便地找到清單中的項目。我們要加入一些代碼，在清單中每次選擇另一學(xué)號時，移動ADO數(shù)據(jù)控件，具體方法如下：Private Sub DataList1_Click() = End Sub 每次單擊清單中的新項目時，這個項目就成為ADO數(shù)據(jù)控件的書簽。 3．要用基本情況表中的學(xué)號建立DataList控件，設(shè)置屬性RowSource= Adodc1，ListField=學(xué)號。步驟如下： 1．選擇“工程|部件”菜單，打開“部件”對話框，選取“Microsoft DataList Controls (OLEDB)”復(fù)選項。本例要求在DataList控件中顯示學(xué)號，要將DataList控件與ADO數(shù)據(jù)控件連接，使用戶每次選擇清單中的新學(xué)號，窗體上的文本框中出現(xiàn)相應(yīng)的字段。 。 Mystudent數(shù)據(jù)源已經(jīng)注冊到系統(tǒng)上，不必再次生成。步驟10：將四個文本框控件和四個標(biāo)題控件放在窗體上。選擇基本情況表。 步驟8：在“命令類型” 下拉清單中，選擇adCmdTable項目，這是記錄源的類型。下一個任務(wù)是，選擇ADO數(shù)據(jù)控件能看到的數(shù)據(jù)庫記錄(表格或SQL語句返回的記錄集)。步驟6：展開下拉清單，并選擇mystudent數(shù)據(jù)源。 7．單擊“選擇”按鈕，并通過“選定數(shù)據(jù)庫”窗口選擇數(shù)據(jù)庫，()。 這時就可以指定將哪個Access數(shù)據(jù)庫賦予新建的數(shù)據(jù)源。 新窗口指出，已選擇了系統(tǒng)數(shù)據(jù)源并用Access驅(qū)動程序訪問。本例采用Access數(shù)據(jù)庫。 驅(qū)動程序必須符合數(shù)據(jù)庫。 2．選擇“系統(tǒng)數(shù)據(jù)源”，以便從網(wǎng)上登錄測試鎖定機(jī)制(如果在網(wǎng)絡(luò)環(huán)境中)。 用戶數(shù)據(jù)源 只有你能訪問的數(shù)據(jù)庫文件。如果系統(tǒng)上沒有數(shù)據(jù)源名，則按下列步驟生成新的數(shù)據(jù)源名： “新建”按鈕，打開“創(chuàng)建新數(shù)據(jù)源”窗口。 數(shù)據(jù)源名就是系統(tǒng)知道的數(shù)據(jù)庫名?？梢钥闯?，可以指定多種數(shù)據(jù)庫，但應(yīng)用程序用相同的方法處理。 步驟4：選擇“通用”標(biāo)簽，并選擇“使用ODBC數(shù)據(jù)資源名稱”單選項。 步驟2：在窗體上放一個ADO數(shù)據(jù)控件的實例。窗體中幾個約束數(shù)據(jù)文本框綁定到連接表中當(dāng)前記錄的ADO數(shù)據(jù)控件。 將Adodcl的RecordSource屬性設(shè)置為SQL語句，代碼如下：”select ,avg(成績) as 平均成績,min(成績) as 最低成績 from 學(xué)生成績表,基本情況 where = group by , order by avg(成績) desc”。要將作圖數(shù)據(jù)傳送到Mschart控件,=Adodc1。 要繪制圖表，可使用綁定控件MsChart。 要顯示作圖數(shù)據(jù)，可在窗體上放置一個網(wǎng)格控件（選擇工程→部件中Microsoft Data Grid Control (OLEDB)），設(shè)置網(wǎng)格的DataSource=Adodcl，將其綁定到ADO數(shù)據(jù)控件上。學(xué)生成績表中沒有姓名字段，故需要通過條件“=”從基本情況表取得。 設(shè)計一個窗體，產(chǎn)生姓名、平均成績和最低成績?nèi)棓?shù)據(jù)，按平均成績降序排列數(shù)據(jù)，并用該數(shù)據(jù)作圖。ADO數(shù)據(jù)控件的ConnectionString屬性設(shè)置為與數(shù)據(jù)源連接的相關(guān)信息，(此時，可查看到ConnectionString屬性的內(nèi)容)；DataSource指定連接的數(shù)據(jù)庫文件名。 。如果不包括ORDER BY子句，查詢將從學(xué)生成績表中返回隨機(jī)的5條記錄?！鞍磳I(yè)統(tǒng)計人數(shù)”按鈕的指令代碼為：Private Sub Command1_Click() = select 專業(yè),count(*) as 人數(shù) from 基本情況 group by 專業(yè) End Sub 。要記錄統(tǒng)計結(jié)果，需要構(gòu)造一個輸出字段，此時可使用SQL的統(tǒng)計函數(shù)Count()作為輸出字段，它按專業(yè)分組創(chuàng)建摘要值。 通過數(shù)據(jù)控件瀏覽記錄集 為了統(tǒng)計各專業(yè)的人數(shù)，需要對基本情況表內(nèi)的記錄按專業(yè)分組。在窗體上放置一個Data控件和一個網(wǎng)格控件MSFlexGrid1。為了提高可讀性可以重新排序表中的字段。圖 數(shù)據(jù)顯示注意：當(dāng)FROM子句列出多個表時，它們出現(xiàn)的順序并不重要。本例要求從基本情況中選擇學(xué)生的學(xué)號、姓名、照片，從學(xué)生成績表中選擇該學(xué)生的課程和成績來構(gòu)成記錄集，可在Form_ Load事件中使用SQL語句，通過“Where =”短語實現(xiàn)兩表之間的連接，用Select命令從學(xué)生成績表中選擇課程、成績字段，從基本情況表中選擇學(xué)號、姓名和照片字段構(gòu)成記錄集：Private Sub Form_Load() = Select , From 學(xué)生成績表,基本情況 Where =End Sub 當(dāng)窗體啟動后，數(shù)據(jù)顯示如圖 ，數(shù)據(jù)控件上的箭頭按鈕可改變記錄位置。 *39。* amp。注意：代碼中的兩處Refresh語句不能合用為一句，這是因為在執(zhí)行了Select命令后，必須激活這些變化，然后才能判斷記錄集內(nèi)有無數(shù)據(jù)?！倍陶Z構(gòu)成查詢條件，用于過濾表中的記錄；。 mzy amp。 If Then MsgBox 無此專業(yè)!, , 提示 = 基本情況 End IfEnd Sub 程序中“Select *”選擇表中所有字段(也可以指定選擇部分列)；“From基本情況”短語指定數(shù)據(jù)來源；“Where 專業(yè) = 39。 mzy amp。：Private Sub Command5_Click() Dim mzy As String mzy = InputBox$(請輸入專業(yè), 查找窗) = Select * From 基本情況 Where 專業(yè) = 39?？梢灾苯釉贒ata控件的RecordSource屬性欄中輸入SQL，也可在代碼中通過SQL語句將選擇的記錄集賦給數(shù)據(jù)控件的RecordSource屬性，也可賦予對象變量。Private Sub Picture1_DblClick() = End SubVB中SQL與控件的結(jié)合的實現(xiàn)SQL中使用SELECT語句實現(xiàn)查詢，SELECT語句基本上是數(shù)據(jù)庫記錄集的定義語句。在輸入照片時，事先需要用掃描儀將照片掃描到內(nèi)存或形成圖形文件，通過一個圖片編輯程序?qū)⒄掌b入剪貼板，然后再從剪貼板復(fù)制到Picture1控件。此外，使用數(shù)據(jù)控件對象的任一箭頭按鈕來改變當(dāng)前記錄，也可確定所做添加的新記錄或?qū)σ延杏涗浀男薷?，Action取值1~4分別對應(yīng)單擊其中一個箭頭按鈕的操作，當(dāng)單擊數(shù)據(jù)控件的箭頭按鈕時也觸發(fā)Validate事件。例如，下面的代碼對學(xué)號字段進(jìn)行測試，如果學(xué)號為空則輸入無效。 If Then MsgBox 無此專業(yè)!, , 提示 = 基本情況 End IfEnd Sub 上面的代碼給出了數(shù)據(jù)表內(nèi)數(shù)據(jù)處理的基本方法。 mzy amp。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 IfEnd Sub命令按鈕Command4_Click事件使用UpdateControls方法放棄操作，代碼如下：Private Sub Command4_Click() On Error Resume Next = 新增 = 修改 = True = True = True = False = True End Sub命令按鈕Command5_Click事件根據(jù)輸入專業(yè)使用SQL語句查找記錄，代碼如下：Private Sub Command5_Click()Dim mzy As String mzy = InputBox$(請輸入專業(yè), 查找窗) = Select * From 基本情況 Where 專業(yè) = 39。Private Sub Command1_Click() On Error Resume Next = Not = Not = Not = Not If = 新增 Then = 確認(rèn) Else = 新增 End IfEnd Sub 命令按鈕Command2_Click事件調(diào)用方法刪除當(dāng)前記錄。程序中出現(xiàn)的On Error Resume Next語句是Visual Basic提供的錯誤捕獲語句。當(dāng)按鈕提示為“新增”時調(diào)用AddNew方法，并將提示文字改為“確認(rèn)”，同時使“刪除”按鈕Command“修改”按鈕Command3和“查找”按鈕Command5不可用，而使“放棄”按鈕Command4可用。 “新增”、“刪除”、“修改”、“放棄”和“查找”鈕，通過對5個按紐的編程建立增、刪、改、查功能。 (3)調(diào)用Update方法，確定所做的修改。也可通過程序代碼來修改記錄，使用程序代碼修改當(dāng)前記錄的步驟為： (1)調(diào)用Edit方法。在移動記錄指針后，應(yīng)該檢查Eof屬性。刪除一條記錄后，被數(shù)據(jù)庫所約束的綁定控件仍舊顯示該記錄的內(nèi)容。(3)移動記錄指針。2．刪除記錄要從記錄集中刪除記錄的操作分為三步：(1)定位被刪除的記錄使之成為當(dāng)前記錄。當(dāng)調(diào)用Update方法寫入記錄后，記錄指針自動返回到添加新記錄前的位置上，而不顯示新記錄。 (3)調(diào)用Update方法，確定所做的添加，將緩沖區(qū)內(nèi)的數(shù)據(jù)寫入數(shù)據(jù)庫。 (2)給各字段賦值。它們的語法格式為： 1．增加記錄AddNew方法在記錄集中增加新記錄。 例如：假設(shè)數(shù)據(jù)庫Student內(nèi)基本情況表的索引字段為學(xué)號，滿足學(xué)號字段值大于等于110001的第1條記錄可使用以下程序代碼： = 0 ’設(shè)置記錄集類型為Table = 基本情況 ’打開基本情況表單 = jbqk_no ’打開名稱為jbqk_no的索引 =, 110001 數(shù)據(jù)庫記錄的增、刪、改操作 Data控件是瀏覽表格并編輯表格的好工具，但怎么輸入新信息或刪除現(xiàn)有記錄呢?這需要編寫幾行代碼，否則無法在Data控件上完成數(shù)據(jù)輸入。 在使用Seek方法定位記錄時，必