1

两个表是相关的，我想编写函数来删除这两个表中的所有记录，但是输出表明我不能这样做。一条一条删除记录的低效率选择是唯一可用的选择吗？

clear_gyne()->
R = execute_mnesia_transaction(
 fun()->
    mnesia:clear_table(bas_gyne),
    mnesia:clear_table(bas_gyne_property)
end),
R.

execute_mnesia_transaction(TxFun) ->
    %% Making this a sync_transaction allows us to use dirty_read
    %% elsewhere and get a consistent result even when that read
    %% executes on a different node.
    %%    case worker_pool:submit(
    %%    fun () ->
    Result_a = case mnesia:is_transaction() of
                         false -> DiskLogBefore = mnesia_dumper:get_log_writes(),
                                  Res = mnesia:sync_transaction(TxFun),
                                                     DiskLogAfter  = mnesia_dumper:get_log_writes(),
                                  case DiskLogAfter == DiskLogBefore of
                                      true  -> Res;
                                      false -> {sync, Res}
                                  end;
                         true  -> mnesia:sync_transaction(TxFun)
                     end,
    case Result_a of
        {sync, {atomic,  Result}} -> mnesia_sync:sync(), Result;
        {sync, {aborted, Reason}} -> throw({error, Reason});
        {atomic,  Result}         -> Result;
        {aborted, Reason}         -> throw({error, Reason})
   end.

execute_mnesia_transaction从 rabbitmq 项目的源代码复制而来。

输出是

bas_store:clear_gyne().
** exception throw: {error,{aborted,nested_transaction}}
     in function  bas_store:execute_mnesia_transaction/1 (src/bas_store.erl, line 29)
4

1 回答 1

1

mnesia:clear_table/1被归类为模式事务，因此不能嵌套在另一个事务中。

参看。mnesia:clear_table http://erlang.org/pipermail/erlang-questions/2005-August/016582.html

于 2012-04-25T00:34:13.647 回答