sql - update-befehl - zur Lauzeit

[markon]

hallo.
beschäftige mich mit "update"

Delphi-Quellcode:

var i:byte;
begin
  i:=5;
 DM_Tabelle.adoquery1.sql.Text:= 'update tabelle1 set TorDiff = (:i) where TorDiff is NULL';
 DM_Tabelle.adoquery1.ExecSQL;
end;

die spalte TorDiff soll mit dem BeispielsWert i gefüllt werden. Später soll zur Laufzeit statt i ein berechneter Wert stehen.

es kommt keine fehlermeldung wenn ich den befehl ausführe. aber es wird auch nix gemacht. die spalte ist danach genau so leer wie vorher.

wer kann mir helfen?

[OLLI_T]

HY Du!

Probiers mal damit:

DM_Tabelle.adoquery1.sql.Text:= Format('update tabelle1 set TorDiff = %d where TorDiff is NULL',[i]);

Gruss

OLLI

[st2000]

Müsstest Du da nicht mit den Params von TAdoQuery arbeiten ? Einfach so in den Text reinschreiben, hilft der Komponente ja noch nicht dabei, zwischen der Variablen i und dem reinen Stringbestandteil '...(:i)...' zu unterscheiden. Wenn Dein Feld TorDiff ein Textfeld ist, müsste Du es ja in Quotes stecken '...'(:i)'...'; dann hättest Du aber nicht den WERT i=5 drin, sondern wirklich (:i).
In der OH müsste die Arbeit mit Parametern (Params) beschrieben sein. :spin:

Gruss, ST2000

[hEiHaChI]

Moin,

wie wärs mit:

Delphi-Quellcode:

DM_Tabelle.adoquery1.sql.Text:= 'update tabelle1 set TorDiff = '+inttostr(i)+' where TorDiff is NULL';

[markon]

@ OLLI_T
danke für deine schnelle hilfe. funktioniert!

Delphi-Quellcode:

DM_Tabelle.adoquery1.sql.Text:= 
  Format('update tabelle1 set TorDiff = %d where TorDiff is NULL',[i]);

diese schreibweise ist mir völlig unklar :gruebel:
was bewirkt z.B. diese %d ??
das mit dem [i] leuchtet mir ja noch ein..

[markon]

@ hEiHaChI

danke für deine lösung. diese verstehe ich auf anhieb und funktionieren tut sie auch.
thx :thuimb:

[InSys]

Man könnte das so machen , ist vorallem bei vielen Feldern übersichtlicher

Delphi-Quellcode:

  With AdsQuery2 do Begin
   Try
    close;Sql.Clear;
    Sql.Add('Update Dict_43000 set Umschreibung= :P0 , P = :P1 Where RowID = '+ZeileVar  );
    Params[0].Value:=EditDlg.Memo1.Text;
    Params[1].Value:=PVar;
    execsql;
   Except

   end;
  end;

[edit=Christian Seehase]BB-Codes aktiviert. Bitte das Profil mal dahingehend überprüfen. Danke. Mfg, Christian Seehase[/edit]