Probleme bei MySQL INSERTS,UPDATE

[Berserker]

Hallo.

Ich arbeite mit der ZEOS-lIB Mysql Komponente, was aber nchts zur Sache tut, denn das Problem was ich habe tritt auch bei anderen Komponenten auf.

Wenn ich versuche Daten in die MySQL-Tabelle mit Query einzuschieben, sagt er mit immer MYSQL-ERROR near blablablah.

Das Problem ist, das ich in den Texten ' Drin habe. Bei PHP gibts es da den Befehl Addslashes.

Auszug aus dem PHP-MANUAL:

Zitat:

string addslashes ( string str)

Gibt einen String (Zeichenkette) zurück, in dem bestimmten Zeichen ein Backslash "\" voran gestellt wurde. Diese Funktion ist z.B. für Datenbankabfragen wichtig. Die behandelten Zeichen sind der einfache und der doppelte Anführungsstrich (' und "), der Rückstrich (\) selbst sowie NUL (das Null-Byte).

Diese Funktion habe ich bis jetzt bei Delphi nicht gefunden. Wie kann ich das so realisiere, das ich die TextDaten in die MySQL-DB hineinbekomme?

Mein Code sieht folgender Maßen aus:

Code:

qrMAIN.Sql.Text := 'INSERT INTO `shp_artikel` '+
                      '(`l_nummer`,`l_bez1`)'+
                      ' VALUES '+
                      '('''+txtNummer+''','''+txtBez1+''');';
   qrMain.ExecSql;

MfG, Ronny

[fiasko]

Delphi-Quellcode:

function EscapeStr(str: string): string;
var
  index: integer;
begin
  index:=1;
  while Pos('''',copy(str,index,length(str)))<>0 do
  begin
    index:=Pos('''',copy(str,index,length(str)))+index+1;
    str:=copy(str,1,index-3)+'\'''+copy(str,index-1,length(str));
  end;
  result:=str;
end;

Die Funktion ersetzt alle ' durch \'.

Thomas

[Berserker]

Super. Danke.

Das funktioniert ja Genial.

Jetzt Geht es.

MfG, Ronny

[Christian Seehase]

Moin Ronny,

dafür kannst Du auch die Funktion StringReplace benutzen.

  sLine := StringReplace(sLine,#39,'\'#39,[rfReplaceAll]); Das Zeichen ' hat den Code #39.

[fiasko]

Zitat von Christian Seehase:

dafür kannst Du auch die Funktion StringReplace benutzen.

Verdammt, hab nur nach StrReplace gesucht... wieso ist das denn auch in jeder Sprache anders...