Duda con mensaje Can no open Resultset
 

Hola a todos:

Disculpen las molestias es la primera vez que escribo aunque ya tengo tiempo de consultar el foro y casi siempre encuentro respuestas a mis dudas.
Mi pregunta es la siguiente pongo la siguiente sentencia sql en un componente tzQuery:

insert into demovtos (Tipo,Presentacion,Denominacion,Folio_movto,sucursal,Cantidad)
(SELECT Tipo_Moneda,Tipo_Presentacion,Denominacion,:Folio,:ca,0 FROM denominacion where Tipo_Moneda = :Tm and Tipo_Presentacion = :Presentacion order by Denominacion DESC)

y en el codigo de delphi pongo esto:

agrega.ParamByName('Folio').Value := dmBases.zMovtosFolio.Value;
agrega.ParamByName('ca').Value := 0;
agrega.ParamByName('Tm').Value := 1;
agrega.ParamByName('Presentacion').Value := 'B';
agrega.Active := True;

y me da el siguiente error 'Can not open Resultset' y no me da los datos que se insertaron hasta que vuelvo a abrir la tabla ya aparen los resgistros creados.

Incluso esta sentencia la ejecuto en Mysql con datos estaticos en vez de parametros y no me da ningun error, este error solo es en tiempo de ejecucion.

Gracias por la ayuda que puedan darme para solucionar este error.

Para este tipo de sentencias (INSER, UPDATE, DELETE, etc.) que no devuelven un cinjunto de registros, no debes usar agrega.Active := True sino agrega.ExecSQL (o Execute, no recuerdo bien en Zeos).

Bye

Muchas gracias Keyboy se soluciono el problema