Sql Update (Fehler?)

[Masterof]

Hallo!

Ich habe folgende Update SQL Anweisung, aber leider bekomme ich immer einen Fehler, warum?

Hier die Befehle.

Delphi-Quellcode:

        NULL:=Tstringlist.Create;
        NULL.Add('');
        datum:= Strtodate(Periode.text);
        abfrage := 'update BEWEGST set KSTKTR = NULL where AKTPER = "01.02.2004"';

        lohn_daten.UDM.IBLohnUpdate.ModifySQL.Add(abfrage);
        lohn_daten.UDM.IBLohnQuery.Edit;
        lohn_daten.UDM.IBLohnQueryKSTKTR.Assign(NULL);
        lohn_daten.UDM.IBLohnQuery.Post;

        //  Zuweisung der Update-SQL

        lohn_daten.UDM.IBLohnTransaction.Commit;
        lohn_daten.UDM.IBLohnTransaction.StartTransaction;
        lohn_daten.UDM.IBLohnQuery.Open;

Danke!

MfG Master

[edit=r_kerber]Delphi-Tags eingefügt. Mfg, r_kerber[/edit]

[Robert_G]

Da ich mit IB keine Erfahrungen habe, kann ich nur raten...
Ich habe einfach mal kommentiert, was mir aufgefallen ist:

Delphi-Quellcode:

  // Wofür ist diese Stringlist gut?
  NULL := TStringList.Create;
  Try
    NULL.Add('');

    //  datum := Strtodate('dd');

    With Lohn_Daten.UDM Do
    Begin
      // Willst du hier mit jedem Aufruf "Abfrage" zu ModifySQL hinzufügen ?
      // So wird es jedesmal überschrieben...
      IBLohnUpdate.ModifySQL.Text :=
        'UPDATE BEWEGST' + #10 +
        'SET    KSTKTR = Null' + #10 +
        'WHERE  AKTPER = :i_Date';
      // Datumswerte in SQL Statements gehören immer (!!!) in einen Parameter
      // Es ist möglich, dass Server und Client andere Regionaleinstellugen haben
      // -> Fehler oder viel schlimmer Tag & Monat werden vertauscht, oder, oder, ...!
      IBLohnUpdate.Query[ukModify].Prepare;
      IBLohnUpdate.Query[ukModify].ParamByName('i_Date').DataType := ftDate;
      // Die einzige Funktion in Delphi für explizite String->Datum-Umwandlung,
      // die ich kenne ist EncodeDate
      // Du kannst dir ja eine Funktion "drumrumbauen", die anhand eines "." Tag, Monat & Jahr trennt
      IBLohnUpdate.Query[ukModify].ParamByName('i_Date').AsDate := EncodeDate(2004, 2, 1);

      IBLohnQuery.Edit;
      // Warum eine Stringlist?
      IBLohnQueryKSTKTR.Assign(NULL);
      IBLohnQuery.Post;

      // Zuweisung der Update-SQL

      IBLohnTransaction.Commit;
      IBLohnTransaction.StartTransaction;

      // Der Fehler kam wahrscheinlich durch das "Open"
      // "Open" darf nur bei einem Cursor angewendet werden, der eine Ergebnismenge liefert (ein SELECT-Statement)
      // DML (z.Bsp. UPDATE, INSERT,...) liefert keine Ergebnismenge (auch keine leere!)
      IBLohnQuery.ExecSQL;
    End;

  // "Null" muss auch wieder freigegeben werden...
  Finally
    FreeAndNil(Null);
  End;

[DelphiDeveloper]

Zitat:

NULL:=Tstringlist.Create;
NULL.Add('');

was willst du damit erreichen?

Zitat:

datum:= Strtodate(Periode.text);

mit datum machst du ja gar nichts!

Zitat:

abfrage := 'update BEWEGST set KSTKTR = NULL where AKTPER = "01.02.2004"';

es soll woll heißen
abfrage := 'update BEWEGST set KSTKTR = NULL where AKTPER = QuotedStr(datum);

Zitat:

lohn_daten.UDM.IBLohnUpdate.ModifySQL.Add(abfrage) ;

da koennte ja nochwas drin stehen besser ersst ein clear

Zitat:

lohn_daten.UDM.IBLohnQuery.Edit;
lohn_daten.UDM.IBLohnQueryKSTKTR.Assign(NULL);
lohn_daten.UDM.IBLohnQuery.Post;

versteh ich nicht!

für das updaten der daten reicht:

Delphi-Quellcode:

if IBLohnTransaction.InTransaction then
     IBLohnTransaction.Commit;
   IBLohnTransaction.StartTransaction;
   IBLohnQuery.Open;
   IBLohnUpdate.ExecSQL(ukModify);
   IBLohnTransaction.Commit;
   IBLohnQuery.Open;

[Hansa]

Jo, ich kann mich den Vorpostern nur anschließen 8) :

1. Quelltext aufräumen
2. Erklären, was das ganze überhaupt machen soll

[Masterof]

Hallo!!

Also, es kommt folgende Fehlermeldung, diese kommt immer, egal wie der Quellcode zum aktualisieren aussieht. So wie ich oben den Quellcode angegeben habe, funktioniert er ja auch einmal, aber ich muss ja ein 2. Mal in die DB schreiben, und erst bei diese 2. Anweisung kommt der Fehler. EIBClient Error Meldung: "Aktualisierung nicht erfolgreich"

MfG Master