數(shù)據(jù)庫(kù)應(yīng)用技術(shù)模擬試題(春)(000)-資料下載頁(yè)
2025-03-25 02:58本頁(yè)面
【正文】 能，程序運(yùn)行界面如圖2所示，其中Text1課程號(hào)、Text2為課程名。進(jìn)入界面后，用戶(hù)輸入所有數(shù)據(jù)后，點(diǎn)擊“確認(rèn)”按鈕后，將結(jié)果插入到課程表Courses中。請(qǐng)補(bǔ)充完成下列程序代碼。Command1圖2“增加記錄”窗體運(yùn)行界面Private Sub Command1_Click()‘聲明一個(gè)記錄集對(duì)象Dim ADOrs As New Recordset‘將記錄集對(duì)象與已建立的數(shù)據(jù)庫(kù)聯(lián)接對(duì)象ADO綁定=ADO‘第一步：在課程表Courses中查詢(xún)是否存在關(guān)鍵字相同的記錄 （1）拼寫(xiě)查詢(xún)字符串strSQL=“Select CNo From courses Where Cno=‘” + Text1 + “’” （2）執(zhí)行查詢(xún)語(yǔ)句 strSQL‘第二步：如果記錄已經(jīng)存在，則退出程序If Not Then MsgBox “記錄已存在，不能繼續(xù)增加” Exit Sub End If‘第三步：將結(jié)果插入到課程表Courses中 （1）拼寫(xiě)Insert插入語(yǔ)句strSQL = （2）執(zhí)行Insert插入語(yǔ)句 strSQL End Sub參考答案及評(píng)分要點(diǎn)：‘第一步：在課程表Courses中查詢(xún)是否存在關(guān)鍵字相同的記錄 strSQL=“Select CNo From courses Where Cno=‘” + Text1 + “’” StrSQL （本小點(diǎn)4分）‘第二步：如果記錄已經(jīng)存在，則退出程序 If Not Then （本小點(diǎn)6分） MsgBox “記錄已存在，不能繼續(xù)增加” Exit Sub End If‘第三步：將結(jié)果插入到課程表Courses中strSQL = “Insert Into courses(Cno,CName) Values(‘”+Text1+“’,‘”+Text2+“’)” （本小點(diǎn)6分） strSQL （本小點(diǎn)4分） End Sub5 / 6
試題試卷相關(guān)推薦
鄂ICP備17016276號(hào)-1