单选题 已知在“用户表”中包含4个字段:用户名(文本,主关键字),密码(文本),登录次数(数字),最近登录时间(日期/时间)。在“登录界面”的窗体中有两个名为“tUser”和“tPassword”的文本框,一个登录按钮“Command0"。进入登录界面后,用户输入用户名和密码,点击登录按钮后,程序查找“用户表”。如果用户名和密码全部正确,则登录次数加1,显示上次的登录时间,并记录本次登录的当前日期和时间;否则,显示出错提示信息。 为完成上述功能,请在程序[]处填入适当语句。 PrivateSub 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 en=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("最近登录时间") IfNot rs.EOF Then fdl=fdl+1 MsgBox"用户已经登录:"&fdl&"次"&Chr(13)&Chr(13)&"上次登录时间:"&fd2 fd2=[] rs.Update Else MsgBox"用户名或密码错误。" End If rs.Close cn.Close Set rs=Nothing Set cn=Nothing End Sub
【正确答案】 A
【答案解析】解析:记录本次登录的当前日期和时间使用Now函数,所以选项A正确。