Guest User

Untitled

a guest
Jun 10th, 2021
65
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. FDCommand: TFDCommand;
  2. ..............................
  3. FDCommand.CommandText.Text := 'DO $$ ' + #13#10 +
  4.                   'DECLARE ' + #13#10 +
  5.                   '     val1 integer; ' + #13#10 +
  6.                   '     val2 integer; ' + #13#10 +
  7.                   '     val3 integer; ' + #13#10 +
  8.                   'BEGIN ' + #13#10 +
  9.                   '     val1 := :p_val1; ' + #13#10 +
  10.                   '     val2 := :p_val2; ' + #13#10 +
  11.                   '     val3 := :p_val3; ' + #13#10 +
  12.                   '     INSERT INTO data(value1, value2, value3) ' + #13#10 +
  13.                   '     VALUES(val1, val2, val3); ' + #13#10 +
  14.                   'END; ' + #13#10 +
  15.                   '$$;';
  16. FDCommand.Params.Prepare(ftInteger, ptInput);
  17. FDCommand.Params.ParamByName('p_val1').Value := 0;
  18. FDCommand.Params.ParamByName('p_val2').Value := 0;
  19. FDCommand.Params.ParamByName('p_val3').Value := 0;
  20. FDCommand.Execute();
RAW Paste Data