SQL: Fehlermeldung "rechtes Anführungszeichen fehlt"

[alfgar]

Hallo,
bin neu hier und auch neu in Delphi
Hab eine warscheinlich triviale Frage zu einem
Query.SQL.Text - Statement:

Query1.SQL.Text := 'INSERT INTO errorfile(PartName, PartNo, Error) VALUES ('''+strTmpPart+''', '''+strTmpNo+''', '''+strTmpError+''');';

bringt immer die Fehlermeldung "rechtes Anführungszeichen fehlt".
Hab schon einiges ausprobiert, aber keine Lösung gefunden.
Übrigens: die errorfile Tabelle wird einwandfrei mit den
gewünschten Daten gefüllt.

Was mach ich falsch?

Vielen Dank für die Hilfe
alfgar

[Sharky]

Hai alfgar,

ersteinmal: "Herzlich Willkommen in der Delphi-PRAXIS".

Ich würde auf jedem Fall vermeiden mit solchen Stringkonstruktionen zu arbeiten. Mit diesen ganzen '''' baust Du dir selber nur Fehler ein.
Optimal wäre die Verwendung von Parametern. Um dir dafür ein Beispiel zu geben müsste ich aber wissen mit welchen Querys Du arbeitest. (ADOQuery usw.).

[Edit]@Alfons_G: Das wollte ich eben auch noch schreiben. *g*

[Alfons_G]

Zusätzlich zur Verwendung von Parametern sollte man Strings bei SQL-Anweisungen nie mit manuell gesetzten Anführungszeichen versehen, sondern immer die Delphi-Funktion QuotedStr() verwenden. Die "verarztet auch Anführungszeichen, welche im String vorkommen.

[Sharky]

So, ich habe mal schnell etwas getippelt
Einmal mit Parameter (was ich persönlich für besser halte) und einmal mit der Verwendung von QuotedStr.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Text := 'INSERT INTO errorfile(PartName, PartNo, Error) '+#10
  + ' VALUES (:pstrTmpPart,:pstrTmpNo,:pstrTmpError)';
  //Die mit : beginnenden "Variablen" sind die Parameter

  Query1.ParamCheck := True;  // Parameterverarbeitung aktivieren

  //Den Parameter Werte zuweisen
  Query1.Params.ParamByName('pstrTmpPart').AsString := strTmpPart;
  Query1.Params.ParamByName('pstrTmpNo').AsString := strTmpNo;
  Query1.Params.ParamByName('pstrTmpError').AsString := strTmpError;
  Query1.ExecSQL; // Query ausführen
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Text := 'INSERT INTO errorfile(PartName, PartNo, Error) ' +#10
   + 'VALUES ('
   + QuotedStr (strTmpPart) +','
   + QuotedStr (strTmpNo) + ','
   + QuotedStr (strTmpError)
   + ')';
   Query1.ExecSQL;
end;

[Akut-Programming]

Erstmal Willkommen in der DP!!

Zitat von alfgar:

Query1.SQL.Text := 'INSERT INTO errorfile(PartName, PartNo, Error) VALUES ('''+strTmpPart+''', '''+strTmpNo+''', '''+strTmpError+''');';

N Tip wäre vielleicht, das erste Semikolon in deinem Statement weg zu lassen. Du brauchst unter Delphi deine Statements nicht mit einen Semikolon abzuschließen. Daher wirst du auch die Meldung "Rechtes Anführungszeichen fehlt" bekommen. Unter Delphi beendest du ja mit dem Semikolon eine Anweisung. Versuchs mal so:
Query1.SQL.Text := 'INSERT INTO errorfile(PartName, PartNo, Error) VALUES ('''+strTmpPart+''', '''+strTmpNo+''', '''+strTmpError+''')'; Gruß,

[alfgar]

Ups(schon antworten da ?!),
ihr seit ja schneller als meine ISDN-Verbindung

Ja, also ich habe auf meinem Formular ein TQuery eingefügt, welches ich über
ODBC mit einer MySQL-datenbank verbunden habe.

ADOQuery hab ich leider nicht zur Verfügung
Die Hilfe (Thema z.B. ADOConnection) sagt dazu "Dieses Leistungsmerkmal ist in der aktuellen Delphi-Version nicht verfügbar."
Ich benutze Delphi 5 (Compilierung 5.62).
Schade eigentlich ADO kenn ich schon aus VB.
Jetzt schau ich mir das mit dem QuotredStr() mal an...

Danke schon mal für den Tip
alfgar

[Sharky]

Zitat von alfgar:

Ups(schon antworten da ?!),
ihr seit ja schneller als meine ISDN-Verbindung

Aber immer

Das mit den Parametern sollte so auch bei dir Funktionieren!

Wenn Du viel mit mySQL arbeitest kann ich dir z.B. die Zeos-Komponenten empfehlen.
Da wird auf dem Rechner nur eine DLL benötigt um auf mySQL-Server zugreifen zu können.

[alfgar]

Danke ! an alle Beteiligten

Jetzt ist alles klar.

alfgar