Gracias nueva mente
he puesto el cogigo asi:
Código Delphi
[-]AdoPublica.Open;
AdoPublica.Insert;
AdoPublicaEVT_EVENTO.AsInteger:=ADODATASET1.FieldByName('ID_COTIZACION').AsInteger;
AdoPublicaEVT_FECHA_INI.AsDateTime:=dtFechaIni.Date;
AdoPublicaEVT_NOMBRE.AsString:=EdtEvento.Text;
AdoPublicaEVT_FECHA_FIN.AsDatetime:=dtFechaFin.Date;
AdoPublicaDESCRIPCION.Assign(RzMemo1.Lines);
AdoPublicaCONTACTO_EVE.AsString:=EdtContactoE.Text;
AdoPublicaSALONES.Assign(memoSaloCoti.Lines);
AdoPublicaCONTACTOWTC.AsString:=EdtContactowtc.Text;
AdoPublica.Post;
AdoPublica.Close;
y pasa lo mismo pero estube rastreando el codigo y antes me mamandaba el error en esta linea
Código Delphi
[-]AdoPublicaEVT_EVENTO.AsInteger:=ADODATASET1.FieldByName('ID_COTIZACION').AsInteger;
pero ahora es en la ultima en la de:
Me imagino que era parte del problema.
gracias por ayudarme