Sql - Ado - Values

[DeddyH]

Dann würde ich es mal so versuchen:

Delphi-Quellcode:

procedure TForm2.Button3Click(Sender: TObject);

var
dt: TDateTime;

const
  STMT
    = 'Insert Into Tab_Fb_Ziel('
    + 'paul, simon, alex, jean, rene, alain, simon, dominique, Raymond, Sylax, '
    + 'jeanne, Yvonne, Claire, Nina, Pierre, Janson, Louis, Lila, maurice, Jahr '
    + ') Values ('
    + ':paul, :simon, :alex, :jean, :rene, :alain, :simon, :dominique, :Raymond, :Sylax, '
    + ':jeanne, :Yvonne, :Claire, :Nina, :Pierre, :Janson, :Louis, :Lila, :maurice, :jahr '
    + ')'
    ;
begin
  with adoquery1 do
  begin
        SQL.Text := STMT;
        dt:= Datetimepicker1.Date;

    Parameters.ParamByName('paul').Value := Edit1.Text;
    Parameters.ParamByName('Jahr').AsDateTime := trunc(dt);
    // ...
    ExecSQL;
  end;
end;