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

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

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

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

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

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

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

7、示照片。使用ADO技術(shù)進(jìn)行數(shù)據(jù)庫連接。首先需要添加相應(yīng)控件。選VB “工程”菜單的“部件”，出現(xiàn)圖實(shí)驗(yà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)” 等，添加到工具箱。圖實(shí)驗(yàn)H06隨后，工具箱上會(huì)出現(xiàn)相應(yīng)的幾個(gè)控件。選中Ado

8、dc控件將其放入窗體，控件名稱自動(dòng)為Adodcl。設(shè)置屬 性Visible為False,即不可見。設(shè)置Adodc控件的Conectionstring屬性，其功能用于連接數(shù)據(jù)庫。點(diǎn)擊該屬性后 出現(xiàn)圖實(shí)驗(yàn)十一 07所示界面。圖實(shí)驗(yàn)H07選擇“使用連接字符串”，輸入一個(gè)連接字符串（用戶自定義），例如“abed”。接著彈出圖實(shí)驗(yàn)十一 08所 示的界面，選擇Microsoft Jet 3.51 OLE DB Provider ,即“微軟對(duì)象嵌入鏈接引擎提供商”。型數(shù)據(jù)集接屬性提供程序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、| 幫助 |圖實(shí)驗(yàn)圖實(shí)驗(yàn)08選擇“下一步”，出現(xiàn)圖實(shí)驗(yàn)十一 09界面，選擇相應(yīng)的數(shù)據(jù)庫名C： VB實(shí)驗(yàn)syllstudent97.mdb”。不使 用密碼登錄。提供程序連接1高級(jí)；所有指定以下設(shè)置以連接到Access數(shù)居：.選擇或輸入數(shù)據(jù)庫名稱也）：I-:實(shí)驗(yàn) myl 1 s tudent97 m db.輸入登錄數(shù)據(jù)庫的信息 用戶名稱但）： .dmin由 tn it 比叼K J.廠空白密旦但） r允許探存密碼那么試連接圖實(shí)驗(yàn)H09測(cè)試連接，出現(xiàn)圖實(shí)驗(yàn)寸1 J 測(cè)試連接成功。圖實(shí)驗(yàn)H- 10測(cè)試連接成功后，選“確定”退出。設(shè)置Adodcl控件的Recordsource屬性，以便連接到具體的某一個(gè)表

12、， 此題為“學(xué)生檔案:在Adodcl的屬性窗口中點(diǎn)擊Recordsource項(xiàng)，彈出屬性頁，選“命令類型”與“表或存 儲(chǔ)過程名稱”，結(jié)果如圖實(shí)驗(yàn)十一 11所示。屬性頁記錄源記錄源 命令類型12 - adCm dT abl e表或存儲(chǔ)過程名稱命令文本(SQL)| 確定 | 取消 | 應(yīng)用上| 幫助 |圖實(shí)驗(yàn)H11此后，各個(gè)控件與Adodcl的綁定設(shè)置如同第二題中與Datal的綁定一樣。屬性Datasource選Adodcl,Datafield 選“學(xué)生檔案”表中相應(yīng)字段。在此題中要求根據(jù)記錄號(hào)把相應(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