UPDATE befehl im SQL

[Jasocul]

Zitat von cell:

Delphi-Quellcode:

var
   Bemerk: string;
begin
     if InputQuery('Bemerkung ändern','Bemerkung:',Bemerk) then
        begin
        mobemerkung.Lines.Clear;
        mobemerkung.Lines.Append(Bemerk)
        [i]with DataModule1 do[/i]
             begin
                  Query.close;
                  Query.SQL.Clear;
                  Query.SQL.Text:= updatesql('Friktionstest','Bemerkung',Bemerk,'');
                  Query.execsql;
                  while not Query.Eof do // Blödsinn
                  Query.Close; // Blödsinn
             end;
        end
     else
end;

ein problem hat er mit dem with DataModul1 do

Welches Problem hat er mit DataModule1?
Die Zeilen mit "Blödsinn" brauchst du nicht, da du ein ExecSQL machst. Danach ist Query auf jeden Fall geschlossen.
Und ob dein Statement richtig ausgeführt wird, hängt davon ab, wie das Funktionsergebnis von "updatesql" aussieht.

Falls du dann noch Transaktionskontrolle machst, fehlt auch noch ein Commit. Aber davon gehe ich mal nicht aus.

//EDIT: Habe dein Edit erst jetzt gesehen. Der Teil hat sich also erledigt.