L
longwx
Unregistered / Unconfirmed
GUEST, unregistred user!
各位高手：
小弟正在学显示事务控制，做个很简单的程序，按下按纽则执行一个查询事务，源程序如下：
procedure TFormMain.Button1Click(Sender: TObject);
begin
DataBase.Connected:=True;
If DataBase.InTransaction=true then
DataBase.RollBack;
DataBase.StartTransaction;
With Query do
Begin
Close;
SQL.Clear;
SQL.Add('select * from jh_t099 where rq="19990726";');
Open;
Active:=True;
End;
DataBase.Commit;
DataBase.Connected:=False;
end;
但执行到“DataBase.StartTransaction”;时程序显示"Operation not applicable,Transaction not available"错误，这是为什么？正确的显示事务
处理程序应该怎么呢？谢谢！
另外，lhz叫我把111927问题处理掉，可是我从163很难登录进去，希望大家能帮我处理掉它。
小弟正在学显示事务控制，做个很简单的程序，按下按纽则执行一个查询事务，源程序如下：
procedure TFormMain.Button1Click(Sender: TObject);
begin
DataBase.Connected:=True;
If DataBase.InTransaction=true then
DataBase.RollBack;
DataBase.StartTransaction;
With Query do
Begin
Close;
SQL.Clear;
SQL.Add('select * from jh_t099 where rq="19990726";');
Open;
Active:=True;
End;
DataBase.Commit;
DataBase.Connected:=False;
end;
但执行到“DataBase.StartTransaction”;时程序显示"Operation not applicable,Transaction not available"错误，这是为什么？正确的显示事务
处理程序应该怎么呢？谢谢！
另外，lhz叫我把111927问题处理掉，可是我从163很难登录进去，希望大家能帮我处理掉它。
ataBase.