erlang数据库Mnesia主键自增

erlang数据库Mnesia主键自增 2012-09-24 22:32:07

分类: Python/Ruby

对于mnesia数据库表有时候需要有一个id字段,就像关系数据库的主键.
最简单的办法是用uuid做id,但是我们希望此id是整数递增的.或者用{node(), erlang:now()} 做id也是不错的办法.

类似于一个set集合(意思是集合中不可能两个相同的键同时存在),每个键对应的值将作为id,

方法mnesia:dirty_update_counter(Tab, Key, Incr)的特点:
Tab: 某个存放Key对应的最新键值的mnesia数据库表,这个表保存key-value
Key: 键名
Incr: 键值递增量

这个方法的意义在于:
1.它的效率很高;
2.这个方法是原子操作,不管有没有在事务中使用,它总是一个原子操作
如果两个进程同时调用此方法,每个调用都会得到正确的更新值.


假设我们设计的feature表需要有一个id,这个id是唯一且递增的,

1.创建如下结构的mnesia数据库表
-record(unique_id, {item, uid})

2.每为feature表加入一条新记录时,需要得到新的id值:
mnesia:dirty_update_counter(unique_id, feature, 1)
这里我们把表名作为Key,通过此方法即得到这个表当前的id

以上暂时没有考虑集群的情况
mnesia:dirty_update_counter  {aborted,{combine_error,unique_id,update_counter}  ,unique_id表类型应该为默认set。其他类型就出这个错。
 

  1. %% 1.创建如下结构的mnesia数据库表
  2. -record(unique_id, {item, uid}).

  3. -record(t_user, {userid,username}).

  4. %% 2.每为t_user表加入一条新记录时,需要得到新的id值:
  5. %% mnesia:dirty_update_counter(unique_id, t_user, 1)
  6. %% 这里我们把表名作为Key,通过此方法即得到这个表当前的id

  7. %% create table
  8. init()->
  9.     mnesia:start(),
  10.     mnesia:create_table(t_user,[{type,set},{attributes,record_info(fields ,t_user)}]),
  11.     mnesia:create_table(unique_id,[{type,set},{attributes,record_info(fields ,unique_id)}]) %set 不允许重复数据
  12.         .

  13. test()->
  14.     init(),
  15.     Fun= fun()->
  16.                  User_id =mnesia:dirty_update_counter(unique_id, t_user, 1),
  17.                  User=#t_user{userid=User_id,username="jixf"},
  18.                  mnesia:write(User)

  19.          end,
  20.     %% 向表中插入两条记录
  21.     mnesia:transaction(Fun),
  22.     mnesia:transaction(Fun)



  23. %% 像mysql 一样,主键递增
  24. %% 方法mnesia:dirty_update_counter(Tab, Key, Incr)
  25. %% Tab: 某个存放Key对应的最新键值的mnesia数据库表,这个表保存key-value
  26. %% Key: 键名
  27. %% Incr: 键值递增量

  28. %% 这个方法的意义在于:
  29. %% 1.它的效率很高;
  30. %% 2.这个方法是原子操作,不管有没有在事务中使用,它总是一个原子操作
  31. %% 如果两个进程同时调用此方法,每个调用都会得到正确的更新值.

Delphi 12.3 作为一款面向 Windows 平台的集成开发环境,由 Embarcadero Technologies 负责其持续演进。该环境以 Object Pascal 语言为核心,并依托 Visual Component Library(VCL)框架,广泛应用于各类桌面软件、数据库系统及企业级解决方案的开发。在此生态中,Excel4Delphi 作为一个重要的社区开源项目,致力于搭建 Delphi 与 Microsoft Excel 之间的高效桥梁,使开发者能够在自研程序中直接调用 Excel 的文档处理、工作表管理、单元格操作及宏执行等功能。 该项目以库文件与组件包的形式提供,开发者将其集成至 Delphi 工程后,即可通过封装良好的接口实现对 Excel 的编程控制。具体功能涵盖创建与编辑工作簿、格式化单元格、批量导入导出数据,乃至执行内置公式与宏指令等高级操作。这一机制显著降低了在财务分析、报表自动生成、数据整理等场景中实现 Excel 功能集成的技术门槛,使开发者无需深入掌握 COM 编程或 Excel 底层 API 即可完成复杂任务。 使用 Excel4Delphi 需具备基础的 Delphi 编程知识,并对 Excel 对象模型有一定理解。实践中需注意不同 Excel 版本间的兼容性,并严格遵循项目文档进行环境配置与依赖部署。此外,操作过程中应遵循文件访问的最佳实践,例如确保目标文件未被独占锁定,并实施完整的异常处理机制,以防数据损毁或程序意外中断。 该项目的持续维护依赖于 Delphi 开发者社区的集体贡献,通过定期更新以适配新版开发环境与 Office 套件,并修复已发现的问题。对于需要深度融合 Excel 功能的 Delphi 应用而言,Excel4Delphi 提供了经过充分测试的可靠代码基础,使开发团队能更专注于业务逻辑与用户体验的优化,从而提升整体开发效率与软件质量。 资源来源于网络分享,仅用于学习交流使用,请勿用于商业,如有侵权请联系我删除!
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值