convert ADO to UNIDAC

[caksul]

I am coding with the ADO are:

qryCusType.post try;
except
on E: EDatabaseError do

if qryCusType.Connection.Errors [0]. NativeError = 2627 then begin / / Key violation (key already exists).
with editTypeName do begin Show; SetFocus; end;
raise (exception.create ('Type Name must be unique'));
end else if frmKaifa.ADOConnection1.Errors [0]. NativeError = 32 then raise (exception.create ('Unable to insert or update Customer Type ...' + # 13 + 'It has been changed or deleted since last retrieved') )
else raise;
end;

what if I use UNIDAC?

thanks

caksul

[AndreyZ]

Hello,

You can use the following code:

Code: Select all

procedure TMainForm.BitBtnClick(Sender: TObject);
var
  er: EMSError;
begin
  try
    UniQuery.Post;
  except
    on E: EUniError do begin
      er := EMSError(E.InnerError);
      if er.MSSQLErrorCode = 2627 then
        // your code
    end;
  end;
end;

Please note that to use the EMSError class, you should add the OLEDBAccessUni unit to the USES clause of your unit.

[caksul]

thanks

Hello,

You can use the following code:

Code: Select all

procedure TMainForm.BitBtnClick(Sender: TObject);
var
  er: EMSError;
begin
  try
    UniQuery.Post;
  except
    on E: EUniError do begin
      er := EMSError(E.InnerError);
      if er.MSSQLErrorCode = 2627 then
        // your code
    end;
  end;
end;

Please note that to use the EMSError class, you should add the OLEDBAccessUni unit to the USES clause of your unit.

[AndreyZ]

Feel free to contact us if you have any further questions about UniDAC.

[caksul]

thanks

http://www.devart.com/forums/viewtopic.php?t=23859

Feel free to contact us if you have any further questions about UniDAC.

[AndreyZ]

I've answered you there.