Mysql Insert Fehler

[Masterof]

Hallo!!

Du müsstest das mit den Parametern genauso machen können, denn du kannst ja auch in in einem Memo die Zeilen zählen.
So liest du es Zeile für Zeile aus und baust das mit dem Paramtern zusammen.

MfG Master

[alcaeus]

@BorlanDelphiUser: Dein Statement ist schon mal syntaktisch komplett falsch (jedenfalls wüsse ich nicht von einem "insert into set" statement.

Für alle anderen mal eine Funktion und ein Zitat: QuotedStr

Die Delphi-OH zum Thema QuotedStr:

Use QuotedStr to convert the string S to a quoted string. A single quote character (') is inserted at the beginning and end of S, and each single quote character in the string is repeated.

Das dürfte das Problem aus der Welt schaffen.

Greetz
alcaeus

[lume96]

Moin,

Zitat von BorlanDelphiUser:

... dann kommt der tolle Fehler .. You have an Error in your SQL Syntax .. bla bla bla

Den hast Du auf jeden Fall, denn die korrekte Syntax für'n INSERT Statement lautet
INSERT INTO table VALUES(); oder eventuell
INSERT INTO table(field1,field2) VALUES(); Ein SET hat hier nichts zu suchen (das kommt im UPDATE vor).

SQL-Code:

Query.Sql.Text := 'INSERT INTO Code_schnipsel VALUES (:phpcode)';
Query.Params.Clear;
Query.Params.CreateParam(ftString,'phpcode', ptInput);

Query.ParamByName('phpcode').AsString := Form1.SynEdit1.Text;
Query.ExecSQL;

Tschüss
Lutz

[BorlanDelphiUser]

Hmm also wenn ich PHP programmiere ist das so ziemlich egal ich find das so nähmlich besser ... bei langen Abfragen muss man nicht immer schauen an welche Stelle welcher Inhalt hinmuss ... deswegen ziehe ich das mit SET eigetlich vor.

Aber ich probiere es gleich mal mit dem anderen Syntax ... denn QuotedStr hat auch nicht funktioniert.

[BorlanDelphiUser]

so ich hab das ganze auf den Syntax ...
INSERT INTO table(field1,field2) VALUES(); ... geändert. hat nicht gebracht es liegt eindeutig an den vorkommenden ' Zeichen.
Es muss doch dafür eine Lösung geben ...

[alcaeus]

Moin BorlanDelphiUser,

versuchs mal mit diesem Code:
StringReplace(Form1.SynEdit1.Text, '''', '\''', [rfReplaceAll]); oder vielleicht etwas "lesefreundlicher":
StringReplace(Form1.SynEdit1.Text, #39, '\'+#39, [rfReplaceAll]); Dritte Möglichkeit:
Query1.SQL.Text := 'INSERT INTO tabelle values ("'+Form1.SynEdit1.Text+'")'; Greetz
alcaeus

[edit]"hk" durch "#39" ersetzt...das hat man davon wenn die konstanten immer definiert sind [/edit]

[BorlanDelphiUser]

@alcaeus

danke werd gleich mal durchprobieren ...

[BorlanDelphiUser]

@alcaeus ... SUPER!!! Endlich funktioniert es ... DANKE DANKE !!!

BTW ... gleich die erste Variante hat funktioniert.

StringReplace(Form1.SynEdit1.Text, '''', '\''', [rfReplaceAll]);

[lume96]

Zitat von BorlanDelphiUser:

so ich hab das ganze auf den Syntax ...
INSERT INTO table(field1,field2) VALUES(); ... geändert. hat nicht gebracht es liegt eindeutig an den vorkommenden ' Zeichen.
Es muss doch dafür eine Lösung geben ...

Wie jetzt, hast Du es mal so probiert :

SQL-Code:

ZQuery1.Params.Clear;
  ZQuery1.SQL.Text := 'INSERT INTO Code_Schnipsel(Code) VALUES(:phpc)';
  ZQuery1.Params.CreateParam(ftString,'phpc',ptInput);
  ZQuery1.ParamByName('phpc').AsString := Memo1.Text;

  ZQuery1.ExecSQL;

Ich hab das mal eben schnell getestet und habe kein Problem mit :

Code:

<?
  echo 'Irgendwas';
?>

im Memo.

Zugegeben, ich hab's mit einer Firebird DB getestet; habe hier keine MySQL zum Test.

Eigentlich sollte das aber nichts zur Sache tun.

Tschüss,
Lutz

[alcaeus]

Zitat von BorlanDelphiUser:

BTW ... gleich die erste Variante hat funktioniert.

Die macht eigentlich dasselbe wie die zweite, allerdings ist die zweite lesbarer... (wenn man das Posting editiert und "#39" anstatt "hk" schreibt )

Greetz
alcaeus