【搞定】TSQLDataSet的问题**

wangxufeng

在TSQLDataset操作数据的时候,也就是调用Execute执行
Insert,Update,Delete如何返回操作的记录数,Delphi的TSqlDataset的
ExecSql是可以返回值的.

atiger

楼主，没有太明白你的意思，请进一步描述。

另外，请楼主告知原始的需求，好吗？这样便于我们给方案

wangxufeng

请看Delphi的EXECSQL函数的描述
function ExecSQL(ExecDirect: Boolean = False): Integer; override;
Executes a query or stored procedure that does not return a set of records.
ExecSQL returns the number of rows affected by the executed command. This becomes the value of the RowsAffected property.
我想知道TSqlDataSet在执行Execute以后影响的记录数目
简单点说就是Delete语句执行以后我想知道具体有多少条记录被删除了,不能用删除之前执行Select语句的方式,那样效率太低
//例子
function  _ExecSql(Sql:String)LBoolean
begin
  if Delete的记录数<=0 then Raise Exception.Create('Error');
end;
明白????,Update语句也是一样的

wangxufeng

顶!!!!!!!!!!!!!!!!!!!!!

tang

现在可以先使用I := Connection.Execute('');来解决这个问题

wangxufeng

你回答的问题在没有事务提交的情况下是正确的,在有事务的时候是错误的,而我们恰恰是要在事务中使用,请看以下测试代码:
procedure TMainForm.Exec(A:String);
var
  i:Integer;
begin
  with  DataSetds do
  begin
    Close;
    i := Connection.ExecuteSQL('delete from bd_invtype_dt where SN_PRE=''AB''');
    Edit1.Text :=Sysutils.IntToStr(i);
    if i<=0 then Raise Exception.Create('Error');
  end;
end;


procedure TMainForm.BitBtn1Click(Sender: TObject);
var
  AHandle:TTransactionHandle;
begin
  with  DataSetds do
  begin
    AHandle := Connection.Transaction.Start(False);
    try
      Exec('delete from bd_invtype_dt where SN_PRE=''AC''');
      Connection.Transaction.Commit(AHandle);
    except
      Connection.Transaction.Rollback(AHandle);
      Raise;
    end;
  end;
end;

在事务中无论是否执行有无数据的删除,最后都会触发异常,首先说明i := Connection.ExecuteSQL('delete from bd_invtype_dt where SN_PRE=''AB''');在没有事务的情况下返回1
请教如何处理???????????????????
请尽快回复

wangxufeng

不好意思,我解决这个问题了

kitchan

请楼主分享一下方法好吗 我也正受此问题困扰