Zitat von
unitedlb:
Delphi-Quellcode:
sqlfield := 'Act-Journal-ID,SN,Company,Name,Adresse,PLZ,Telefon,Bemerkung';
sqldata := cases[r].journalid+','+
quotedstr(cases[r].sn)+','+
quotedstr(cases[r].company)+','+
quotedstr(cases[r].name)+','+
quotedstr(cases[r].adresse)+','+
quotedstr(cases[r].plz)+','+
quotedstr(cases[r].ort)+','+
quotedstr(cases[r].telefon)+','+
quotedstr(cases[r].bemerkung);
with form1.ADOQuery1.SQL do begin
Clear;
add('INSERT INTO Aufträge ('+sqlfield+') VALUES('+sqldata+')');
end;
form1.ADOQuery1.ExecSQL;
1.) Sonderzeichen in Tabellenname (das ä), nicht gut, ein Drama, wenn du auf ne andere
DB portieren möchtest/musst
2.) Sonderzeichen im Feldnamen "Act-Journal-ID", die Minuszeichen könnten als Subtraktion interpretiert werden -> Feld umbenennen
3.) "Name" ist ein reserviertes Wort -> Feld umbenennen.
4.) du hast immer noch nicht das produzierte
SQL-Statement gezeigt.
das geht ganz einfach:
Delphi-Quellcode:
with form1.ADOQuery1.SQL do begin
Clear;
add('INSERT INTO Aufträge ('+sqlfield+') VALUES('+sqldata+')');
SaveToFile('C:\insert.txt'); // <======
end;
Und dann schau dir mal die Datei C:\insert.txt an. Und poste dann den Inhalt, falls es nach Änderung von
1.) bis 3.) immer noch Probleme gibt.