mnesia_example_qlc.md

rd(tst,{name,desc}). 
application:stop(mnesia). 
mnesia:create_schema([node()]). 
application:start(mnesia). 
mnesia:create_table(tsts,
 [{record_name, tst},
 {attributes, record_info(fields, tst)},
 {disc_copies, [node()]},
 {type, set}]).

f(). 
rd(tst,{name,desc}). 
TFun =
  fun() ->
          R = #tst{name="Name1",desc="Desc1"},
	  mnesia:write(tsts,R,write)
  end.
Res = mnesia:transaction(TFun). 

f(). 
rd(tst,{name,desc}). 
TFun =
  fun() ->
          R = #tst{name="Name2",desc="Desc2"},
	  mnesia:write(tsts,R,write)
  end.
Res = mnesia:transaction(TFun). 


f(). 
rd(tst,{name,desc}). 
TFun =
  fun() ->
	  Q = qlc:q([
        	  R || R <- mnesia:table(tsts) 
	  ]),
          qlc:eval(Q)
  end.
Res = mnesia:transaction(TFun).