DCOM + ADOConnection三层，执行数据库操作事务未提交？

[Yothan]

我的程序是用的客户端用DCom连接到中间件，中间件使用AdoConnection连接到数据库。
我在中间件中写一个Create Table的语句，做法为：
1.使用TADOQuery，直接对其进行赋值，没有做其他属性设置
2.代码如下：
if ConnectDB then
begin
try
Connect_db.BeginTrans;
try
with tempUpdateQuery do
begin
Close;
SQL.Clear;
SQL.Add(vSQL);
ExecSQL;
end;
Connect_db.CommitTrans;
except
on e:Exception do
begin
OutMsg :='执行语句错误:' + E.Message;
Connect_db.RollbackTrans;
end;
end;
finally
stopdb;
end;
end;

遇到的问题：
1.如果加上事务处理的话，会一直报：无法在此会话中启动更多的事务（其他地方干干净净，没有做过事务处理）
2.不用事务处理，能正确执行，但是执行完毕后我到服务器中select 该表，发现被锁现象（或者说事务未能提交）。这是何原因呢？

[Yothan]

  if ConnectDB then
  begin
    try
      Connect_db.BeginTrans;
      try
        with tempUpdateQuery do
        begin
          Close;
          SQL.Clear;
          SQL.Add(vSQL);
          ExecSQL;
        end;
        Connect_db.CommitTrans;
      except
        on e:Exception do
        begin
          OutMsg :='执行语句错误:' + E.Message;
          Connect_db.RollbackTrans;
        end;
      end;
    finally
      stopdb;
    end;
  end;

[aawwmate]

中间件在注册时配置【事务】改为“不支持”或者“支持”

收藏

[Yothan]

我已查明原因，是中间件在注册时配置【事务】改为“不支持”或者“支持”，就可以了。

来着送分

[xiaoxueren1983]

接分了

[SQLDebug_Fan]

楼主做事很细致，发帖之后还把代码组织了。

[Yothan]

还要说一句，其实真正的问题并不在组件这块，可能并不是几句delphi语句就能解决的

[lyhoo163]

关注。
应在服务器端写一个事务方法。
客户端调用该事务方法。

[Yothan]

关于这个问题，特地来说明一下。
此问题已经得到解决：
没有使用事务，因为不需要。至于数据被锁，是因为以前有一个人写了update语句没提交导致！