dbgriddeki seçilen kayıtların silinmesi

[muttalip]

Adotable kullanarak bir table ı dbgridde listeliyorum.Bu griddeki seçilen kayıtları silmek istiyorum. Tabloda filter da kullanmıştım. Griddeki seçilen kayıtların sayısını bile alamıyorum.

Aşağıdaki kodu yazdım:

Kod: Tümünü seç

procedure TForm1.SeilenKaytlarSil1Click(Sender: TObject);
var
  i: Integer;
begin
  if DBGrid1.SelectedRows.Count > 0 then
  begin
    with DBGrid1.DataSource.DataSet do
    begin
      for i := 0 to DBGrid1.SelectedRows.Count-1 do
      begin
       GotoBookmark(Pointer(DBGrid1.SelectedRows.Items[i]));
       ADOTable1.Delete;
      end;
    end;
  end
end;

Fakat bir sonuç alamadım. Yardımlarınızı bekliyorum.

[husonet]

viewtopic.php?p=11319#11319

Kolay Gelsin...

[Hakan Can]

DBGrid1.SelectedRows.Delete;

[rsimsek]

Kod: Tümünü seç

...
      for i := 0 to DBGrid1.SelectedRows.Count-1 do
      begin
       GotoBookmark(Pointer(DBGrid1.SelectedRows.Items[i]));
       ADOTable1.Delete;
      end;
....

kodun bir kısmını aldım.

Kod: Tümünü seç

       ADOTable1.Delete; 

den önce Bookmarklanan kayıta kayıtın indeks alanı ile konumlanırsan (ADOTable1.Locate(...) ) başarılı olabilir...