SQL Query sequential bearbeiten

[Alliya]

Also habe folgendes Problem.
Ich arbeite mit Delphi 7 Pro und mit MySQLDAC.

Nach dem Import einer Tabelle in MySQL werden die Sonderzeichen falsch dargestellt.
Jetzt will ich sie wieder durch die richtigen Sonderzeichen austauschen.

So sieht mein code aus:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  i: Integer;
begin
  with ProgressBar1 do
  begin
    Min := 0;
    Max := MySQLquery1.RecordCount;
    MySQLquery1.First;
    for i := Min to Max do
    begin
      MySQLQuery1.Edit;
      MySQLQuery1Name.Value := StringReplace(MySQLQuery1Name.Value, '³' , 'ü',[rfIgnoreCase]);
      Position := i;
      MySQLquery1.Next;
    end;
  end;
end;

Wenn ich das bearbeiten des Datensatzes weg lasse, geht er die ganzen Datensätze der Query durch.
Sobald ich einen bearbeite, scheint er immer wieder beim ersten anzufangen, so komm ich nie weiter als bis zum zweiten Datensatz.

Weiß jemand Rat?

[Gollum]

Hallo,

Delphi-Quellcode:

    begin
      MySQLQuery1.Edit;
      MySQLQuery1Name.Value := StringReplace(MySQLQuery1Name.Value, '³' , 'ü',[rfIgnoreCase]);
      MySQLQuery1.Post; // <-- Änderung in DB schreiben
      Position := i;
      MySQLquery1.Next;
    end;

Was ich aber nicht verstehe ist, dass Du die Änderungen nicht mit einer Query machst. Etwa in der Form:

Code:

UPDATE Tabelle SET Feld=NeuerEintrag

Durch die Anweisung werden alle Felder auf einmal aktualisiert und Du sparst Dir die Schleife.

[Robert_G]

Herzlich willkommen hier in der Delphi-PRAXIS

Das ist eigentlich ganz einfach...
SQL:

SQL-Code:

Update DeineTabelle t
Set    t.DeinFeld = Replace(t.DeinFeld , :i_SearchStr, :i_ReplStr)

in Delphi:

Delphi-Quellcode:

With Query Do
Begin
  SQL.Text :=
    'Update DeineTabelle t' + #10 +
    'Set    t.DeinFeld = Replace(t.DeinFeld , :i_SearchStr, :i_ReplStr)';
  // Parameterzuweisung
  With Parameters Do
    ParamByName('i_SearchStr').Value := ABC;
    ParamByName('i_ReplStr').Value   := XYZ;
  End;
  // Ausführen
  ExecSQL;
End;

Eventuell musst du noch ein Query.Prepare o.ä. ausführen, bevor du die Parameterwerte übergeben kannst.

[Alliya]

Ahh, wirklich ganz einfach - wenn man gesagt bekommt wies geht
Danke ihr beiden
Hab Roberts SQL Lösung genommen und hat auch geklappt. Wußte nicht das man mit SQL auch einzelne Zeichen in einem String verändern kann, und hatte auch nix gefunden. Deshalb hatte ich zu der Delphi Lösung gegriffen.