SQL: Update-Befehl löscht Datensatz?

[hoika]

Hallo,

sicher dass du nicht irgendwo noch nen Insert drinstehen hast.
Packe deinen Update-Befehl mal auf einen Testbutton.

Ansonsten hilft vielleicht mal ne Reorganisation (Umstruktieren + Komprimieren)
oder ne andere Datenbank


Heiko

[FBrust]

Hallo Heiko,

ich hab den Update-Befehl bereits auf einem eigenen Button und wenn ich mir nach dem Befehl den Inhalt des Felds "ID" in einem Label anzeigen lasse, wird sie um eins erhöht.

Aber eine andere Datenbank ist ja das Ziel der ganzen Aktion, vorher war alles über datensensitive Komponenten angesteuert, die sollen nun weg.

Gruß
Frank

[hoika]

Hallo,

du nimmst hoffentlich nicht lblID als Label,
das hast du ja schon im Update-Query benutzt.

Zeigt denn auch DBD an, das ein neuer Datensatz drinsteht ?.

Du machst irgendwas verkehrt.

Ist vielleicht noch ein TTable auf der gleichen Tabelle offen ?.
Ein Table.Edit auf dem letzten Datensatz erzeugt ein Append.
Vielleicht wird das unbewusst aufgerufen,
über deine datensensitiven Dingens.

Mach mal nen eigenes Form, wo nur das TQuery drinsteht
und dort das Update.


Heiko

[FBrust]

Hmm,

komisch kommts mir auch vor, ich werd noch mal alles durchgehen, evtl. ist ja doch noch ein TTable offen..

Gruß
Frank

[FBrust]

Hallo,

die Werte werden zwar korrekt abgespeichert, aber die ID wird immernoch um eins erhöht.

Das mit dem Label funktioniert durchaus, weil der ExecSQL-Befehl, der die ID (leider) ändert, erst nach dem Zusammenstellen des SQL-Strings erfolgt. Im Formular gibt es keine datensensitiven Komponenten mehr, das einzige TTable-Element, das auf diese Tabelle verweist, ist nicht aktiv.

Beispiel:

Delphi-Quellcode:

      if dmGeneral.tblSD_Cust.Active then
        dmGeneral.tblSD_Cust.Close;
      with dmQueries.qryUpdate do begin
        SQL.Text := 'UPDATE SD_CUST SET ' +
                    'STRSHORTNAME = ' + QuotedStr(edtShortName.Text)  + ', ' +
                    'STRNAME1 = '     + QuotedStr(edtName1.Text)      + '  ' +
                    'WHERE ID = ' + lblID.Caption + ';';
        try
          showmessage(SQL.Text);
          ExecSQL;
        except
          On E:Exception do begin
            strMsg := 'Fehler bei Aktualisieren Datensatz, Meldung: ' + E.Message;
            Beep;
            MessageDlg(strMsg, mtError, [mbOK], 0);
            Exit;
          end;
        end;
      end;

Wenn die aktuelle Datensatz-ID z. B. 122 ist, zeigt der Showmessage-Befehl "...WHERE ID = 122;", was ja korrekt ist.
Wenn ich nach dem ExecSQL in die Tabelle schaue, steht im Feld ID des gleichen Datensatzes (es wird kein neuer angefügt) eine 123 drin....und ich habe keine Ahnung, wieso

Edit: Hab jetzt mal ein kleines Testprojekt angelegt, dass genau das gleiche tut und siehe da, das Feld "ID" wird nicht verändert, also muss noch irgendwo im Programm der Wurm sein, aber wenn ich mit F7 durchgehe, kommt nach dem ExecSQL direkt die nächste Anweisung, aber da ist der Wert schon verändert...



Gruß
Frank

[FBrust]

Hallo,

ich bin jetzt einen Schritt weiter: Das Feld "strShortname" ist ein Indexfeld. Sobald dieses im Update-Befehl aktualisiert wird, wird der Zähler von ID um eins erhöht (auch wenn sich der Inhalt nicht geändert hat). Dies konnte ich auch im Testprojekt nachvollziehen.

Kann ich das irgendwie umgehen oder abschalten?

Gruß
Frank