Herzlich willkommen in der Delphi-PRAXiS, sexmagic.
Wenn du dir das erzeugte
SQL-Statement vor der Ausführung angeschaut hättest, dann wäre dir vielleicht aufgefallen, dass der Default-Inhalt von Edit1 ohne die notwendigen Hochkommata eingefügt wurde - soll aber als Literal übergeben werden:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
const
ins
= '
insert into kunden (name, leistung, dokumente) '
+ '
values (%s, %s, %d)'
;
var
stmt:
String;
n: Integer;
begin
n := StrToIntDef(Edit3.Text, 0);
stmt := Format(ins, [QuotedStr(Edit1.Text), QuotedStr(Edit1.Text), n]);
if not DB.Query (stmt)
then
ShowMessage('
DB error: '+
DB.ErrorMessage);
db.Free;
end;
Getippt und nicht getestet.
Freundliche Grüße vom marabu