hab ein problem mit dem update befehl der befehl soll von einem memofeld eingelesen werden

zusammenfalten · markieren

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
                  Query.Close;
             end;
        end
     else
end;

normalerwiese müsste er mir das updaten oder ??
ein problem hat er mit dem with DataModul1 do

[edit]
Operation oder semikolon fehlt
das ist der fehler

Und wiedermal fehlt ein Semikolon!

-> mobemerkung.Lines.Append(Bemerk);

Nachtrag:
Auch hinter dem else würde ein Semikolon hingehören, aber das geht weil vor end keines sein "muß". Du solltest dich wirklich erstmal mit der Syntax vertraut machen. Dazu gibt es normalerweise auf der Delphi-CD sehr gute Sprachmanuals als PDF!

Noch'n Nachtrag:
Als Tip für die Zukunft. Die delphi-Tags erlauben leider keine Formatierung mit BBCodes. Stattdessen solltest du für solche Fälle das pre/code-Tag verwenden! Beispiel:

markieren

Code:

var
   Bemerk: string;
begin
     if InputQuery('Bemerkung ändern','Bemerkung:',Bemerk) then
     begin
        mobemerkung.Lines.Clear;
        mobemerkung.Lines.Append(Bemerk)
        [color=red][b]with DataModule1 do[/b][/color]
        begin
...

Zitat von cell:

zusammenfalten · markieren

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.

des gibts ja ned bin i wirklich so blind

thx

Mach mal ne Pause und geh an die frische Luft. Das hilft und spart dir mit Sicherheit Zeit.

die form wird zwar gestartetaber beim ausfürhren des sql befehls kommt ein fehler
ungültiger feldname
das ist der sql befehl

zusammenfalten · markieren

Delphi-Quellcode:

function updatesql (tabellenname, feldname, aenderung, whereanweisung :string) :string;
//------------------------------------------------------------------------------
// UPDATE Funktion
//------------------------------------------------------------------------------
var
   ant: string;
begin
     ant :='UPDATE ' + tabellenname;
     ant :=ant + ' SET ' + feldname;
     ant :=ant + '=' + aenderung;
     if whereanweisung <> '' then
        ant :=ant + ' WHERE ' + whereanweisung;
     result:= ant;
end;

... das ist jetzt SQL ... hingegen die erste Frage nicht.

In diesem Fall wirst du wohl den Feldnamen überprüfen müssen (case-sensitive?!). Jedenfalls sehe ich nix, was an der SQL-Syntax syntaktisch falsch wäre.

Wer weiß schon, was in WhereAnweisung drin steht...

markieren

Delphi-Quellcode:

ant := 'UPDATE ' + tabellenname;
ant := ant + ' SET ' + feldname;
ant := ant + '=' + QuotedStr(aenderung); // das hilft bei char feldern
if whereanweisung <> '' then
  ant := ant + ' WHERE ' + whereanweisung;
result := ant;

Grüße vom marabu

Zitat von marabu:

Wer weiß schon, was in WhereAnweisung drin steht...

Ich ging davon aus:Query.SQL.Text:= updatesql('Friktionstest','Bemerkung',Bemerk,''); ... der marabu ist übrigens ein ganz sympathischer "Vogel"