应用ADOCommand更新、删除、添加数据

使用ADOCommand更新、删除、添加数据
使用ADOCommand更新、删除、添加数据时，怎样判断是否增、删、改操作成功。
怎么接收  ADOCommand.Execute;的返回值判断
------解决方案--------------------

function ExecSQL(ConStr: string; eSQL: string): string; //执行无返回值SQL

var

  conADO: TADOConnection;

  cmdADO: TADOCommand;

begin

  Result := '';

  conADO := TADOConnection.Create(nil);

  cmdADO := TADOCommand.Create(nil);

  try

    conADO.ConnectionString := ConStr;

    conADO.CommandTimeout := 300;

    conADO.LoginPrompt := False;

    try

      conADO.Open;

    except on e: Exception do

      begin

        SaveToLog('执行SQL数据库连接错误: ' + e.Message);

        Exit;

      end;

    end;

    try

      with cmdADO do

      begin

        Connection := conADO;

        CommandTimeout := 300;

        CommandText := eSQL;

        SaveToLog('执行SQL: ' + Trim(eSQL));

        Execute;

        Result := 'S'; //执行成功返回 S

      end;

    except on e: Exception do

      begin

        Result := e.Message; //执行失败返回 消息

        SaveToLog('执行SQL错误: ' + e.Message);

      end;

    end;

  finally

    FreeAndNil(conADO);

    FreeAndNil(cmdADO);

  end;

end;