Sql - Ado - Values

[marabu]

Bonjour poter,

um einen String aus einzelnen Literalen zusammen zu setzen musst du auch wirklich alle Literale verketten:

Delphi-Quellcode:

procedure TForm2.Button3Click(Sender: TObject); 
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 '
    + ') Values ('
    + ':paul, :simon, :alex, :jean, :rene, :alain, :simon, :dominique, :Raymond, :Sylax, '
    + ':jeanne, :Yvonne, :Claire, :Nina, :Pierre, :Janson, :Louis, :Lila, :maurice '
    + ')'
    ; 
begin 
  with adoquery1 do 
  begin 
    // wenn STMT bis auf Parameter statisch ist,
    // dann genügt einmailiges Zuweisen in FormCreate
    // oder im Object Inspector und dann muss die Query
    // nur geschlossen werden:
    // Close;
    SQL.Text := STMT; 

    Parameters.ParamByName('paul').Value := Edit1.Text; 
    // ... 
    Open;
  end; 
end;

Bonne Chance