我新建了一个事务模式为"需要新的事务"的com组件, 里面有一个简单的检索数据的方法,
但是当我编写一个客户端引用它时,就得不到数据;
然而,我把此com组件的事务模式改为"支持事务"时,就能调用的,到底什么原因呢?代码为:
procedure TMtsGetData.GetData(const vSqlStr: WideString;
var vData: OleVariant);
begin
try
aqry.Close;
aqry.SQL.Clear;
aqry.SQL.Add(vSqlStr);
aqry.Open;
cds.Open;
vData:=cds.Data;
SetComplete;
except
SetAbort;
end;
end;
但是当我编写一个客户端引用它时,就得不到数据;
然而,我把此com组件的事务模式改为"支持事务"时,就能调用的,到底什么原因呢?代码为:
procedure TMtsGetData.GetData(const vSqlStr: WideString;
var vData: OleVariant);
begin
try
aqry.Close;
aqry.SQL.Clear;
aqry.SQL.Add(vSqlStr);
aqry.Open;
cds.Open;
vData:=cds.Data;
SetComplete;
except
SetAbort;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货