Ojalá y alguien me pueda ayudar con este problema.
TFMiAgenda es TForm.
DMBDOracle es TOraSession.
OQMiAgenda es OraQuery.
Aquí tienen el código.
procedure TFMiAgenda.Button1Click(Sender: TObject);
begin
DMBDOracle.OQMiAgenda.CachedUpdates:=true;
DMBDOracle.OQMiAgenda.SQLInsert.Text:='insert into miagenda([Nombre],[Direccion],[Telefono],[Fecha]) values(''miNombre'',''miDireccion'',''numTelefonico'',TO_DATE(''15/08/1984'',''dd/mm/yyyy''))';
try
DMBDOracle.OQMiAgenda.Open;
DMBDOracle.OQMiAgenda.Edit;
DMBDOracle.OQMiAgenda.Insert;
DMBDOracle.OQMiAgenda.Post;
DMBDOracle.OQMiAgenda.Session.StartTransaction;
DMBDOracle.OQMiAgenda.Session.Commit;
DMBDOracle.OQMiAgenda.CommitUpdates;
except
on e:Exception do
ShowMessage('ERROR');
end;
FMiAgenda.Refresh;
end;
Gracias por su atención.
