dbexpress怎么在事物中建立锁,数据库是sql server

davidkali 2005-03-24 02:55:28
下面是代码:
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
TD: TTransactionDesc;
begin
self.SQLConnection1.Open;
TD.TransactionID :=50;
TD.IsolationLevel := xilREADCOMMITTED ;
self.SQLQuery1.SQLConnection :=self.SQLConnection1;
SQLConnection1.StartTransaction(TD) ;
self.SQLQuery1.SQL.Add('select * from wf_maxid where id = 10 ');
self.SQLQuery1.ExecSQL();
SQLConnection1.Commit(td)
self.SQLConnection1.Close;
end;

若是用ado控件,id =10的记录在运行了sql之后直到事务提交之前是排他状态,也就是其他想读这条记录的事物会被挂起,直到当前事务被commit.dbexpress中怎么实现亚,除了调用服务器存储过程。那位大虾告诉我一下,不胜感激。

...全文
42 点赞 收藏 回复
写回复
回复

还没有回复,快来抢沙发~

发动态
发帖子
数据库相关
创建于2007-08-02

1209

社区成员

8.8w+

社区内容

Delphi 数据库相关
社区公告
暂无公告