Datensatz in Tabelle löschen

[The_Tremendous]

HI.

Bin in meinem Prog so weit gekommen, dass ich datensätze in ne Tabelle speichern kann.

Delphi-Quellcode:

procedure TfrmFahrzeugeingabe.bitbtnSpeichernClick(Sender: TObject);
begin
  tblFahrzeuge.Active := True;
  with tblFahrzeuge do
  begin
    Append;
    Insert;
    FieldByName('Kennzeichen').AsString := editKennzeichen.Text;
    FieldByName('Hersteller').AsString := editHersteller.Text;
    FieldByName('Typenbezeichnung').AsString := editTypenbezeichnung.Text;
    FieldByName('Fahrzeugtyp').AsString := comboFahrzeugtyp.Text;
    FieldByName('Kraftstoffart').AsString := comboKraftstoffart.Text;
    FieldByName('Anfangskilometer').AsFloat := StrToFloat(editAnfangskilometer.Text);
    Post;
    Refresh;
  end;
end;

Nu hab ich das Problem, das ich keine Ahnung habe, wie ich die dann wieder löschen kann, und zwar so, das der ausgesuchte Datensatz gelöscht wird.


Die ingabe der Daten passiert über edit Felder auf einer Form. Später sol der Nutzer dann auf der Form navigieren können und das Jeweilige Tupel steht in den Edits. Dieses Tupel soll dann gelöscht werden.

Wäre cool, wenn mir einerhelfen könnte.


the_tremendous

[Albi]

Hallo,

Einfach den jeweiligen Datensatz aufrufen. Die Query zeigt auf den entsprechenden Datensatz und dann mit Query1.Delete den entsprechenden DS löschen

[The_Tremendous]

Und wie soll ich das machen?? Hab halt noch net viel mit Programmierung zu tun gehabt, sorry!!



The-Tremendous

[Albi]

Du kannst Dir die Daten in die Edit schreiben und anschauen

Code:

 With Table1 Do
Begin
  Next;
  Edit1.Text:= FieldByName('Feld1').AsString
  ...
end;

Und mit

Code:

Table1.Delete

kannst Du den aktuellen DS löschen. D.h. du löscht den aktuellen DS der "markiert" ist, also der, der gerade in den Edits angezeigt wird.

[Jelly]

Zitat:

Zitat von The_Tremendous

Delphi-Quellcode:

  begin
    Append;
    Insert;
    ...
  end;

Du brauchst nich nach dem Append ein Insert aufrufen. Das ist im Grunde dasselbe... Insert ist nur schneller, da nicht bis zum Schluss der Tabelle geblättert werden muss.

Zitat:

Zitat von The_Tremendous

Nu hab ich das Problem, das ich keine Ahnung habe, wie ich die dann wieder löschen kann, und zwar so, das der ausgesuchte Datensatz gelöscht wird.

Ein bischen Eigeninitiative in der OH ist doch wohl nicht zuviel verlangt. Also auf Table.Delete könnt man auch ohne Delphi Erfahrung kommen. :stupid:

[The_Tremendous]

Danke, das hört sich gut an.


Müsste nur noch wissen, wie ich ein Datenfeld der Tabelle in ein Edit einlesen kann, bzw. in ein dbedit, wenn ein normales edit nicht gehn sollte.

The_Tremendous

[Albi]

Schau mal 2 Thread höher, da habe ich geschrieben.

Edit1 = Das Edit-Feld auf deiner Form
FieldByName('Feld').asString = das Feld der DB welches in das Edit eingefügt werden soll :dancer:

[The_Tremendous]

Jep, Jetz funktioniert es.


Thx!!!!


The_Tremendous