0

我有这个记录：

-record(person, {id, token, password, pin, key, salt, pin_salt, subscription_date, first_name, last_name, alias, gender, created_at, birth_year, birth_month, birth_date}).

我有这个创建表person_backup的函数 

testcreate()->      

    mnesia:create_table(person_backup,[{disc_copies, [node()]},{attributes, record_info(fields, person)},
    {record_name, person}]).

我有这个函数将数据从表 person 传输到 person_backup

testbackup()->

    mnesia:transaction(fun() ->
  Records = mnesia:select(person, [{'_', [], ['$_']}]),
  [ok = mnesia:write(person_backup, Record, write) || Record <- Records]
end).

我的目标是对我的主要功能进行测试

check(Counter)->

if Counter =:= 40 ->
model:testbackup();
model:reset():
true-> io:format(" it not ok")
end.

但我的问题是当我这样做时 :model:reset()

表 person_backup 将被删除

我的目标是在执行 model:reset() 之前，我们应该将数据从 person 传输到 person_backup

这是reset() 、 destroy() 、 create()的代码

reset() ->
    stop(),
    destroy(),
    create(),
    start(),

    {ok}.


destroy() ->
    mnesia:start(),
    mnesia:delete_table(counter),
    mnesia:delete_table(person),
    mnesia:stop(),
    mnesia:delete_schema([node()]).


create() ->
    mnesia:create_schema([node()]),
    mnesia:start(),
    mnesia:create_table(counter, [{attributes, record_info(fields, counter)}, {disc_copies, [node()]}]),
    mnesia:create_table(person, [{attributes, record_info(fields, person)}, {disc_copies, [node()]}]),
  mnesia:create_table(person_backup,[{disc_copies, [node()]},{attributes, record_info(fields, person)},
    {record_name, person}]),
    mnesia:stop().
4

1 回答 1

1

当您删除架构时，所有表都将被删除，包括您的 person_backup。不要在销毁中执行 delete_schema，一切都会正常工作。

更好的做法是让您单独创建表并单独重置。在重置中，您可以改为执行 mnesia:clear_table of person 和 counter 。我想知道为什么你需要重新启动 mnesia。

于 2013-02-18T17:09:31.113 回答