Löschen von Datensätzen in einem dbGrid Delphi 2010

Question

Ich suche nach einer Lösung für ein ziemlich ernstes Problem, vor dem ich stehe; Ich möchte einen Datensatz in einem dbGrid löschen, aber wenn ich auf meine codierte Schaltfläche klicke und "Löschen" bestätige, finde ich keine unmittelbaren Ergebnisse. Um das Ergebnis des gelöschten Datensatzes zu finden, muss ich das Programm schließen und neu starten. Nur dann sehe ich, dass der Datensatz gelöscht wird.

Meine Codierung sieht im Grunde wie folgt

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; 

ich eine ADO-Tabelle verwenden verbunden Verbindung zu einer Access-Datenbank mit ADO. Ich entschuldige mich, einige Variablennamen sind in Afrikaans. Was soll ich tun?

Answer 1

Table.refresh funktioniert nicht in jeder Umgebung. Der sichere Weg ist

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

Achten Sie auf ein Problem, dass der tatsächliche Datensatz verloren ist. Sie können es speichern und zurückfinden.