TConnection的ExecuteSQL方法返回值

kitchan

TConnection的ExecuteSQL方法返回值始终为-1，为什么？

  FConnection.:=TConnection.Creat(nil);
  FConnection.ConnectionString:='DATABASEURL=Biz:\GYLGLXT\YWSJK.Database';
  FConnection.Transaction:=TTransaction.Create(FConnection);
  lHandle:=FConnection.Transaction.Start(False);
  try
      if lInfo.StoreID='' then
      begin
        Raise Exception.Create('出库仓库没有指定,不能出库!');
        exit;
      end;
      AMount:=lInfo.Amount;
      lSQL:='select GUID from OutDetail where GUID in ('+GetOutSQL+')';
      if FConnection.ExecuteSQL(lSQL)>0 then
      begin
        Raise Exception.Create('物资已经出库,请不要重复操作!');
        exit;
      end;
      //冲减库存量
      lSQL:='update wlkcb set kcl=kcl-(%f) where Barcode=''%s'' and cfck=''%s'' and kcl>=%f';
      lSQL:=SysUtils.Format(lSQL,[AMount,lInfo.BarCode,lInfo.StoreID,AMount]);
      Affected:=FConnection.ExecuteSQL(lSQL);
      if Affected<=0 then Raise Exception.Create('库存不足,不能出库!');
    try
      FConnection.Transaction.Commit(lHandle);
    except
      FConnection.Transaction.rollback(lHandle);
    end;
  finally
    FConnection.Free;
  end;

yancm

如果需要返回数据集的话使用Query或DataSet

kitchan

我并不要返回结果集,而只想知道update insert delete语句影响的记录数
现在知道以下几句是错的了
      lSQL:='select GUID from OutDetail where GUID in ('+GetOutSQL+')';
      if FConnection.ExecuteSQL(lSQL)>0 then
      begin
        Raise Exception.Create('物资已经出库,请不要重复操作!');
        exit;
      end;
已经改正,
但FConnection.ExecuteSQL('update table1 set xx=xx ')按理应该返回受影响的记录数啊,现在测试了一下总是返回-1

kitchan

顶起 急啊

yancm

楼主您哪个版本。我这里是正常的。

kitchan

2435版本 现在发现用事务时返回值始终为-1  不用事务时始终为0