首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
数据库中有数据表“Emp”,包括“Eno”、“Ename”、“Eage”、“Esex”、“Edate”、“Eparty”等字段。下面程序段的功能是:在窗体文本框“tValue”内输入年龄条件,单击“删除”按钮完成对该年龄职工记录信息的删除操作: P
数据库中有数据表“Emp”,包括“Eno”、“Ename”、“Eage”、“Esex”、“Edate”、“Eparty”等字段。下面程序段的功能是:在窗体文本框“tValue”内输入年龄条件,单击“删除”按钮完成对该年龄职工记录信息的删除操作: P
admin
2017-02-21
44
问题
数据库中有数据表“Emp”,包括“Eno”、“Ename”、“Eage”、“Esex”、“Edate”、“Eparty”等字段。下面程序段的功能是:在窗体文本框“tValue”内输入年龄条件,单击“删除”按钮完成对该年龄职工记录信息的删除操作:
Private Sub btnDelete_Click()’单击“删除”按钮
Dim strSQL As String’定义变量
strSQL="delete from Emp"’赋值SQL基本操作字符串
’判断窗体年龄条件值无效(空值或非数值)处理
If IsNull( Me! tValue)=True Or IsNumeric( Me! tValue)=False Then
MsgBox"年龄值为空或非有效数值!",vbCritical,"Error"
’窗体输入焦点移回年龄输入的文本框“tValue”控件内
Me! tValue. SetFocus
Else
’构造条件删除查询表达式
strSQL=strSQL&"where Eage="&Me! tValue
’消息框提示“确认删除?( Yes/No)”,确认后实施删除操作
If________Then
DoCmd. RunSQL strSQL’执行删除查询
MsgBox"comp1eted!",vblnformation,"Msg"
End If
End If
End Sub
按照功能要求,在横线上应填写的是( )。
选项
A、MsgBox("确认删除?(Yes/No)",vbQuestion+vbYesNo,"确认")=vbOk
B、MsgBox("确认删除?(Yes/No)",vbQuestion+vbYesNo,"确认")=vbYes
C、MsgBox("确认",vbQuestion+vbYesNo,"确认删除?(Yes/No)")=vbOk
D、MsgBox("确认",vbQuestion+vbYesNo,"确认删除?(Yes/No)")=vbYes
答案
B
解析
MsgBox函数的语法为:MsgBox( Prompt,[ Buttons],[Tit1e],[Helpfile],[Context])。该函数的返回值告诉用户单击了哪一个按钮。根据题目要求消息框应为MsgBox("确认删除?(Yes/No)",vbQuestion+vbYesNo,"确认"),显示时会显示“是”,“否”两个按钮。单击“是”按钮,MsgBox函数的返回值为vbYes;单击“否”按钮,MsbBox函数返回值为vbNo。
转载请注明原文地址:https://www.kaotiyun.com/show/q5BD777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
以法的地位、效力、内容和制定程序为标准,法可以划分为()
以下选项中不属于我国法律制定程序的是()
以下列举的法律文本不属于汉律六十篇的是()
请简要解释内阁制的形成过程。
请简要陈述《大清律》的制定过程。
处于量变过程中的事物保持质的稳定性,这种变化是
中国共产党在推进手工业合作化的过程中,采取的方针是
设函数f(χ)(χ≥0)连续可导,且f(0)=1.又已知曲线y=f(χ)、χ轴、y轴及过点(χ,0)且垂直于χ轴的直线所围成的图形的面积与曲线y=f(χ)在[0,χ]上的一段弧长相等,求f(χ).
随机试题
下列不属于“中国四大名楼”的是()。
你认为哪一项对管理者更为重要:说话准确还是积极倾听?为什么?
估计一般细胞用于维持钠泵运转的能量大约占其代谢产能的
西咪替丁、雷民替丁的给药方法是
A企业将一台卡车出租给B企业,租期为10个月,收取押金80000元,则X企业借记“银行存款”80000元,贷记“应付账款”80000元。()
差异性策略的主要特点不包括()。
信用风险对基础金融产品造成的损失最多是()。
会计计量属性包括()。
Readthearticlebelow.Choosethebestsentencefromthelistonthenextpagetofilleachofthegaps.Foreachgap(1
Giventheadvantageofelectronicmoney,youmightthinkthatweshouldmovequicklytothecashlesssocietyinwhichallpaymen
最新回复
(
0
)