ZEOS und Hochkommata

[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.

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:

'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 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 von DJ-SPM:

Habe den INSERT-Befehl jetzt so gemacht:

'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 .

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