Slette en række i access

Hvis du vil slette det valgte element kan det gøres således:

procedure TForm1.btnDeleteClick(Sender: TObject);
begin
  DBListBox1.Items.Delete(DBListBox1.ItemIndex);
end;

har lavet en demo som jeg kan sende til din mail fun22 hvis du vil, men koden er ligesom hvis det var en normal listbox der blev brugt.

procedure TForm1.FormCreate(Sender: TObject);
begin
  try
    adotable1.first;
    while not adotable1.eof do
    begin
      DBListBox1.Items.Add(ADOTable1.Fields.Fields[1].Asstring);
      adotable1.Next;
    end;
  finally
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var index: integer;
begin
  index := DBListBox1.ItemIndex;
  if index = -1 then exit;
  adotable1.first;
  while not adotable1.eof do
  begin
    if DBListBox1.Items.Strings[index] =
      ADOTable1.Fields.Fields[1].Asstring then
      ADOTable1.Delete;
    adotable1.Next;
  end;
  DBListBox1.Items.Delete(index);
end;

du må godt sende den demo til mig.

fun22 -> hvad skal jeg sende den til?

jtp@home2.gvdnet.dk

Det er åbenbart min version der er noget galt med. Kan du ikke forklare lidt mere om hvordan man sletter en række i en access database. Jeg har det hele listet i en DBLookupListBox og så skulle det gerne være sådan at jeg kan markere et navn i den DBLookupListBox og så klikke på en knap der hedder slet. Og så sletter den det.

jo jeg tænkte på kan du sende sourcen på det du har?
det ville gøre det lidt nemmere.

dkn@pc.dk

okay put det her på din slet button onclick, så skulle det virke:

var
  index: integer;
begin
  if DBLookupListBox1.SelectedItem = '' then exit;
  index := DBLookupListBox1.ListSource.DataSet.Fields.Fields[0].AsInteger;
  adotable1.first;
  while not adotable1.eof do
  begin
    if ADOTable1.Fields.Fields[0].AsInteger = index then
      adotable1.Delete;
    adotable1.Next;
  end;
end;