データベースの重複データ処理

解決

りな 2010-01-05 00:09:03 No: 36718 IP: [192.*.*.*]

アドバイスくださる方々、いつもありがとうございます。
データベースの重複処理に関して、質問があります。

delphi4 oracle8iを使用しているのですが、データベース上の項目IDにプライマリーキーをかけ、データが重複しないようにしています。insert文でデータを追加するとき、IDが重複しているときは「IDが重複していまので、ほかのIDを入力してください」というメッセージを出し、入力をできないようにしたいのですが、どのようにすればよいでしょうか？また、データが追加された際に、自動的にIDを振り分ける方法をご存知でしょうか？

現在insert文は以下のように、書いています。

begin
with query1 do
begin;
close;
SQL.Clear;
SQL.ADD('insert into TableA (aID, aNAME) values (:value1, :value2)');
prepare;
params...
（省略）
end;
execsql;
end

です。

編集削除

HOta 2010-01-05 06:05:23 No: 36719 IP: [192.*.*.*]

方法としては、
1.Selectで検索してみる。
2.Insertを発行してエラーが出れば重複している。

begin
with query1 do
begin;
   close;
   with SQL do
   begin
     Clear;
     ADD('insert into TableA (');
     ADD('    aID');
     ADD('  , aNAME');
     ADD(') values (');
     ADD('   :value1');
     ADD(' , :value2');
     ADD(')');
   end;
   prepare;
   params...
（省略）
//  end;

   try
     execsql;
   except  //エラーを起こした場合の処理
     showmessage('IDが重複しています。');
   end
  end;
end

編集削除

りな 2010-01-05 21:38:38 No: 36720 IP: [192.*.*.*]

HOtaさん、返答ありがとうございます。

begin
with query1 do
begin;
close;
SQL.Clear;
SQL.ADD('insert into TableA (aID, aNAME) values (:value1, :value2)');
prepare;
params...
（省略）
  //end;

  try
   execsql;
  except
   showmessage('エラー');
  end;    ← (コロン抜きも試してみました）
end;
end;

としてみたのですが、エラーが生じてもexceptへ入っていきません。すみませんが、アドバイスいただけないでしょうか（try except文はいつもうまくいきません）？