Probleme mit .edit und .post auf eine mySQL Tabelle

**mapolat**

Habe Probleme mit TTabel.Post. Beim ausführen des "Post" Befehls auf eine mySQL Tabelle (mit und ohne ZEOS 6.5.1 Komponente) wird die Felhlermeldung : "Tabelle weder im Einfüge- noch Editier- Modus!". Komme einfach nicht mehr weiter und brauche dringend Hilfe. (evtl krz. Beschreibung welche Befehle man zum editieren auf jeden Fall benutzen müsste (.edit, .commit, .update, .updateRecords?????)

Ich habe zwar gefunden wo genau dieses Problem verursacht wird, weiss aber immer noch nicht warum und wie ich es beheben könnte.

Das formular hat 3 tabellen die miteinander in der Tabellen-Eigenschaften über Master-Detail verknüpft sind. Tabelle1 ist Master Tabelle vom Tabelle2. Tabelle3 ist wiederum die Detail-Tabelle vom Tabelle2.

Nun zum besseren Fehlerbeschreibung : Tabelle1, Tabelle2, Tabelle3 sind alle active, also Status = Open. Wird es im Tabelle 3 eine Änderung vorgenommen so wird im "After.Post" eigenschaft diese änderung an Tabelle2 übergeben wo dann der Fahler passiert.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TFrm_01.BTN_1Click(Sender: TObject);  

begin  

  Tabelle_3.Edit;  

  Tabelle_3.FieldByName('Zahl_1').Value  := 3;  

  Tabelle_3.FieldByName('Zahl_2').Value  := 5;  

  Tabelle_3.FieldByName('Zahl_3').Value  := 11;  

  if MessageBox(0, 'Möchten Sie die Änderungen wirklich übernehmen?', 'WARNUNG', MB_YESNO) = IDYES then  

    Tabelle_3.Post  

  else Tabelle_3.Cancel;  

end;  

procedure TFrm_01.Tabelle_3AfterPost(DataSet: TDataSet);  

var Summe_1, Summe_2, Summe_3 : integer;  

begin  

  Summe_1 := 0;  

  Summe_2 := 0;  

  Summe_3 := 0;  

  with Tabelle_3 do  

  begin  

    first;  

    while not EOF do  

    begin  

      Summe_1 := Summe_1 + FieldByName('Zahl_1').AsInteger;  

      Summe_2 := Summe_2 + FieldByName('Zahl_2').AsInteger;  

      Summe_3 := Summe_3 + FieldByName('Zahl_3').AsInteger;  

      next;  

    end;  

  end;  

  Tabelle_2.Edit;  

// Tabelle 2 ist hier in Tabelle_2.State = dsEdit - soweit noch alles OK.  

  Tabelle_2.FieldByName('DetailSumme_1').asVariant := Summe_1;  

// alles noch im grünen Bereich. 1.Wertzuweisung wird noch übernommen  

// Hier (nach dem 1. Wertzuweisung) aber passiert der Fehler..  

// Hier springt die Tabelle 2 unerwünscht und für mich unerklärlich auf Tabelle_2.State = dsBrowse  

  Tabelle_2.FieldByName('DetailSumme_2').asVariant := Summe_2;  

  Tabelle_2.FieldByName('DetailSumme_3').asVariant := Summe_3;  

// diese beiden Wertzuweisungen werden nicht mehr übernommen da Tabelle_3 im dsBrowse Status ist.  

  Tabelle_2.Post;  

// während der post ausführung kommt dann die Fehlermeldung "Tabelle_2 weder in EDIT- noch in INSERT- Modus  !"

end;

Probleme mit .edit und .post auf eine mySQL Tabelle

Probleme mit .edit und .post auf eine mySQL Tabelle

Forumregeln