我无法删除使用 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。不幸的是，这是针对学校的实际评估任务，并且必须存在关系。

我想删除表格中的所有数据，但表格必须与其所有列一起保留在那里。这不一定是sql语句，我可以在delphi7中使用的任何类型的代码都可以。

Answer 1

在Cascate delete sugestion之后我什么时候研究它并找到了一个更简单的方法here。

基本上必须发生的事情是必须先删除辅助表中的数据，然后才能删除主表中的数据。

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

感谢您的 cmets 家伙的所有帮助。对此，我真的非常感激。 ☺