Mnesia：数据库查询

选择表里的所有数据

下面是选择shop表里所有数据的代码：

%% 等效SQL命令
%% SELECT * FROM shop

demo(select_shop) ->
    do(qlc:q([X || X <- mnesia:table(shop)]));

这段代码的重点是qlc:q调用，它会把查询（也就是它的参数）编译成一种用于查询数据库 的内部格式。把编译后的查询传递给一个名为do()的函数，它会在接近test_mnesia底部的位置 进行定义，负责运行查询并返回结果。为了让这一切能够轻易从erl里调用，我们把它映射到函 数demo(select_shop)上。（整个模块位于code/test_mnesia.erl文件内，可以在本书的主页① 里找到。）

在使用这个数据库之前，需要做一些例行的启动和载入表定义工作。它们必须在使用数据库 之前运行，但在每个Erlang会话里只需运行一次。

%% 等效SQL命令
%% SELECT * FROM shop

demo(select_shop) ->
    do(qlc:q([X || X <- mnesia:table(shop)]));

 现在可以启动数据库并生成一个查询了。

在这个示例中构建查询的代码行如下：

qlc:q([ X || X <- mnesia:table(shop)])

它看上去非常像一个列表推导：

 事实上，qlc就代表了query list comprehension （查询列表推导）。它是其中一个可以用来访问Mnesia数据库内数据的模块。

[X || X <- mnesia:table(shop)]的意思是“一个由X组成的列表，X提取自shop这个Mnesia 表”。X的值是Erlang的shop记录。

注意：qlc:q/1的参数必须是一个字面上的列表推导，不能是通过求值得出的。举个例子，下 面的代码与示例里的代码不是等价的。

Var = [ X || X <- mnsia:table(shop)],
qlc:q(Var)

从表里选择数据

下面这个查询会从shop表里选择item和quantity列：

%% 等效SQL命令
%% SELECT item, quantity FROM shop;

demo(select_some) ->
    do(qlc:q([{X#shop.item, X#shop.quantity} || X <- mnesia:table(shop)]));

上面这个查询里的X值是类型为shop的记录。X#shop.item指的是shop记录里的item字段。因此，元组{X#shop.item, X#shop. quantity}是一个由X的item和quantity字段所组成的元组。

从表里有条件选择数据 

%% 等效SQL命令
%% SELECT ship.item FROM shop
%% WHERE shop.quantity < 250;

demo(reorder) ->
    do(qlc:q([X#shop.item || X <- mnesia:table(shop), X#shop.quantity < 250 ]));

 从两个表里选择数据（联接）

 现在假设想要重新订购的商品必须库存少于250，并且价格低于2.0个货币单位。要做到这一点，需要访问两个表。这个查询如下：

%% 等效SQL命令
%% SELECT shop.item
%% FROM shop, cost
%% WHERE shop.item = cost.name
%% AND cost.price < 2
%% AND shop.quantity < 250

demo(join) ->
    do(qlc:q([X#shop.item || X <- mnesia:table(shop), X#shop.quantity < 250, 
        Y <- mnesia:table(cost), X#shop.item =:= Y#cost.name, Y#cost.price < 2 ])).

这里的关键在于联接 shop 表里的 item 名称和 cost 表里的 name 。

X#shop.item =:= Y#cost.name