Probleme beim Speichern in eine Tabelle

[Luckner]

Hallo,
habe folgendes Problem:

Delphi-Quellcode:

    begin
      DatamodulePlanung.IBDataSetAuftrag.Close;
      DatamodulePlanung.IBDataSetAuftrag.SelectSQL.Clear;
      DatamodulePlanung.IBDataSetAuftrag.SelectSQL.Add('select * FROM AUFTRAG where ID = ' + IntToStr(id_Auftrag));
      DatamodulePlanung.IBDataSetAuftrag.Open;
      DatamodulePlanung.IBDataSetAuftrag.Edit;

      DatamodulePlanung.IBDataSetAuftragPRODSTATUS.AsString := ComboBoxStatus.Text;
      DatamodulePlanung.IBDataSetAuftragSTATUSDATUM.Value := now;
      DatamodulePlanung.IBDataSetAuftragSTATUSANWENDER.AsString := FormAnmeldung.EditNuname.Text;

      DatamodulePlanung.IBDataSetAuftrag.Post;
      if DataModulePlanung.IBTransactionPlanung.InTransaction then DataModulePlanung.IBTransactionPlanung.Commit;


      DatamodulePlanung.IBDataSetPlanung.Close;
      DatamodulePlanung.IBDataSetPlanung.SelectSQL.Clear;
      DatamodulePlanung.IBDataSetPlanung.SelectSQL.Add('select * FROM PLANUNG where ID_AUFTRAG = ' + IntToStr(id_Planung));
      DatamodulePlanung.IBDataSetPlanung.Open;
      DatamodulePlanung.IBDataSetPlanung.Edit;

      DatamodulePlanung.IBDataSetPlanungSTATUS.AsString := ComboBoxStatus.Text;
      DatamodulePlanung.IBDataSetPlanungSTATUSDATUM.Value := now;
      DatamodulePlanung.IBDataSetPlanungSTATUSNAME.AsString := FormAnmeldung.EditNuname.Text;

      DatamodulePlanung.IBDataSetPlanung.Post;
      if DataModulePlanung.IBTransactionPlanung.InTransaction then DataModulePlanung.IBTransactionPlanung.Commit;

In die Tabelle "Auftrag" werden Änderungen eingetragen aber in die Tabelle "Planung" nicht.

Gruß, Luckner

[Uwe Raabe]

Bist du sicher, daß das hier richtig ist?

Zitat:

'select * FROM PLANUNG where ID_AUFTRAG = ' + IntToStr(id_Planung)

[Delphi.Narium]

Gibt es eine Fehlermeldung?

Wenn ja, welche?

Wenn es keine Fehlermeldung gibt und der gezeigte Quelltext in keiner Fehlerbehandlung gekapselt ist, dann wird eventuell ein anderer Datensatz geändert, als erwartet (siehe Uwe Raabes Hinweis).

[Luckner]

Select-Anweisung ist korrekt. Habe die überprüft. Es gibt auch keinen Datensatz in der Tabelle "Planung", der diesen Eintrag trägt. Es gibt auch keine Fehlermeldung.

[Uwe Raabe]

Zitat von Luckner:

Es gibt auch keinen Datensatz in der Tabelle "Planung", der diesen Eintrag trägt.

Sollte es in dem Fall dann nicht DatamodulePlanung.IBDataSetPlanung.Append; anstatt DatamodulePlanung.IBDataSetPlanung.Edit; heißen?

[himitsu]

Zitat von Uwe Raabe:

Zitat von Luckner:

Es gibt auch keinen Datensatz in der Tabelle "Planung", der diesen Eintrag trägt.

Sollte es in dem Fall dann nicht DatamodulePlanung.IBDataSetPlanung.Append; anstatt DatamodulePlanung.IBDataSetPlanung.Edit; heißen?

Edit macht ein Insert (oder Append, aber egal, da hier das Gleiche) wenn noch "garkein" Datensatz vorhanden ist,

aber ja ...

[juergen]

Hallo,

ich würde weiterhin empfehlen mit SQL-Parametern zu arbeiten.
In etwas so:

Delphi-Quellcode:

with DatamodulePlanung.IBDataSetPlanung.Params do begin
  Clear;
   with Add do begin
    Name := 'id_Planung';
    DataType := ftInteger;
    Size := 0;
    ParamType := ptInput;
  end;
end;

DatamodulePlanung.IBDataSetPlanung.SelectSQL.Add('select * FROM PLANUNG where ID_AUFTRAG = :id_Planung');

Als ich noch keine Parameter verwendet hatte, gab es in meinem Fall auch falsche Werte eines zusammengebastelten SQL-Statement in einer Schleife.

[Delphi.Narium]

Wenn es in beiden Fällen keine Fehlermeldung gibt, dann muss es auch in beiden Fällen einen entsprechenden Datensatz geben. Für gewöhnlich scheitert ein Edit auf eine leere Datenmenge und ein Post darauf erst recht.

Lass Dir bitte in beiden Fällen mal nach dem .Open, aber noch vor dem .Edit .RecNo und .RecordCount ausgeben.

Sollte in beiden Fällen jeweils 1 sein, ansonsten bekommst Du bei den Abfragen andere Ergebnisse, als Du erwartest und änderst in den Ergebnismengen jeweils den zufällig ersten Datensatz.