登录历史记录查询

lyajyj

我现在做成了一个登录窗体，现在想实现另外一个功能，就是能统计用户的历史登录记录，请高手指点，该如何实现。
历史记录 只包括登录的用户名 和 登录时间就可以

Henry D. Sy

1. 建立一个登陆记录表
2. 在登陆时，追加记录到登陆表
  insert into 登陆表(姓名,时间)values(‘“ & 登陆者的变量 &”’,“ & now &")"

Henry D. Sy

lyajyj 发表于 2012-3-16 10:01
这段代码有什么问题
Dim res As ADODB.Recordset
   Set res = New ADODB.Recordset

有什么问题吗？

lyajyj

Henry D. Sy 发表于 2012-3-16 10:07
有什么问题吗？

具体的语句我不会写呀 格式有点儿问题

lyajyj

这段代码有什么问题
Dim res As ADODB.Recordset
   Set res = New ADODB.Recordset
   res.Open "select * from 登录记录表", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   res.AddNew
   res!用户名 = Me.用户名
   res!登录时间 = now()

Henry D. Sy

lyajyj 发表于 2012-3-16 10:21
具体的语句我不会写呀 格式有点儿问题

那就传例子，否则该从何说起！

lyajyj

Henry D. Sy 发表于 2012-3-16 10:05
1. 建立一个登陆记录表
2. 在登陆时，追加记录到登陆表
  insert into 登陆表(姓名,时间)values(‘“ & 登 ...

DoCmd.RunSQL " insert into 登录记录表(用户名,登录时间)values('" & Me.用户名 & "','" & now & "')"""
SQL 语句的结束位置缺少分号(;)
这是什么意思呀

Henry D. Sy

DoCmd.RunSQL "insert into 登录记录表(用户名)values('" & Me.用户名 & "')"
时间可以使用默认值
=now（）

lyajyj

附件传上了

lyajyj

Henry D. Sy 发表于 2012-3-16 10:05
1. 建立一个登陆记录表
2. 在登陆时，追加记录到登陆表
  insert into 登陆表(姓名,时间)values(‘“ & 登 ...

DoCmd.RunSQL "insert into 登录记录表(用户名,登录时间)values('" & Me.用户名 & "','" & now() & "')"
这样就对了 O(∩_∩)O谢谢