dbGridでのレコードの削除Delphi 2010

Question

私が直面しているかなり重大な問題に対する解決策を探しています。 dbGridのレコードを削除したいのですが、コード化されたボタンをクリックして「削除」を確認すると、すぐに結果が見つかりません。削除されたレコードの結果を見つけるには、プログラムを閉じて再実行する必要があります。それだけで、レコードが削除されていることがわかります。私は、Accessデータベースへの接続の接続をADOに接続されているADOのテーブルを使用しています

procedure TfrmPunte.btnDeleteClick(Sender: TObject); 
var 
sName, sLeerderNo : string; 
begin 
with dmPunte do 
    begin 
    sLeerderNo := tblLeerder['LeerderNr']; 
    sName := tblLeerder['NaamVan']; 
    if MessageDlg('Is jy seker dat jy ' + sName + ' met Leerder Nommer ' + sLeerderNo + ' wil wis van die rekords? Neem kennis dat al die rekords van sy/haar aktiwiteite ook uitgevee sal word!', mtWarning, [mbOk, mbCancel],0) = mrOK then 
     tblDeelname.Open; 
     tblDeelname.First; 
     while NOT tblDeelname.Eof do 
     begin 
      if tblDeelname['LeerderNr'] = sLeerderNo then 
      tblDeelname.Delete; 
      tblDeelname.Next; 
     end; 
     tblLeerder.Delete; 
     tblLeerder.Active := False; 
     tblLeerder.Active := True; 
    end; 
end; 

を次のように

私のコーディングは、基本的に見えます。私はappologize、いくつかの変数名は、アフリカーンス語です。 どうすればよいですか？

Answer 1

Table.refreshすべての環境で機能しません。安全な方法は

Table.Active := False; 
Table.Active := True; 

です。実際のデータセットが失われるという問題に注意してください。あなたはそれを保存し、ロケートを取得することができます。