Inserting records with ODAC
Posted: Sun 17 Apr 2005 22:19
I have some troubles with odac, I really think that the problem is found in the sql statment, I've searching on the web but I haven't found any example that it has the sql statments written like I want, I have moved the apostrophes for everywhere, it always has an exception.
Luckly someone can help me. :
TFMiAgenda is a TForm.
DMBDOracle is a TOraSession.
OQMiAgenda is a OraQuery.
This is the source code.
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;
Thank's.
Luckly someone can help me. :

TFMiAgenda is a TForm.
DMBDOracle is a TOraSession.
OQMiAgenda is a OraQuery.
This is the source code.
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;
Thank's.