MyBase: Datenlöschen

[Kralle]

Moin,

entweder sehe ich den Wald vor lauter Bäumen nicht oder bin total auf dem Holzweg.

Gebene ist folgender Code:

Code:

begin
   BtDatensatzLoeschen.Caption:=IntToStr(ClientDataSet1.RecordCount); // Anzahl der Einträge in der Datenbank
   for I := 1 to ClientDataSet1.RecordCount do
     Begin
       If ClientDataSet1.Locate('Codenummer',lbledt1.text,[]) then  // Datensatz finden
         begin
          ClientDataSet1.edit;  // Datenbank zum Bearbeiten öffnen
           ClientDataSet1.delete;  // Datensatz löschen
           ClientDataSet1.Post;  // Datenbank aktualisieren
         end;
     End;
end;

procedure TForm1.BtStatusAendernClick(Sender: TObject);
begin
   If ClientDataSet1.Locate('ID','3',[]) then  // Datensatz finden
     if ClientDataSet1['Status'] ='0' then
       begin
         ClientDataSet1.edit;  // Datenbank zum Bearbeiten öffnen
         ClientDataSet1['Status']:='1';  // Inhalt ändern
         ClientDataSet1.Post;  // Datenbank aktualisieren
       end
     else
     begin
         ClientDataSet1.edit;  // Datenbank zum Bearbeiten öffnen
         ClientDataSet1['Status']:='0';  // Inhalt ändern
         ClientDataSet1.Post;  // Datenbank aktualisieren
     end;
 end;

Der untere Teil funktioniert wie gewünscht, aber der obere Teil führt zur folgenden Fehlermeldung:

Zitat:

Erste Gelegenheit für Exception bei $00007FFA23B25BF8. Exception-Klasse EDatabaseError mit Meldung 'ClientDataSet1: Datenmenge weder im Editier- noch im Einfügemodus'. Prozess mybase_test.exe (404)

Aber, ich habe doch ein

Code:

ClientDataSet1.edit;  // Datenbank zum Bearbeiten öffnen

im Code.
Was mache ich falsch??

Gruß Heiko

[Jasocul]

Benutze zukünftig den Debugger, damit du siehst, wo der Fehler passiert. Vielleicht wärest du dann selbst auf die richtige Idee gekommen.

Der Fehler dürfte durch dein "ClientDataSet1.Post" entstehen.

Das ClientDataSet1.Edit ist völlig überflüssig. Du setzt damit den Datensatz, den du löschen willst in den Edit-Modus. Danach löscht du diesen dann. Ich wäre nicht mal auf die Idee gekommen, das so zu machen und hätte eher vermutet, dass dort eine Exception auftritt.

Und für ClientDataSet1.Delete benötigst du kein ClientDataSet1.Post. Das Post ist nur für neue Datensätze oder Datensätze, die geändert werden.

[Kralle]

Hallo Jasocul,

Zitat von Jasocul:

Benutze zukünftig den Debugger, damit du siehst, wo der Fehler passiert. Vielleicht wärest du dann selbst auf die richtige Idee gekommen.

Als ich versucht habe mittels Breakpoint und F7 durch den Quellcode zu laufen um zu sehen wo der Fehler genau auftritt, fuktionierte das natürlich mal wieder nicht.

Zitat von Jasocul:

Der Fehler dürfte durch dein "ClientDataSet1.Post" entstehen.

Jupp, das war es.

Zitat von Jasocul:

Das ClientDataSet1.Edit ist völlig überflüssig. Du setzt damit den Datensatz, den du löschen willst in den Edit-Modus. Danach löscht du diesen dann. Ich wäre nicht mal auf die Idee gekommen, das so zu machen und hätte eher vermutet, dass dort eine Exception auftritt.

Da ein Schrittweises abarbeiten mal wieder nicht funktioniert hat und es in der Fehlermeldung hies:

Zitat:

Datenmenge weder im Editier- noch im Einfügemodus'

dachte ich mir:"Da haste wohl das "Edit" vergessen."

Zitat von Jasocul:

Und für ClientDataSet1.Delete benötigst du kein ClientDataSet1.Post. Das Post ist nur für neue Datensätze oder Datensätze, die geändert werden.

okay, das habe ich mir jetzt notiert.

Danke.

Gruß HEiko

[Jumpy]

Ich verstehe nur nicht ganz, warum du für das Löschen eines Datensatzes in einer Schleife durch die ganze Datenmenge läufst? Dafür hast du doch Locate?

[Kralle]

Moin,

Zitat von Jumpy:

Ich verstehe nur nicht ganz, warum du für das Löschen eines Datensatzes in einer Schleife durch die ganze Datenmenge läufst? Dafür hast du doch Locate?

Ich will aber nicht nur einen Datensatz löschen sondern alle mit einem bestimmten Wert in "Codenummer".

Gruß HEiko

[mkinzler]

Trotzdem kannst Du dich dann auf die Datensätze, die dem Suchmuster entsprechen, beschränken (Z.B. per Locate)

[Jumpy]

ok. Dann würde ich aber mit einer while Schleife arbeiten:

while ClientDataset1.Locate(...) do
ClientDataset1.Delete

oder so.

Oder natürlich ein entsprechendes SQL-Statement absetzen (um alle entsprehcende Datensätze auf einmal zu löschen) und danach das ClientDataset aktualisieren.

[DeddyH]

Das würde ich vielleicht eher so angehen (Pseudo-Code):

Delphi-Quellcode:

Dataset.First;
while not Dataset.EOF do
  begin
    if Dataset.FieldByName['Codenummer'] = DeinSuchbegriff then
      Dataset.Delete
    else
      Dataset.Next;
  end;

SQL o.ä. scheidet bei MyBase ja leider aus.

[Jumpy]

Zitat von DeddyH:

SQL o.ä. scheidet bei MyBase ja leider aus.

Das wußte ich nicht und nehme meinen obigen Vorschlag wieder zurück.

[Kralle]

Danke, für Eure Hilfe.

Die "Schleife " habe ich jetzt so gelöst:

Code:

with  ClientDataSet1 do
   begin
     First;
     while not EOF do
       begin
         if FieldByName('Codenummer').AsString = lbledt1.text then
           Delete
         else
           Next;
       end;
   end;

Oder spricht was gehen "with"?

Gruß Heiko