Mnesia是一个分布式数据库管理系统,适合于电信和其它需要持续运行和具备软实时特性的Erlang应用,越来越受关注和使用,但是目前Mnesia资料却不多,很多都只有官方的用户指南。下面的内容将着重说明  Mnesia 数据库如何实现SQL查询,实现select / insert / update / where / order by / join / limit / delete等SQL操作。

示例中表结构的定义:

  1. %% 账号表结构
  2. -record( y_account,{ id, account, password }).
  3. %% 资料表结构
  4. -record( y_info, { id, nickname, birthday, sex }).

1、Create Table / Delete Table 操作

  1. %%===============================================
  2. %%  create table y_account ( id int, account varchar(50),
  3. %%   password varchar(50),  primary key(id)) ;
  4. %%===============================================
  5. %% 使用 mnesia:create_table
  6. mnesia:create_table( y_account,[{attributes, record_info(fields, y_account)} ,
  7. {type,set}, {disc_copies, [node()]} ]).
  8. %%===============================================
  9. %%  drop table y_account;
  10. %%===============================================
  11. %% 使用 mnesia:delete_table
  12. mnesia:delete_table(y_account) .

注:参数意义可以看文档,{type,set} 表示id作为主键,不允许id重复,如果改为 {type,bag},id可以重复,但整条记录不能重复

2、Select 查询

查询全部记录

  1. %%===============================================
  2. %%  select * from y_account
  3. %%===============================================
  4. %% 使用 mnesia:select
  5. F = fun() ->
  6. MatchHead = #y_account{ _ = '_' },
  7. Guard = [],
  8. Result = ['$_'],
  9. mnesia:select(y_account, [{MatchHead, Guard, Result}])
  10. end,
  11. mnesia:transaction(F).
  12. %% 使用 qlc
  13. F = fun() ->
  14. Q = qlc:q([E || E <- mnesia:table(y_account)]),
  15. qlc:e(Q)
  16. end,
  17. mnesia:transaction(F).

查询部分字段的记录

  1. %%===============================================
  2. %%  select id,account from y_account
  3. %%===============================================
  4. %% 使用 mnesia:select
  5. F = fun() ->
  6. MatchHead = #y_account{id = '$1', account = '$2', _ = '_' },
  7. Guard = [],
  8. Result = ['$$'],
  9. mnesia:select(y_account, [{MatchHead, Guard, Result}])
  10. end,
  11. mnesia:transaction(F).
  12. %% 使用 qlc
  13. F = fun() ->
  14. Q = qlc:q([[E#y_account.id, E#y_account.account] || E <- mnesia:table(y_account)]),
  15. qlc:e(Q)
  16. end,
  17. mnesia:transaction(F).

3、Insert / Update 操作

mnesia是根据主键去更新记录的,如果主键不存在则插入

  1. %%===============================================
  2. %%    insert into y_account (id,account,password) values(5,"xiaohong","123")
  3. %%     on duplicate key update account="xiaohong",password="123";
  4. %%===============================================
  5. %% 使用 mnesia:write
  6. F = fun() ->
  7. Acc = #y_account{id = 5, account="xiaohong", password="123"},
  8. mnesia:write(Acc)
  9. end,
  10. mnesia:transaction(F).

4、Where 查询

  1. %%===============================================
  2. %%    select account from y_account where id>5
  3. %%===============================================
  4. %% 使用 mnesia:select
  5. F = fun() ->
  6. MatchHead = #y_account{id = '$1', account = '$2', _ = '_' },
  7. Guard = [{'>', '$1', 5}],
  8. Result = ['$2'],
  9. mnesia:select(y_account, [{MatchHead, Guard, Result}])
  10. end,
  11. mnesia:transaction(F).
  12. %% 使用 qlc
  13. F = fun() ->
  14. Q = qlc:q([E#y_account.account || E <- mnesia:table(y_account), E#y_account.id>5]),
  15. qlc:e(Q)
  16. end,
  17. mnesia:transaction(F).

如果查找主键 key=X 的记录,还可以这样子查询:

  1. %%===============================================
  2. %%   select * from y_account where id=5
  3. %%===============================================
  4. F = fun() ->
  5. mnesia:read({y_account,5})
  6. end,
  7. mnesia:transaction(F).

如果查找非主键 field=X 的记录,可以如下查询:

  1. %%===============================================
  2. %%   select * from y_account where account='xiaomin'
  3. %%===============================================
  4. F = fun() ->
  5. MatchHead = #y_account{ id = '_', account = "xiaomin", password = '_' },
  6. Guard = [],
  7. Result = ['$_'],
  8. mnesia:select(y_account, [{MatchHead, Guard, Result}])
  9. end,
  10. mnesia:transaction(F).

5、Order By 查询

  1. %%===============================================
  2. %%   select * from y_account order by id asc
  3. %%===============================================
  4. %% 使用 qlc
  5. F = fun() ->
  6. Q = qlc:q([E || E <- mnesia:table(y_account)]),
  7. qlc:e(qlc:keysort(2, Q, [{order, ascending}]))
  8. end,
  9. mnesia:transaction(F).
  10. %% 使用 qlc 的第二种写法
  11. F = fun() ->
  12. Q = qlc:q([E || E <- mnesia:table(y_account)]),
  13. Order = fun(A, B) ->
  14. B#y_account.id > A#y_account.id
  15. end,
  16. qlc:e(qlc:sort(Q, [{order, Order}]))
  17. end,
  18. mnesia:transaction(F).

6、Join 关联表查询

  1. %%===============================================
  2. %%   select y_info.* from y_account join y_info on (y_account.id = y_info.id)
  3. %%      where y_account.account = 'xiaomin'
  4. %%===============================================
  5. %% 使用 qlc
  6. F = fun() ->
  7. Q = qlc:q([Y || X <- mnesia:table(y_account),
  8. X#y_account.account =:= "xiaomin",
  9. Y <- mnesia:table(y_info),
  10. X#y_account.id =:= Y#y_info.id
  11. ]),
  12. qlc:e(Q)
  13. end,
  14. mnesia:transaction(F).

7、Limit 查询

  1. %%===============================================
  2. %%   select * from y_account limit 2
  3. %%===============================================
  4. %% 使用 mnesia:select
  5. F = fun() ->
  6. MatchHead = #y_account{ _ = '_' },
  7. mnesia:select(y_account, [{MatchHead, [], ['$_']}], 2, none)
  8. end,
  9. mnesia:transaction(F).
  10. %% 使用 qlc
  11. F = fun() ->
  12. Q = qlc:q([E || E <- mnesia:table(y_account)]),
  13. QC = qlc:cursor(Q),
  14. qlc:next_answers(QC, 2)
  15. end,
  16. mnesia:transaction(F).

8、Select count(*) 查询

  1. %%===============================================
  2. %%   select count(*) from y_account
  3. %%===============================================
  4. %% 使用 mnesia:table_info
  5. F = fun() ->
  6. mnesia:table_info(y_account, size)
  7. end,
  8. mnesia:transaction(F).

9、Delete 查询

  1. %%===============================================
  2. %%   delete from y_account where id=5
  3. %%===============================================
  4. %% 使用 mnesia:delete
  5. F = fun() ->
  6. mnesia:delete({y_account, 5})
  7. end,
  8. mnesia:transaction(F).

注:使用qlc模块查询,需要在文件顶部声明“-include_lib("stdlib/include/qlc.hrl").”,否则编译时会产生“Warning: qlc:q/1 called, but "qlc.hrl" not included”的警告。

更新说明:

2013/11/20 补充了 mnesia:select 方式的 limit 查询

erlang mnesia 数据库实现SQL查询的更多相关文章

  1. oracle数据库元数据SQL查询

    oracle数据库经典SQL查询 .查看表空间的名称及大小 select t.tablespace_name, round(sum(bytes/(1024*1024)),0) ts_size from ...

  2. erlang mnesia 数据库查询

    Mnesia是一个分布式数据库管理系统,适合于电信和其它需要持续运行和具备软实时特性的Erlang应用,越来越受关注和使用,但是目前Mnesia资料却不多,很多都只有官方的用户指南.下面的内容将着重说 ...

  3. erlang mnesia数据库设置主键自增

    Mnesia是erlang/otp自带的分布式数据库管理系统.mnesia配合erlang的实现近乎理想,但在实际使用当中差强人意,总会有一些不足.mnesia数据表没有主键自增的功能,但在mnesi ...

  4. erlang mnesia数据库简单应用

    mnesia是erlang自带的分布式数据库,基于ets和dets实现的.mnesia兼顾了dets的持久性和ets的高性能,可以自动在多个erlang节点间同步数据库.最关键的是,mnesia实现了 ...

  5. Python全栈 MySQL 数据库 (SQL查询、备份、恢复、授权)

    ParisGabriel              每天坚持手写  一天一篇  决定坚持几年 为了梦想为了信仰    开局一张图   今天接着昨天的说   索引有4种:      普通 索引 :ind ...

  6. Android adb使用sqlite3对一个数据库进行sql查询

    sqlite是Android下集成的一个轻量级数据库,我们可以通过adb程序进入数据库命令行,对数据进行查询,具体操作如下: ①打开windows的cmd ②输入adb shell.此时进入了该安卓系 ...

  7. 在数据库中sql查询很快,但在程序中查询较慢的解决方法

    在写java的时候,有一个方法查询速度比其他方法慢很多,但在数据库查询很快,原来是因为程序中使用参数化查询时参数类型错误的原因 select * from TransactionNo, fmis_Ac ...

  8. [转载]Oracle数据库基础--SQL查询经典例题

    Oracle基础练习题,采用Oracle数据库自带的表,适合初学者,其中包括了一些简单的查询,已经具有Oracle自身特点的单行函数的应用 本文使用的实例表结构与表的数据如下: emp员工表结构如下: ...

  9. Oracle数据库基础--SQL查询经典例题

    Oracle基础练习题,采用Oracle数据库自带的表,适合初学者,其中包括了一些简单的查询,已经具有Oracle自身特点的单行函数的应用 本文使用的实例表结构与表的数据如下: emp员工表结构如下: ...

随机推荐

  1. 一、mysql使用入门

    mysql -h localhost -u root -p123456 登录mysql服务器 show databases 列出所拥有的数据库 use www 选择一个www的数据库 show tab ...

  2. Oracle bug 使用max或min函数into到一个char类型报字符缓冲区太小的错误

    这个BUG出现会报错如下: selectto_char(max(RENEWAL_DATE)) intoM_YEAR_MONTH fromt_renewal_schedule; ORA-06502: P ...

  3. ios Base64编解码工具类及使用

    为了避免明码传递http内容,可以用base64编码后传输,收到方再解码,也方便了2进制数据的字符串式传输. 对于ios来说,google给提供了一个很好的工具类,方便进行base64编解码,当然也可 ...

  4. mac使用wget下载网站(仿站)

    wget -c -r -np -k -L -p http://www.xxxx.com 参考 wget的安装 http://blog.csdn.net/ssihc0/article/details/7 ...

  5. mysql-community-server 5.7.16 设置密码

    那是由于mysql-community-server 5.7的密码是一个默认的随机密码,这个初始密码,mysql又不告诉你,我们需要重设这个密码. service mysqld stop mysqld ...

  6. 1026: [SCOI2009]windy数 - BZOJ

    Description windy定义了一种windy数.不含前导零且相邻两个数字之差至少为2的正整数被称为windy数. windy想知道,在A和B之间,包括A和B,总共有多少个windy数?Inp ...

  7. 团体程序设计天梯赛-练习集L1-022. 奇偶分家

    L1-022. 奇偶分家 时间限制 400 ms 内存限制 65536 kB 代码长度限制 8000 B 判题程序 Standard 作者 陈越 给定N个正整数,请统计奇数和偶数各有多少个? 输入格式 ...

  8. stl map高效遍历删除的方法

    for(:iter!=mapStudent.end():) {      if((iter->second)>=aa)      {          //满足删除条件,删除当前结点,并指 ...

  9. BZOJ 3123 SDOI2013 森林

    首先对于查询操作就是裸的COT QAQ 在树上DFS建出主席树就可以了 对于连接操作,我们发现并没有删除 所以我们可以进行启发式合并,每次将小的树拍扁插入大的树里并重构即可 写完了之后第一个和第二个点 ...

  10. PJSIP在windows(xp或者win7)下的编译,编译工具是vs2008,PJSIP版本2.3

    PJSIP是一个开源的SIP协议库,它实现了SIP.SDP.RTP.STUN.TURN和ICE.PJSIP作为基于SIP的一个多媒体通信框架提供了非常清晰的API,以及NAT穿越的功能.PJSIP具有 ...