Migrating from UniDAC to PgDAC
Posted: Fri 31 Mar 2017 14:17
I was used to work with UniDAC and Firebird and now I'm migrating to PgDAC and PostgreSQL, but some little things are weird for me. So, I wanna know how can I do to migrate the example below using PgDAC:
Thanks!
Code: Select all
procedure TForm1.UpdatingSomething;
var
MyID: Integer;
begin
SomethingWasUpdated := False;
MyID := 15047;
try
UniTransaction1.StartTransaction;
UniStoredProc1.Params[0].AsInteger := MyID;
UniStoredProc1.Params[1].AsString := 'something';
UniStoredProc1.Prepare;
UniStoredProc1.ExecProc;
UniStoredProc2.Params[0].AsDateTime := Now;
UniStoredProc2.Params[1].AsInteger := MyID;
UniStoredProc2.Params[2].AsInteger := 100;
UniStoredProc2.Params[3].AsInteger := 912;
UniStoredProc2.Params[4].AsString := 'Disabled';
UniStoredProc2.Prepare;
UniStoredProc2.ExecProc;
UniTransaction1.Commit;
SomethingWasUpdated := True;
except
on E: Exception do
begin
UniTransaction1.Rollback;
ShowErrorMessage(E);
end;
end;
end;