libSQL und SQlite

[marabu]

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