2. 计算机
  3. “用户表”中包含4个字段：用户名(文本，主关键字)，密码(文本)，登录次数(数字)，最近登录时间(日期／时间)。在“登录界面”的窗体中有两个名为tUser和tPassword的文本框，一个登录按钮CommandO。进入登录界面后，用户输入用户名和密码，点击

“用户表”中包含4个字段：用户名(文本，主关键字)，密码(文本)，登录次数(数字)，最近登录时间(日期／时间)。在“登录界面”的窗体中有两个名为tUser和tPassword的文本框，一个登录按钮CommandO。进入登录界面后，用户输入用户名和密码，点击

admin2017-10-24  93
问题 “用户表”中包含4个字段：用户名(文本，主关键字)，密码(文本)，登录次数(数字)，最近登录时间(日期／时间)。在“登录界面”的窗体中有两个名为tUser和tPassword的文本框，一个登录按钮CommandO。进入登录界面后，用户输入用户名和密码，点击登录按钮后，程序查找“用户表"。如果用户名和密码全部正确，则登录次数加1，显示上次的登录时间，并记录本次登录的当前日期和时间；否则，显示出错提示信息。
    为完成上述功能，请在程序中[]处填入适当语句。
    Private Sub Command0_Click()
    Dim ca As New ADODB．Connection
    Dim rs As New ADODB．Recordset
    Dim fdl As ADODB．Field
    Dim fd2 As ADODB．Field
    Dim strSQL As String
    Setcn=CurrentProject．Connection
    strSQL="Select登录次数，最近登录时间From用户表Where用户名=’"＆Me!tUser＆"’And密码=’"＆Me!tPassword＆"’"
    rs．Open strSQL，ca，adOpenDynamic，adLockOptimistic，adCmdText
    Set fdl=rs．Fields("登录次数")
    Set fd2=rs．Fields("最近登录时间")
    lf Not rs．EOF Then
    fdl=fdl+1
    MsgBox"用户已经登录："＆fdl＆"次"＆Chr(13)＆Chr(13)＆”上次登录时间："＆fd2
    fd2=Now()
    []
    Else
    MsgBox"用户名或密码错误。"
    End If
    rs．Close
    cn．Close
    Set rs=Nothing
    Set cn=Nothing
    End Sub
选项 A、rs．Update
B、Update
C、rs．Change
D、Change
答案A
解析 本题中的if语句是是否到文件结尾，当执行更新操作fd1=fd1+1；fd2=Now()之后，都需要使用rs．update语句将所更新的记录数据存储到数据库中，所以选项A正确。
转载请注明原文地址:https://kaotiyun.com/show/0LMp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)