Again about Get Identity

[alec]

Good day!
Now we use such code for get identity:

Code: Select all

procedure TForm1.MSQuery1BeforeUpdateExecute(Sender: TCustomMSDataSet;
  StatementTypes: TStatementTypes; Params: TMSParams);
begin
  if stInsert in StatementTypes then
    Params.ParamByName('id').ParamType := ptInputOutput;
end;

I think it's silly work to write such handler for each component. I can assign one handler for all TMSQuery of course, but I have different identity field names such as "id_user","id_equipment" etc.
Is any way for automate task of get identity?
Thank you very much.

[Jackson]

You can clear SQLInsert property and SDAC will automatically generate INSERT statement and will take care of returning identity field value.
If it is not applicable for your task you can use construction like following:

Code: Select all

procedure TForm1.MSQuery2BeforeUpdateExecute(Sender: TCustomMSDataSet;
  StatementTypes: TStatementTypes; Params: TMSParams);
var
  i: integer;
  IdentityFieldName: string;
begin
  for i := 0 to Sender.Fields.Count - 1 do
    if Sender.Fields[i].AutoGenerateValue = arAutoInc then begin
      IdentityFieldName := Sender.Fields[i].FieldName;
      break;
    end;

  if stInsert in StatementTypes then begin
    if IdentityFieldName = '' then
      raise Exception.Create('Identity field not found.');
    Params.ParamByName(IdentityFieldName).ParamType := ptInputOutput;
  end;
end;

But parameters names in your INSERT statement must have same names as corresponding fields.