ZEOS und Hochkommata

[TheMiller]

Hi,

wenn ich über die Zeos-Komponente einen Delphi-Quelltext eintrage, gibt er mir einen Fehler zurück. Ich vermute es liegt an den Hochkommata. Wie kann ich das umgehen?

Die Fehlermeldung lautet immer nur "You hav an error in your SQL-Syntax near... at line ..."

Danke

[Igotcha]

Arbeite mit Parametern -> ParamByName, dann passiert Dir so etwas nicht.

Gruß Igotcha

[TheMiller]

Hi, möchte aber einen Delphi-Code in die SQL-Tabelle eintragen. Diese Spalte hat das Attribut "text". Oder, wie muss ich den Befehl verwenden?

[Igotcha]

Delphi-Quellcode:

ZQuery.Sql.Text:='INSERT INTO blafoo (codetext) VALUES (:MeinText)';
ZQuery.ParamByName('Meintext').asString:=Memo1.Text;

Wenn der Quelltext z.B. in einem Memo steht.

Gruß Igotcha

[TheMiller]

...hab Dank...fremder... :)

[TheMiller]

Hm, naja.

So ganz habe ich es anscheinend doch nicht gerafft. Habe den Code:

Delphi-Quellcode:

    Form1.ZQuery1.Close;
    Form1.ZQuery1.SQL.Text:='INSERT INTO tabelle (1,2,3,4) VALUES ('''+Combobox1.Text+''','''+Edit1.Text+''','''+Edit2.Text+''',:'''+Memo1.Text+''');';
    Form1.ZQuery1.ExecSQL;

Aber es kommt immer die gleiche Meldung...

[DGL-luke]

äh.....

setz mal deine sql-query in einer lokalen variable zusammen, und übergib sie dann an die query funktion. diese ganzen dreifachen hochkommata kommen mir spanisch vor....

edit: ich meine weise sie der text eigenschaft deines query objektes zu ;)

[dizzy]

Zitat:

Zitat von DJ-SPM

Aber es kommt immer die gleiche Meldung...

Du arbeitest ja auch immer noch nicht mit Parametern wie vorgeschlagen wurde :mrgreen:

[TheMiller]

Ich habe doch den Doppelpunkt ":" gesetzt, oder nicht?

[TheMiller]

Oh Sorry. Sehe den Fehler. Werde es nochmal testen

[TheMiller]

Danke das geht jetzt.

Nur noch eine Frage: Wie lese ich das jetzt wieder aus? Sorry, aber ich habe noch nicht viel mit ZEOS gemacht...

EDIT: Was ich meine ist folgendes: Der Text wird super angezeigt. Allerdings fehlen die Hochkommata....

[TheMiller]

*push*

[shmia]

Mal was Grundlegendes zu SQL und Hochkommas:
* Nur Stringliterale werden in Hochkommas eingeschlossen.
Andere Datentypen wie Numeric, Float, ... werden nicht in Hochkommas eingeschlossen:

SQL-Code:

-- nur das Feld Beschreibung ist ein Stringfeld (Datentyp varchar(50))
INSERT INTO Tabelle(Betrag, Beschreibung) VALUES(16.5, 'Zinssatz Konto 14')

* wer die Hochkommas hartcodiert im Sourcecode ablegt, dem gehört gleich der Dübel gebohrt. :twisted:

Delphi-Quellcode:

// FALSCH
Query1.SQL.Text:='INSERT INTO tabelle (Feld1, Feld2) VALUES('''+Combobox1.Text+''','''+Edit1.Text+'')';

// Richtig
Query1.SQL.Text:='INSERT INTO tabelle (Feld1, Feld2) VALUES('+QuotedStr(Combobox1.Text)+','+QuotedStr(Edit1.Text)+')';

mit QuotedStr ist es leichter zu lesen und es gibt vorallem keinen Syntaxfehler, wenn in den Daten selbst mal ein Hochkomma enthalten ist.

* um den Problemen mit Hochkommas und diversen Datumsschreibweisen von vornerein aus dem Weg zu gehen, nimmt man Parameter:

Delphi-Quellcode:

Query1.SQL.Text:='INSERT INTO tabelle (Feld1, Feld2) VALUES 
(:Feld1, :Feld2)';
Query1.Parameters.ParamValues['Feld1'] := Combobox1.Text;

[TheMiller]

Gut,

danke für die Erklärung. Nun bleibt dennoch die Frage offen, wie ich die Parameter wieder auslese. Eigentlich funzt es ja, nur die Hochkommata werden nicht angezeigt.

Habe den INSERT-Befehl jetzt so gemacht:

Delphi-Quellcode:

'INSERT INTO fucs (1, 2, 3, 4) VALUES ('+QuotedStr(Combobox1.Text)+','+QuotedStr(Edit1.Text)+','+QuotedStr(Edit2.Text)+','+QuotedStr(Memo1.Text)+';';

Damit kommt wieder die Syntax-Meldung.

Als ich als Parameter gespeichert habe, ging es. Wie gesagt, nur beim Auslesen wurde statt:

Delphi-Quellcode:

Hallo ich bin 'Franz'

Hallo ich bin Franz

angezeigt. Wie kann ich den Fehler beheben?

[TheMiller]

keine mehr eine Idee?

[Sharky]

Zitat:

Zitat von DJ-SPM

keine mehr eine Idee?

Hai DJ-SPM,

bei mir geht das (Zeos 6.5.1-alpha + mySQL) ohne Probleme:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with ZQuery1 do
  begin
    Close;
    SQL.Text := 'INSERT INTO test1 (name,typ,vorname) VALUES (:name,:typ,:vorname)';
    ParamByName('name').AsString := Edit1.Text;
    ParamByName('typ').AsInteger := 1;
    ParamByName('vorname').AsString := Edit2.Text;
    ExecSQL;
    Close;
    SQL.Text := 'SELECT * FROM test1';
    Open;
  end;
end;

[TheMiller]

Ok,

kann sein, dass ich beim rumprobieren irgendwelche Fehler gemacht habe. Es funktioniert jedenfalls. Ich danke allen beteiligten...

Bye

[Orbmu2k]

Zitat:

Zitat von DJ-SPM

Habe den INSERT-Befehl jetzt so gemacht:

Delphi-Quellcode:

'INSERT INTO fucs (1, 2, 3, 4) VALUES ('+QuotedStr(Combobox1.Text)+','+QuotedStr(Edit1.Text)+','+QuotedStr(Edit2.Text)+','+QuotedStr(Memo1.Text)+';';

Damit kommt wieder die Syntax-Meldung.

Dir fehlt hinten noch die geschlossene Klammer im String .

Delphi-Quellcode:

'INSERT INTO fucs (1, 2, 3, 4) VALUES ('+QuotedStr(Combobox1.Text)+','+QuotedStr(Edit1.Text)+','+QuotedStr(Edit2.Text)+','+QuotedStr(Memo1.Text)+');';