VB數(shù)據(jù)庫應(yīng)用初步

1、VB數(shù)據(jù)庫應(yīng)用初步實驗?zāi)康?） 了解并掌握VB操縱數(shù)據(jù)庫的基本方法。2）初步實現(xiàn)VB控件與數(shù)據(jù)庫的關(guān)聯(lián)。3）簡單了解SQL語句。實驗題目1）建立數(shù)據(jù)庫用Access2003建立一個student.mdb庫，包含“學(xué)生檔案”、“學(xué)生成績”兩張表。記錄數(shù)據(jù)如圖實驗十一 01、實驗H02所示。R學(xué)生首案：表回回區(qū)編號I字號I姓名I 戰(zhàn) |勝B期|是否黨員分|備a |照片女1999-9-91988-8-8587重慶人all01,jpg里2G 20皿期 李濟（自動編號）（自動編號）2 20101002 汪霞Ir iz共有記錄數(shù)：2記錄:回圖實驗H-01圖實驗H-一02.在VB中用“外部程序”菜單的“可視

2、化數(shù)據(jù)管理器”翻開student97.mdb,并執(zhí)行一個SQL查詢，找 出“學(xué)生檔案”與“學(xué)生成績”表中同時出現(xiàn)的學(xué)生，并將查詢結(jié)果“保存”為ABCD。操作結(jié)果如同實驗 十一 03所示。圖實驗H-032）編寫程序，用數(shù)據(jù)庫控件Data連接數(shù)據(jù)庫student97.mdb。顯示并添加與刪除“學(xué)生檔案”表的內(nèi)容。程序 運行界面如圖實驗十一 04所示。圖實驗H043）編寫程序，用ADO模式連接數(shù)據(jù)庫，隱藏Adodc控件，實現(xiàn)數(shù)據(jù)庫內(nèi)容的直觀顯示。運行界面如圖實驗十一 05所示。圖實驗H05實驗背景及準(zhǔn)備1）學(xué)習(xí)了數(shù)據(jù)庫基本概念。2）初步了解VB是通過控件與命令定義、操縱與控制數(shù)據(jù)庫。3）對于SQL語

3、句有簡單認識。實驗過程與主要步驟1）題目一進入VB,在“外部程序”菜單中選“可視化數(shù)據(jù)管理器”，可以新建Access Foxpro等數(shù)據(jù)庫。因為VB 是通過命令與控件來操作、管理數(shù)據(jù)庫，所以不用VB環(huán)境，改用Access2003直接建立student.mdb。用Access建表也是個簡單的學(xué)習(xí)過程。一個數(shù)據(jù)庫可包換假設(shè)干張表。每張表由表名、字段與記錄構(gòu)成。字 段定義需要確定字段名、類型、長度。另外，為了索引與排序，需要確定一個主關(guān)鍵字，默認的是自動編號。 Access操作簡便，適宜自學(xué)，對照圖實驗十一。1、02數(shù)據(jù)可以順利完成表的建立。在“照片”字段處理中，本 來應(yīng)選擇“OLE對象”數(shù)據(jù)類型，

4、因為版本原因以及便于將來更靈活地處理圖形，所以選擇了 “文本”類型。為了使VB能夠有效地驅(qū)動數(shù)據(jù)庫，當(dāng)數(shù)據(jù)庫建立后，在Access中使用“工具”菜單“數(shù)據(jù)庫實用工具” 將文件轉(zhuǎn)換成Access97格式。數(shù)據(jù)庫名student97.mdbo在VB中用“外部程序”菜單的“可視化數(shù)據(jù)管理器”翻開student97.mdb,并執(zhí)行一個SQL查詢，“Select *From學(xué)生檔案，學(xué)生成績where學(xué)生檔案.姓名=學(xué)生成績.姓名”，找出“學(xué)生檔案”與“學(xué)生成績”表中同 時出現(xiàn)的學(xué)生，并將查詢結(jié)果“保存”為ABCD。2）題目二進入VB,照題目放置好各個控件。這里有兩個基本問題：一是如何建立起數(shù)據(jù)庫控件D

5、atal與具體數(shù)據(jù)庫、 表的聯(lián)系？二是其它控件如何與數(shù)據(jù)庫控件Datal關(guān)聯(lián)，并綁定到某個表的具體字段？第一個問題，在數(shù)據(jù)庫控件Datal中修改3個屬性Connect、Databasename recordsourceo其中第一個指定 數(shù)據(jù)庫類型；第二個指定數(shù)據(jù)庫名稱；最后一個指定表的名稱。第二個問題，比方文本框、復(fù)選框等，需要修改2個屬性Datasource、Datafield,第一個指明數(shù)據(jù)庫控件名 稱，第二個指明綁定的字段名。數(shù)據(jù)庫控件Datal本身提供了向前、向后翻動記錄的功能，但不提供刪除、添加記錄的功能。所以實現(xiàn)“添 加”與“刪除”功能需要要使用Data控件的Recordset對象

6、，調(diào)用它的方法并進行編程。此題需用到Addnew與 Delete 方法。題目二的程序代碼如下：Private Sub Command 1 _Click()Datal .Recordset. AddNewEnd SubPrivate Sub Command2_Click()aa二”真的要刪除當(dāng)前記錄嘛？ ”bb = MsgBox(aa, vbOKCancel,冊U 除記錄”)If bb = vbOK ThenDatal .Recordset.DeleteEnd IfEnd Sub3)題目三進入VB,照題目要求與題目二類似地放置標(biāo)簽、文本框、命令按鈕控件，增加一個圖片(Picture)控件用 以顯

7、示照片。使用ADO技術(shù)進行數(shù)據(jù)庫連接。首先需要添加相應(yīng)控件。選VB “工程”菜單的“部件”，出現(xiàn)圖實驗十一 06 界面，選中“ Microsoft Datalist control 6.0(OLE DB) “ Microsoft ADO Data Control 6.0 (SP6) (OLE DB) ”、 “Microsoft DataGrid Control 6.0 (SP6) (OLE DB)”、“Mcrosoft Hierarchical FlexGrid control 6.0 (SP6) (OLE DB)” 等，添加到工具箱。圖實驗H06隨后，工具箱上會出現(xiàn)相應(yīng)的幾個控件。選中Ado

8、dc控件將其放入窗體，控件名稱自動為Adodcl。設(shè)置屬 性Visible為False,即不可見。設(shè)置Adodc控件的Conectionstring屬性，其功能用于連接數(shù)據(jù)庫。點擊該屬性后 出現(xiàn)圖實驗十一 07所示界面。圖實驗H07選擇“使用連接字符串”，輸入一個連接字符串（用戶自定義），例如“abed”。接著彈出圖實驗十一 08所 示的界面，選擇Microsoft Jet 3.51 OLE DB Provider ,即“微軟對象嵌入鏈接引擎提供商”。型數(shù)據(jù)集接屬性提供程序j連接|高級|所有|選擇您希望連接的數(shù)據(jù)：oledb提供程序Medi aCatalogDB OLE DB Provider

9、Me di aCatalogMergedDB OLE DB ProviderMedi aCatalogttebDB OLE DB PrwidirMicrosoft Jet 3. 51 OLE DB ProviderMicrosoft Jet 4. 0 OLE DB ProviderMicrosoft OLE DBProvider For Data Mining ServicesMicrosoft OLE DBProvi der for Indexing ServiceMi crosoft OLE DBProvider for Internet PublishingMicrosoft OLE D

10、BProvider for ODBC DriversMi crosoft OLE DBProvider for OLAP Services 8. 0Microsoft OLE DBProvider for OracleMi crosoft OLE DBProvi der for Outlook SearchMicrosoft OLE DBProvi der for SQL ServerMicrosoft OLE DBSimple Provi derMSD at aShapeOLE DB Provider for Microsoft Directory Services下一步直）確定 | 取消

11、| 幫助 |圖實驗圖實驗08選擇“下一步”，出現(xiàn)圖實驗十一 09界面，選擇相應(yīng)的數(shù)據(jù)庫名C： VB實驗syllstudent97.mdb”。不使 用密碼登錄。提供程序連接1高級；所有指定以下設(shè)置以連接到Access數(shù)居：.選擇或輸入數(shù)據(jù)庫名稱也）：I-:實驗 myl 1 s tudent97 m db.輸入登錄數(shù)據(jù)庫的信息 用戶名稱但）： .dmin由 tn it 比叼K J.廠空白密旦但） r允許探存密碼那么試連接圖實驗H09測試連接，出現(xiàn)圖實驗寸1 J 測試連接成功。圖實驗H- 10測試連接成功后，選“確定”退出。設(shè)置Adodcl控件的Recordsource屬性，以便連接到具體的某一個表

12、， 此題為“學(xué)生檔案:在Adodcl的屬性窗口中點擊Recordsource項，彈出屬性頁，選“命令類型”與“表或存 儲過程名稱”，結(jié)果如圖實驗十一 11所示。屬性頁記錄源記錄源 命令類型12 - adCm dT abl e表或存儲過程名稱命令文本(SQL)| 確定 | 取消 | 應(yīng)用上| 幫助 |圖實驗H11此后，各個控件與Adodcl的綁定設(shè)置如同第二題中與Datal的綁定一樣。屬性Datasource選Adodcl,Datafield 選“學(xué)生檔案”表中相應(yīng)字段。在此題中要求根據(jù)記錄號把相應(yīng)圖片文件放入圖片控件的Picture屬性中，因此用到語句：Picture 1.Picture =

13、LoadPicture(App.Path & (照片)題目三的程序代碼如下：Private Sub Command 1 _Click()Adodc 1 .Recordset.MoveFirst，轉(zhuǎn)到第一條記錄Picture 1.Picture = LoadPicture(App.Path & nn(照片)，照片調(diào)出End SubPrivate Sub Command2_Click()Adodc 1 .Recordset.MoveNext，轉(zhuǎn)到下一條記錄If Adodc 1 ,Recordset.EOF = True ThenAdodc 1 .Recordset.MoveLast，轉(zhuǎn)到最后一條記錄End IfPicturel.Picture = LoadPicture(App.Path &(“照片)End SubPrivate Sub Command3_Click()Adodc 1 .Recordset.MovePreviousIf Adodc l.Recordset.BOF = True ThenAdodcl .Recordset.MoveFirstEnd IfPicturel.Picture = LoadPicture(App.Path &(照片)End SubPrivate Sub Command4_Click()Adodcl .Recordset.MoveLast