SQL: Update-Befehl löscht Datensatz?

[FBrust]

Hallo,

ich möchte in meinem Programm per SQL-Befehl eine Tabelle aktualisieren, habe aber das Problem, dass der Update-Befehl den zu ändernden Datensatz löscht, sobald ein Memo-Feld bearbeitet werden soll.

Zum Verständnis:

Dieser Befehl löscht den Datensatz kommentarlos aus der Tabelle:

Delphi-Quellcode:

        SQL.Text := 'UPDATE SD_CUST SET ' +
                    'STRSHORTNAME = ' + QuotedStr(edtShortName.Text)  + ', ' +
                    'STRNAME1 = '     + QuotedStr(edtName1.Text)      + ', ' +
                    'STRNAME2 = '     + QuotedStr(edtName2.Text)      + ', ' +
                    'STRNAME3 = '     + QuotedStr(edtName3.Text)      + ', ' +
                    'STRSTREET = '    + QuotedStr(edtStreet.Text)     + ', ' +
                    'STRPOSTCODE = '  + QuotedStr(edtPostcode.Text)   + ', ' +
                    'STRCITY = '      + QuotedStr(edtCity.Text)       + ', ' +
                    'STRPHONE1 = '    + QuotedStr(edtPhone1.Text)     + ', ' +
                    'STRPHONE2 = '    + QuotedStr(edtPhone2.Text)     + ', ' +
                    'STRFAX = '       + QuotedStr(edtFax.Text)        + ', ' +
                    'MMREMARKS = '    + QuotedStr(mRemarks.Text)      + ' ' + 
'WHERE ID = ' + lblID.Caption + ';';

Wenn ich die letzte Zeile mit dem Feld "MMREMARKS" (das ist das Memo-Feld) rausnehme, funktionierts:

Delphi-Quellcode:

        SQL.Text := 'UPDATE SD_CUST SET ' +
                    'STRSHORTNAME = ' + QuotedStr(edtShortName.Text)  + ', ' +
                    'STRNAME1 = '     + QuotedStr(edtName1.Text)      + ', ' +
                    'STRNAME2 = '     + QuotedStr(edtName2.Text)      + ', ' +
                    'STRNAME3 = '     + QuotedStr(edtName3.Text)      + ', ' +
                    'STRSTREET = '    + QuotedStr(edtStreet.Text)     + ', ' +
                    'STRPOSTCODE = '  + QuotedStr(edtPostcode.Text)   + ', ' +
                    'STRCITY = '      + QuotedStr(edtCity.Text)       + ', ' +
                    'STRPHONE1 = '    + QuotedStr(edtPhone1.Text)     + ', ' +
                    'STRPHONE2 = '    + QuotedStr(edtPhone2.Text)     + ', ' +
                    'STRFAX = '       + QuotedStr(edtFax.Text)        + ', ' +
'WHERE ID = ' + lblID.Caption + ';';

Wenn ich nur das Memofeld update, funktionierts aber auch

Delphi-Quellcode:

        SQL.Text := 'UPDATE SD_CUST SET ' +
                            'MMREMARKS = '    + QuotedStr(mRemarks.Text)      + ' ' + 
'WHERE ID = ' + lblID.Caption + ';';

Muss ich bei einem Update zwei Befehle absetzen, einmal für das Memo-Feld und einmal für den Rest?

Vielleicht hat jemand einen Tip.


Gruß
Frank

[mkinzler]

Versuchs mal mit Parametern

[FBrust]

Hallo,

die Abfrage hat allerdings variable SQL-Befehle, so dass ich keine Parameter hinterlegen kann.

Gruß
Frank

[mkinzler]

Auch dann kann man Parameter verwenden. Ist halt ein Bisschen mehr Aufwand. Wäre m.E. aber ein Test wert. (Vielleicht nur für das Memofeld)

[hoika]

Hallo,

ich hatte damals die Memos in Pdx über TTable aktualisiert.
Aber du kannst mit Parametern ja mal

ParamByName(theFieldName).AsBlob:= theText; probieren.


Heiko

[FBrust]

Hallo,

natürlich kann ich zum Updaten der BDE-Tabellen auch fest definierte Abfragen (mit Parametern) nehmen.

Hintergrund der ganzen Geschichte ist jedoch, dass das ganze Programm auf eine andere Datenbank umgestellt werden soll (wahrscheinlich Firebird). Da die Tabellen bisher per Edit und Post aktualisiert werden und dies nachher nicht mehr funktionieren wird, war meine Idee, die bestehenden Tabellen über TQuery zu aktualisieren und den Befehl zur Laufzeit zu erstellen, so dass die Komponenten möglichst wenig fest definierte Eigenschaften haben und ich sie später einfacher austauschen kann.

Wenn ich jetzt für Insert- und Update-Aktionen wieder für jede Stammdatentabelle andere Abfragen (jeweils für Insert und Update) hinterlegen muss, wird die Umstellerei m. E. zu kompliziert.

Daher der Versuch, den SQL-Befehl zur Laufzeit zu erstellen und einer allgemeingültigen Abfrage zuzuweisen.

Aber anscheinend muss ich mir für Memo-Felder was gesondertes überlegen.


Gruß
Frank

Nachtrag: mKinzler, ich hab Deinen Beitrag erst jetzt gelesen, wie funktioniert das denn?

Noch ein Nachtrag: Ausserdem erklärt das nicht, warum der Befehl funktioniert, wenn das Memo-Feld alleine aktualisiert wird.

[mkinzler]

Zitat:

Da die Tabellen bisher per Edit und Post aktualisiert werden und dies nachher nicht mehr funktionieren wird,

Funktionieren wirds schon, davon ist aber abzuraten.

[Edit:

Zitat:

Nachtrag: mKinzler, ich hab Deinen Beitrag erst jetzt gelesen, wie funktioniert das denn?

Delphi-Quellcode:

SQL.Text := 'UPDATE SD_CUST SET ' +
                    'STRSHORTNAME = ' + QuotedStr(edtShortName.Text)  + ', ' +
                    'STRNAME1 = '     + QuotedStr(edtName1.Text)      + ', ' +
                    'STRNAME2 = '     + QuotedStr(edtName2.Text)      + ', ' +
                    'STRNAME3 = '     + QuotedStr(edtName3.Text)      + ', ' +
                    'STRSTREET = '    + QuotedStr(edtStreet.Text)     + ', ' +
                    'STRPOSTCODE = '  + QuotedStr(edtPostcode.Text)   + ', ' +
                    'STRCITY = '      + QuotedStr(edtCity.Text)       + ', ' +
                    'STRPHONE1 = '    + QuotedStr(edtPhone1.Text)     + ', ' +
                    'STRPHONE2 = '    + QuotedStr(edtPhone2.Text)     + ', ' +
                    'STRFAX = '       + QuotedStr(edtFax.Text)        + ', ' +
                    'MMREMARKS = :remarks WHERE ID = ' + lblID.Caption + ';';
ParamByName('remarks').asBlob := mRemarks.Text;

[FBrust]

Hallo,

danke für die Tips, werds ausprobieren.


Gruß
Frank

[FBrust]

So,

hab jetzt den Vorschlag von mkinzler mal umgesetzt, leider wird der zu aktualisierende Datensatz noch immer gelöscht , ich werd mal (nur um weiterarbeiten zu können) das Update für das Memofeld in einen eigenen Befehl legen, vielleicht hat noch jemand eine Idee...


Gruß
Frank

[FBrust]

So,

die Geschichte mit dem Update funktioniert nicht, aber aus einem anderen Grund:

Die Tabelle beinhaltet ein AutoIncrement-Feld namens ID, das tatsächlich bei jedem UPDATE-Befehl (!!) unverständlicherweise um eins hochgezählt wird. Das dieses Feld für die referenzielle Integrität wichtig ist, kann ich diesen Weg wohl vergessen .

Gruß
Frank