Viendo el código de la implementación actual de TFDQuery, veo claramente que al utilizar el método OpenOrExecute
no hay forma de recoger el valor de las filas afectadas. El método
simplemente intenta abrir el resultado del comando, como si se tratase de una sentencia select
e ignora la excepción que ocurre si la sentencia no produce al menos un conjunto de datos como resultado.
La forma subyacente para obtener el número de filas afectadas por una sentencia insert
/update
/delete
es distinta.
Una forma en la que podrías trabajar al-rededor de esta limitación es preparar el comando y, dependiendo del tipo de sentencia que el propio driver de FireDAC determina que se trata abrirlo o ejecutarlo, en cuyo caso la propiedad RowsAffected
se actualiza correctamente.
La idea básica es:
- Asigna el SQL
- Prepara la sentencia
- Dale una mirada al valor de la propiedad
CommandKind
de la propiedad Command
del TFDQuery
, que va a tener uno de los valores skSelect
, skInsert
, skUpdate
, entre otros.
- Dependiendo de ese valor, decides qué método ejecutar (
Open
, ExecSQL
, OpenOrExecute
)
- Si se ha ejecutado
Open
o ExecSQL
, la propiedad RowsAffected
te mostrará correctamente le número de filas afectadas.
El código que he probado es:
begin
FDQuery1.SQL.Text := 'tu sentencia aquí';
FDQuery1.Prepare;
if Assigned(FDQuery1.Command) then
case FDQuery1.Command.CommandKind of
skNotResolved,
skUnknown: FDQuery1.OpenOrExecute;
skSelect,
skSelectForLock,
skSelectForUnLock: FDQuery1.Open;
skDelete,
skInsert,
skMerge,
skUpdate,
skCreate,
skAlter,
skDrop,
skStoredProc,
skStoredProcWithCrs,
skStoredProcNoCrs,
skExecute,
skStartTransaction,
skCommit,
skRollback,
skSet,
skSetSchema,
skOther: FDQuery1.ExecSQL;
end
else
FDQuery1.OpenOrExecute;
Label2.Caption := IntToStr(FDQuery1.RowsAffected);
end;
He hecho una prueba contra SQL Server y esto me ha funcionado razonablemente bien. Sugiero que antes de implementarlo lo pruebes también con Oracle (ya que depende del driver específico de la base de datos), y también que te asegures de realizar la operación correcta para cada tipo de sentencia (yo he hecho una prueba rápida, pero no puedo garantizar el resultado en casos como skSelectForLock
o valores igualmente exóticos.
Open
cuando es una sentenciaselect
yExecute
/ExecSQL
cuando esinsert
/update
/delete
?TFDQuery
no esTQuery
. El primero pertenece a FireDAC y el segundo a BDE.