sql - Delphi7 を使用してリレーションシップにあるデータベースの 2 つのテーブル内のすべてのデータを削除できません

Question

次のエラーが表示されます。

プロジェクト PAT_p.exe で例外クラス EOleException が発生し、「テーブル 'tblAntwoorde' に関連するレコードが含まれているため、レコードを削除または変更できません」というメッセージが表示されます。プロセスが停止しました。Step または Run を使用して続行します。

このエラーは、次のコードの最初の実行時に発生します。

procedure TfrmKomp.btnTerug1Click(Sender: TObject);
begin
  frmData.qryVGKompetisieDB.Active := false;
  frmData.qryVGKompetisieDB.SQL.Text := 'Delete * from tblDeelnemers'; // delete from table1
  frmData.qryVGKompetisieDB.ExecSQL;
  frmData.qryVGKompetisieDB.SQL.Text := 'Delete * from tblAntwoorde'; // delete from table2
  frmData.qryVGKompetisieDB.ExecSQL;
  frmData.qryVGKompetisieDB.SQL.Text := 'SELECT * from tblDeelnemers'; // for displaying on dbgrid that records is removed  
  frmData.qryVGKompetisieDB.Active := true;
end;

データベース内のテーブルは、ID が tblDeelname の PK であり、Nommer が自動番号であり、tblAntwoorde の PK である 1 対多の関係でリンクされています。残念ながら、これは学校での実践的な評価タスクのためのものであり、関係がそこにある必要があります.

テーブル内のすべてのデータを削除したいのですが、テーブルはすべての列とともにそこにとどまる必要があります。これは必ずしも sql ステートメントを使用する必要はありません。delphi7 で使用できるあらゆる種類のコードで問題ありません。