Eintrag aus Datenbank löschen

[xan553]

also meines wissens nach und nach meiner wissenserweiterung in meinem letzten trhread würde folgendes passen:

DBGrid = DBG1
DBTable = Tbl1
Lösch Button = BtnDelDB

die Table mit der DB verbinden, das grid mit dem table verbinden und dann:

Delphi-Quellcode:

procedure TForm1.BtnDelDBClick(Sender: TObject);
begin
  if DBG1.SelectedRows <> nil 
  then
  begin
    Tbl1.Delete;
    Tbl1.Edit;
  end;
end;

oder irre ich mich?

[haentschman]

Hallo...

Delphi-Quellcode:

procedure TForm1.BtnDelDBClick(Sender: TObject);
begin
  if DBG1.SelectedRows <> nil then
  begin
    Tbl1.Delete;
  end;
end;

so ist´s besser. Das DELETE wird mit einem POST abgeschlossen. Das EDIT wird nicht benötigt, es sei denn, daß der nächste Datensatz in den Bearbeitungsmodus versetzt werden soll. Dann gehört aber ein POST noch irgendwohin...

[Union]

Und ganz cool wäre noch Exceptionhandling.

[Sir Rufo]

Un damit auch wirklich das gelöscht wird, was man angezeigt bekommt ... und auch löschen kann:

Delphi-Quellcode:

procedure TForm1.BtnDelDBClick(Sender: TObject);
begin
  if DBG1.SelectedRows <> nil then
    if DBG1.DataSource.DataSet.CanModify then
      DBG1.DataSource.DataSet.Delete;
end;