设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 3087|回复: 12
打印 上一主题 下一主题

[Access本身] 登录历史记录查询

[复制链接]
跳转到指定楼层
1#
发表于 2012-3-16 09:58:56 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
我现在做成了一个登录窗体,现在想实现另外一个功能,就是能统计用户的历史登录记录,请高手指点,该如何实现。
历史记录 只包括登录的用户名 和 登录时间就可以
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2012-3-16 10:05:02 | 只看该作者
1. 建立一个登陆记录表
2. 在登陆时,追加记录到登陆表
  insert into 登陆表(姓名,时间)values(‘“ & 登陆者的变量 &”’,“ & now &")"
3#
发表于 2012-3-16 10:07:21 | 只看该作者
lyajyj 发表于 2012-3-16 10:01
这段代码有什么问题
Dim res As ADODB.Recordset
   Set res = New ADODB.Recordset

有什么问题吗?
4#
 楼主| 发表于 2012-3-16 10:21:13 | 只看该作者
Henry D. Sy 发表于 2012-3-16 10:07
有什么问题吗?

具体的语句我不会写呀 格式有点儿问题
5#
 楼主| 发表于 2012-3-16 10:01:10 | 只看该作者
这段代码有什么问题
Dim res As ADODB.Recordset
   Set res = New ADODB.Recordset
   res.Open "select * from 登录记录表", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   res.AddNew
   res!用户名 = Me.用户名
   res!登录时间 = now()
6#
发表于 2012-3-16 10:31:10 | 只看该作者
lyajyj 发表于 2012-3-16 10:21
具体的语句我不会写呀 格式有点儿问题

那就传例子,否则该从何说起!
7#
 楼主| 发表于 2012-3-16 10:31:32 | 只看该作者
Henry D. Sy 发表于 2012-3-16 10:05
1. 建立一个登陆记录表
2. 在登陆时,追加记录到登陆表
  insert into 登陆表(姓名,时间)values(‘“ & 登 ...

DoCmd.RunSQL " insert into 登录记录表(用户名,登录时间)values('" & Me.用户名 & "','" & now & "')"""
SQL 语句的结束位置缺少分号(;)
这是什么意思呀
8#
发表于 2012-3-16 10:43:27 | 只看该作者
DoCmd.RunSQL "insert into 登录记录表(用户名)values('" & Me.用户名 & "')"
时间可以使用默认值
=now()
9#
 楼主| 发表于 2012-3-16 10:47:56 | 只看该作者
附件传上了

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
10#
 楼主| 发表于 2012-3-16 10:55:23 | 只看该作者
Henry D. Sy 发表于 2012-3-16 10:05
1. 建立一个登陆记录表
2. 在登陆时,追加记录到登陆表
  insert into 登陆表(姓名,时间)values(‘“ & 登 ...

DoCmd.RunSQL "insert into 登录记录表(用户名,登录时间)values('" & Me.用户名 & "','" & now() & "')"
这样就对了 O(∩_∩)O谢谢
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-11 07:05 , Processed in 0.109650 second(s), 35 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表