%%%test_mnesia.erl
-module(test_mnesia).
-include_lib("stdlib/include/qlc.hrl").
-import(lists, [foreach/2]).
-compile(export_all).
demo({select_shop,Name}) ->
do(qlc:q([X || X <- mnesia:table(Name),X#in_proj.proj_name =:=1001 ])).
do(Q) ->
F = fun() -> qlc:e(Q) end,
{atomic, Val} = mnesia:transaction(F),
Val.
-module(test_mnesia).
-include_lib("stdlib/include/qlc.hrl").
-import(lists, [foreach/2]).
-compile(export_all).
demo({select_shop,Name}) ->
do(qlc:q([X || X <- mnesia:table(Name),X#in_proj.proj_name =:=1001 ])).
do(Q) ->
F = fun() -> qlc:e(Q) end,
{atomic, Val} = mnesia:transaction(F),
Val.