ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 1908|回复: 6

写存储过程拆用户日志表

[复制链接]

TA的精华主题

TA的得分主题

发表于 2012-2-13 11:30 | 显示全部楼层 |阅读模式
现在公司访问用户越来越多,想写存储过程按月存储的日志表按不同模块拆分,请高手指点下。


该贴已经同步到 danglihui0529的微博
QQ截图20120213112811.png

写存储过程拆分表.rar

10.86 KB, 下载次数: 15

TA的精华主题

TA的得分主题

发表于 2012-2-13 11:57 | 显示全部楼层
是不是这样啊

写存储过程拆分表.zip

16.71 KB, 下载次数: 8

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-2-13 13:02 | 显示全部楼层
本帖最后由 danglihui0529 于 2012-2-13 13:03 编辑
568219380 发表于 2012-2-13 11:57
是不是这样啊


抱歉啊,没有说清楚,是MY SQL数据库,是按访问时间记录的,我有做了附件,做了备注,并附上效果图,请查看下。

写存储过程拆分MYSQL用户日志表.rar

72.99 KB, 下载次数: 9

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-5-8 12:30 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 danglihui0529 于 2012-5-29 21:00 编辑

写出来了,贴出来跟大家分享下
  1. BEGIN

  2. DECLARE a INT(11);
  3. DECLARE b INT(11);
  4. DECLARE c INT(11);
  5. DECLARE d INT(11);
  6. DECLARE UPIDx BIGINT(16);
  7. DECLARE URIDx INT(11);
  8. DECLARE Actionx VARCHAR(64);
  9. DECLARE DirectObjectx VARCHAR(64);
  10. DECLARE IndirectObjectx VARCHAR(256);
  11. DECLARE Sourcex VARCHAR(64);
  12. DECLARE Resultx CHAR(1);
  13. DECLARE CTIDx INT(8);
  14. DECLARE Messagex VARCHAR(256);
  15. DECLARE IPAddressx VARCHAR(256);
  16. DECLARE Referencex VARCHAR(256);
  17. DECLARE Datetimex TIMESTAMP;
  18. DECLARE Remarksx        VARCHAR(100);

  19. SELECT MIN(UPID) INTO a FROM GC_User_Report_2011_0401_0511;
  20. SELECT Max(UPID) INTO b FROM GC_User_Report_2011_0401_0511;

  21. WHILE(a<b) DO
  22.         SELECT UPID,URID,Action,DirectObject,IndirectObject,Source,Result,Message,CTID,IPAddress,Reference,Datetime,Remarks
  23.         INTO UPIDx,URIDx,Actionx,DirectObjectx,IndirectObjectx,Sourcex,Resultx,Messagex,CTIDx,IPAddressx,Referencex,Datetimex,Remarksx
  24.         FROM GC_User_Report_2011_0401_0511 WHERE UPID=a;
  25.         IF (Actionx!=0) THEN               CASE                WHEN (Actionx='access' AND DirectObjectx='login') THEN                                INSERT INTO _a_tmb_1basichavior201201        VALUES(UPIDx,URIDx,Actionx,DirectObjectx,IndirectObjectx,Sourcex,Resultx,Messagex,CTIDx,IPAddressx,Referencex,Datetimex,Remarksx);                WHEN (Actionx='access' AND DirectObjectx='register') THEN   INSERT INTO _a_tmb_1basichavior201201 VALUES(UPIDx,URIDx,Actionx,DirectObjectx,IndirectObjectx,Sourcex,Resultx,Messagex,CTIDx,IPAddressx,Referencex,Datetimex,Remarksx);                WHEN (Actionx='api.password' AND DirectObjectx='status') THEN   INSERT INTO _a_tmb_1basichavior201201 VALUES(UPIDx,URIDx,Actionx,DirectObjectx,IndirectObjectx,Sourcex,Resultx,Messagex,CTIDx,IPAddressx,Referencex,Datetimex,Remarksx);                WHEN (Actionx='forget' AND DirectObjectx='password') THEN  INSERT INTO _a_tmb_1basichavior201201 VALUES(UPIDx,URIDx,Actionx,DirectObjectx,IndirectObjectx,Sourcex,Resultx,Messagex,CTIDx,IPAddressx,Referencex,Datetimex,Remarksx);                WHEN (Actionx='click' AND DirectObjectx='code') THEN   INSERT INTO _a_tmb_1basichavior201201 VALUES(UPIDx,URIDx,Actionx,DirectObjectx,IndirectObjectx,Sourcex,Resultx,Messagex,CTIDx,IPAddressx,Referencex,Datetimex,Remarksx);                ELSE set c=c+1;        END case;        END IF;
  26.         SET a=a+1;
  27.         SET Actionx=0;
  28. END WHILE;
  29. SELECT c,d;
  30. END
复制代码

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-5-29 21:03 | 显示全部楼层
lin_x 发表于 2012-5-8 12:53
不知道楼主是什么意思,要写存储过程的话,貌似要在数据库中开放权限的,不知道楼主是否有贵公司的数据库的 ...

不好意思,好长时间没来了。
当然是有权限了呀,我是在MYSQL客户端写的
另外这个帖子早写的了,存储过程是很简单,但我发帖很久了,也没有人解答,我想既然我写出来了,就分享给大家看下。

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-5-8 12:31 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
因为限制字数,所以case里只摘取其中一部分

TA的精华主题

TA的得分主题

发表于 2012-5-8 12:53 | 显示全部楼层
本帖最后由 lin_x 于 2012-5-8 12:53 编辑

不知道楼主是什么意思,要写存储过程的话,貌似要在数据库中开放权限的,不知道楼主是否有贵公司的数据库的存储过程的设置权限,还有是楼主不知道在哪里写存储过程吗? 4楼你自己不是把代码都备齐了么?
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2025-1-9 19:11 , Processed in 0.023830 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

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