try y catch en una consulta

[[maeyanes]]

Hola...

Puedes hacerlo así:

Código Delphi [-]
with dm.qadulto do
  try
    Close;
    SQL.Clear;
    Params.CreateParam(ftMemo, 'x1', ptnknown).AsMemo := memo5.Text;
    SQL.Add('update nino set pad = :x1');
    SQL.Add('where cve_cte = :cv');
    ParamByName('cv').Value := cni;
    ExecSQL
  except
    ShowMessage('Ocurrió un error actualizando datos')
  end

Saludos...