Token unknown

[marabu]

Hallo.

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
begin
  with Form1.SQLQuery1 do
  begin
    SQL.Text := 'Insert into Schueler (id, Firstname, Lastname, Birthdate, Klasse) '
              + 'Values(:id, :firstname, :lastname, :birthdate, :klasse)'
              ;
    Params.ParamByName('id').AsInteger := StrToInt(Edit1.Text);
    Params.ParamByName('schueler').AsString := Edit2.Text;
    // ...
    ExecSQL;
  end;
end;

Der direkte Zugriff von Form3 auf Form1.SQLQuery1 ist nicht die beste Lösung. Deine Komponenten tragen alle noch die von der IDE vorgeschlagenen Namen. Die Komposition des INSERT-Statements durch String concatenation ist nicht sicher - bisweilen fehlen dann Quotes. Die property SQL hat eine Eigenschaft Text, was oft ein SQL.Clear überflüssig macht. Eventuell solltest du dir mal die Komponente SQLDataset anschauen. Fehlerbehandlung ist noch keine sichtbar. Das reicht erstmal.

Gute Nacht

marabu