事务回滚出现EDdatabaseError异常，麻烦帮看看

Question

下面代码报 数据库异常：database1:The transaction isolation level must be dirty read for local databases
定位在try。
我用的是paradox数据库，由于不支持存储过程，所以用database组件来实现事务回滚。（同时涉及到插入和更新两个动作） with datamodule1 do
   begin
   database1.Connected:=false;
   database1.DriverName:='STANDARD';
   database1.Params.Values['path']:='.';
   database1.Connected:=true;   query1.Close;
   query2.Close;
   query1.DatabaseName:='dbwork';
   query2.DatabaseName:='dbwork';   query1.SQL.Clear;
   query2.SQL.Clear;
   database1.StartTransaction;
   try
    if flag=0 then
    begin
   query2.SQL.Add('insert into  storage (wzllbhid,clbhid,rksl,rkdate,oprid) values ');
   query2.SQL.Add(' (:wzllbhid,:clbhid,:rksl,:rkdate,:oprid)');
   query2.ParamByName('wzllbhid').AsString:=trim(combobox1.Text);
   query2.ParamByName('clbhid').AsString:=clbhid;
   query2.ParamByName('rksl').AsFloat:=strtofloat(trim(stringgrid1.Cells[5,line]));
   query2.ParamByName('rkdate').AsDateTime:=time;
   query2.ParamByName('oprid').AsString:=trim(gmUserName);
   query2.ExecSQL;   query1.SQL.Add('update material set kcsl=kcsl+:kcsl where clbhid=:clbhid');
   query1.ParamByName('wzllbhid').AsString:=trim(combobox1.Text);
   query1.ParamByName('kcsl').asfloat:=kcsl+rksl;
   query1.ExecSQL;    end
    else
     begin
       showmessage('插入更新出错！');
       exit;
     end;   except
   database1.Rollback;
   end;
end;

Answer 1

database1.StartTransaction;
try 
  database1.commit;
except
  database1.rollback;
end;你先用最简单的这样试试看是否正常。

Answer 2

我是楼主，分步执行的话执行到try就报错没有执行了。

Answer 3

知道你是楼主，你确定你的database1已经与数据库联接了吗？
database1.connected := true;

Answer 4

我把database组件的transisolation 改为 tiDirtyRead就可以了，不知道为什么