单选题 “用户表”中包含4个字段:用户名(文本,主关键字),密码(文本),登录次数(数字),最近登录时间(日期/时间)。在“登录界面”的窗体中有两个名为tUser和tPassword的文本框,一个登录按钮Command0。进入登录界面后,用户输入用户名和密码,单击登录按钮后,程序查找“用户表”。如果用户名和密码全部正确,则登录次数加1,显示上次的登录时间,并记录本次登录的当前日期和时间;否则,显示出错提示信息。为完成上述功能,在程序中空白处应填入的语句为______。
Private Sub Command0_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim fd1 As ADODB.Field
Dim fd2 As ADODB.Field
Dim strSQL As String
Set cn=CurrentProject.Connection
strSQL="Select登录次数, 最近登录时间 From 用户表 Where 用户名=""&Me! tUser &""And 密码=""& Me! tPassword &"""
rs.Open strSQL, cn, adOpenDynamic, adLockOptimistic, adCmdText
Set fd1=rs.Fields("登录次数")
Set fd2=rs.Fields("最近登录时间")
If Not rs.EOF Then
fd1=fd1+1
MsgBox "用户已经登录:" & fd1 & "次" & Chr(13) & Chr(13) & "上次登录时间:" & fd2
fd2=Now()
[ ]
Else
MsgBox"用户名或密码错误。"
End If
rs.Close
cn.Close
Set rs=Nothing
Set cn=Nothing
End Sub
【正确答案】 A
【答案解析】[解析] 根据题意,每次登录都要检查用户名和密码,检查正确后才能登录成功,然后登录次数(fd1)加1,最近登录时间(fd2)更新为本次登录的日期和时间。在程序空白处,fd1和fd2都已经完成更新,则所填代码句的功能应该是将fd1和fd2更新后的数据更新到数据库中,即更新结果集rs的内容,更新结果集可用命令rs.Update。因此选择A选项。