[Erlang]Mnesia设置主键自增
2015-06-03 17:19
155 查看
Mnesia是erlang/otp自带的分布式数据库管理系统。mnesia配合erlang的实现近乎理想,但在实际使用当中差强人意,总会有一些不足。mnesia数据表没有主键自增的功能,但在mnesia函数中有一个自增函数可以用来生成自增的id,在后面的内容将讲述如何实现主键自增的功能。参照SQLite的做法,就是在数据库中单独建立一个的sqlite_sequence表来做其他表的自增索引表。同样,我们也创建这样一个表erlang_sequence,用来索引其他表的自增id,看似麻烦,效果还是很理想。[plain] view plaincopy
![](https://oscdn.geek-share.com/Uploads/Images/Content/201611/a7c8e286f463007e2a900848b93dd72c.png)
![](https://oscdn.geek-share.com/Uploads/Images/Content/201611/9e12f1d3e499fc949c886e7c9e0484f9)
-module(m).
-export([init/0, reg/2]).
-record(user, {id, name, age}).
-record(erlang_sequence, {name, seq}).%自增索引表,维护其他表的自增id
init() ->
mnesia:create_schema([node()]),
mnesia:start(),
mnesia:create_table(erlang_sequence, [{attributes, record_info(fields,
erlang_sequence)} , {type,set}, {disc_copies, [node()]} ]),
mnesia:create_table(user, [{attributes, record_info(fields, user)} ,
{type,set}, {disc_copies, [node()]} ]),
ok.
reg(Name, Age) ->
F = fun() ->
UserId = mnesia:dirty_update_counter(erlang_sequence, user, 1),
User = #user{id = UserId, name = Name, age = Age },
mnesia:write(User)
end,
mnesia:transaction(F),
ok.
运行代码:[plain] view plaincopy
![](https://oscdn.geek-share.com/Uploads/Images/Content/201611/a7c8e286f463007e2a900848b93dd72c.png)
![](https://oscdn.geek-share.com/Uploads/Images/Content/201611/9e12f1d3e499fc949c886e7c9e0484f9)
D:\>erl -mnesia dir '"mnesia"'
Eshell V5.10.2 (abort with ^G)
1> c(m).
{ok,m}
2> m:init().
ok
3> m:reg("xiaomin",18).
ok
4> m:reg("xiaohong",17).
ok
5> tv:start().
<0.92.0>
Mnesia数据库视图:
![](https://oscdn.geek-share.com/Uploads/Images/Content/201611/a7c8e286f463007e2a900848b93dd72c.png)
-module(m).
-export([init/0, reg/2]).
-record(user, {id, name, age}).
-record(erlang_sequence, {name, seq}).%自增索引表,维护其他表的自增id
init() ->
mnesia:create_schema([node()]),
mnesia:start(),
mnesia:create_table(erlang_sequence, [{attributes, record_info(fields,
erlang_sequence)} , {type,set}, {disc_copies, [node()]} ]),
mnesia:create_table(user, [{attributes, record_info(fields, user)} ,
{type,set}, {disc_copies, [node()]} ]),
ok.
reg(Name, Age) ->
F = fun() ->
UserId = mnesia:dirty_update_counter(erlang_sequence, user, 1),
User = #user{id = UserId, name = Name, age = Age },
mnesia:write(User)
end,
mnesia:transaction(F),
ok.
运行代码:[plain] view plaincopy
![](https://oscdn.geek-share.com/Uploads/Images/Content/201611/a7c8e286f463007e2a900848b93dd72c.png)
D:\>erl -mnesia dir '"mnesia"'
Eshell V5.10.2 (abort with ^G)
1> c(m).
{ok,m}
2> m:init().
ok
3> m:reg("xiaomin",18).
ok
4> m:reg("xiaohong",17).
ok
5> tv:start().
<0.92.0>
Mnesia数据库视图:
相关文章推荐
- Erlang项目内存泄漏分析方法
- Erlang实现的一个Web服务器代码实例
- Erlang并发编程介绍
- Erlang的一些编程技巧分享
- Erlang程序设计(第2版)读书笔记:Erlang安装和基础语法
- Erlang中的模块与模式匹配介绍
- Erlang中的函数与流程控制介绍
- Erlang语法学习笔记:变量、原子、元组、列表、字符串
- Erlang中的Record详解
- Erlang初学:Erlang的一些特点和个人理解总结
- Erlang中的OTP简介
- Erlang中遍历取出某个位置的最大值代码
- Erlang中3种生成随机数的方法
- Erlang中的并发程序简介
- Erlang分布式节点中的注册进程使用实例
- Erlang中的注册进程使用实例
- Erlang中的映射组Map详细介绍
- CentOS 6.5源码安装Erlang教程
- Erlang的运算符(比较运算符,数值运算符,移位运算符,逻辑运算符)
- Erlang实现的百度云推送Android服务端实例