Duda con mensaje Can no open Resultset

[rcantu]

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.

[keyboy]

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

[rcantu]

Muchas gracias Keyboy se soluciono el problema