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.