Thema: Delphi Sql - Ado - Values

Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.367 Beiträge
 
Delphi 11 Alexandria
 
#15

Re: Sql - Ado - Values

  Alt 9. Sep 2007, 12:20
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;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat