vba數(shù)據(jù)庫(kù)編程答案

1、VBA數(shù)據(jù)庫(kù)編程技術(shù)實(shí)驗(yàn)?zāi)康?、掌握connection對(duì)象2、掌握Recdset對(duì)象3、掌握Comm對(duì)象實(shí)驗(yàn)題目91connection對(duì)象的具體連接方法：方法1DimconnAsADODB.Connection定義對(duì)象類(lèi)型Setconn=NewADODB.Connection將對(duì)象初始化conn.ConnectionString=“Provider=Microsoft.Jet.OLEDB.4.0DataSource=E:access

2、vba數(shù)據(jù)庫(kù)編程技術(shù)學(xué)生成績(jī)管理.mdb“設(shè)置連接字符信息conn.open連接對(duì)象打開(kāi)…………….conn.Close關(guān)閉連接對(duì)象Setconn=Nothing將連接對(duì)象清空方法2DimconnAsADODB.Connection定義對(duì)象類(lèi)型Setconn=NewADODB.Connection將對(duì)象初始化conn.Open“Provider=Microsoft.Jet.OLEDB.4.0DataSource=E:accessvba數(shù)

3、據(jù)庫(kù)編程技術(shù)學(xué)生成績(jī)管理.mdbUID=PWD=“…………….conn.CloseSetconn=Nothing方法3DimconnAsADODB.Connection定義對(duì)象類(lèi)型Setconn=NewADODB.Connection將對(duì)象初始化conn.OpenCurrentProject.Connection打開(kāi)當(dāng)前正在連接的數(shù)據(jù)…………….conn.CloseSetconn=Nothing92在91的基礎(chǔ)上，打開(kāi)表單學(xué)生信息，利用

4、Recdset對(duì)象獲取來(lái)自“學(xué)生成績(jī)管理.mdb”中“學(xué)生”數(shù)據(jù)表的記錄，并顯示第一條記錄。95新建一個(gè)過(guò)程a將“專(zhuān)業(yè)”數(shù)據(jù)表中專(zhuān)業(yè)名稱(chēng)為“公共基礎(chǔ)教學(xué)”的專(zhuān)業(yè)負(fù)責(zé)人姓名改為“鄭智強(qiáng)”。PublicSuba()DimconnAsADODB.Connection定義對(duì)象類(lèi)型Setconn=NewADODB.Connection將對(duì)象初始化conn.OpenCurrentProject.Connection打開(kāi)當(dāng)前正在連接的數(shù)據(jù)Dimcom

5、mAsmSetcomm=Newmcomm.ActiveConnection=mText=“update專(zhuān)業(yè)set專(zhuān)業(yè)負(fù)責(zé)人=鄭智強(qiáng)where專(zhuān)業(yè)名稱(chēng)=公共基礎(chǔ)教學(xué)“comm.ExecuteMsgBox“已完成修改“032“提示“conn.CloseSetconn=NothingSetcomm=NothingEndSub96打開(kāi)“學(xué)生成績(jī)管理.mdb”，設(shè)計(jì)課程成績(jī)統(tǒng)計(jì)窗體，運(yùn)行界面如圖95所示，要求實(shí)現(xiàn)：1、在組合框combo1中選擇一

6、課程編號(hào)，則對(duì)應(yīng)的課程名稱(chēng)、學(xué)分、任課教師、學(xué)時(shí)分別顯示在對(duì)應(yīng)文本框中2、單擊“統(tǒng)計(jì)按鈕”，則在對(duì)應(yīng)文本框中顯示指定課程的所有參考學(xué)生人數(shù)、課程平均分、60分以上人數(shù)和不及格人數(shù)。3、若未指定具體課程編號(hào)就單擊“統(tǒng)計(jì)”按鈕，則顯示提示信息。OptionCompareDatabasePrivateSubCombo0_Change()DimrsAsADODB.RecdsetSetrs=NewADODB.RecdsetDimsqlstrAsS