Insertando registros con ODAC
Posted: Sun 17 Apr 2005 22:00
Tengo un problemas al manejar los odac, realmente pienso que el problema esta en la setencia sql, pero por más que he buscado en la web no he hallado un ejemplo que maneje las funciones sql tal como yo las quiero, he puesto y kitado comillas por todas partes, siempre tengo una excepción en sqlinsert.
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.
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.
