ERLANG学习 Day16

Mnesia：Erlang数据库

        Mnesia是一种用Erlang编写的数据库，Mnesia的速度极快，可以保存任何类型的Erlang数据结构。数据表既 可以保存在内存里（为了速度），也可以保存在磁盘上（为了持久性）。表还可以在不同机器之间 进行复制，从而实现容错行为。

创建初始数据库

       mnesia:create_schema(NodeList)会在NodeList（它必须是一个包含有效Erlang节点的 列表）里的所有节点上都初始化一个新的Mnesia数据库。

-module('test_mnesia').
-author("chen").

%% API
-export([ queryall/1, remove_shop_item/1, add_shop_item/3, init/0]).
-include_lib("stdlib/include/qlc.hrl").

-record(shop, {item, quantity, cost}).
-record(cost, {name, price}).

%%数据库的初始化
init() ->
  %% 在本机初始化数据库
  mnesia:create_schema([node()]), %在本机节点上初始化数据库,函数的参数列表为节点列表
  %% mnesia:delete_schema([node()]) 删除初始化的数据库

  %% 启动数据库
  mnesia:start(),
  %% 创建表
  mnesia:create_table(shop, [{attributes, record_info(fields, shop)}]),
  mnesia:create_table(cost, [{attributes, record_info(fields, cost)}]).



add_shop_item(Name, Quantity, Cost) ->
  Row = #shop{item = Name, quantity = Quantity, cost = Cost},
  F = fun() ->
    mnesia:write(Row)
      end,
  mnesia:transaction(F).

remove_shop_item(Item) ->
  Oid = {shop, Item},
  F = fun() ->
    mnesia:delete(Oid)
      end,
  mnesia:transaction(F).

%% 定义数据查询工具函数
query(Q) ->
  F = fun() -> qlc:e(Q) end,
  {atomic, Val} = mnesia:transaction(F),
  Val.

%% 定义查询表中所有数据记录
queryall(Name) ->
  query(qlc:q([X || X <- mnesia:table(Name)])).

 初始化数据库，并创建shop和cost表。

 

添加几行数据，并查询数据，

 

成功添加数据

移除一行数据。

 

在queryall(Name) ->
  query(qlc:q([X || X <- mnesia:table(Name)])).中，qlc就代表了query list comprehension （查询列表推导）。它是其中一个可以用来访问Mnesia数据库内数据的模块。qlc:q调用，它会把查询（也就是它的参数）编译成一种用于查询数据库 的内部格式。把编译后的查询传递给queryall()的函数，其中列出所有的结果。