Sql - Ado - Values

[poterp]

hallo,
wie ist es, wenn man ne neue zeile bei SQL schreibt? ich habe folgendes gemacht:

Delphi-Quellcode:

procedure TForm2.Button3Click(Sender: TObject);
begin
with adoquery1 do
begin
sql.Text:= '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 )';


 Parameters.ParamByName('paul').Value:=Edit1.Text;
 Parameters.ParamByName('Simon').Value:=Edit2.Text;
 Parameters.ParamByName('alex').Value:=Edit3.Text;
 Parameters.ParamByName('jean').Value:=Edit4.Text;
 Parameters.ParamByName('rene').Value:=Edit5.Text;
 Parameters.ParamByName('alain').Value:=Edit6.Text;
.......
end;
end;

Ich habe fehler beim SQL.Text. Ich weisse nicht, ob bei neuer zeilen man die Hochklammer hinfügen soll.
poter

[poterp]

die erste fehlern habe ich endeckt uzw.:

Delphi-Quellcode:

procedure TForm2.Button3Click(Sender: TObject); 
begin 
with adoquery1 do 
begin 
sql.Text:= '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 )'; 


Parameters.ParamByName('paul').Value:=Edit1.Text; 
Parameters.ParamByName('Simon').Value:=Edit2.Text; 
Parameters.ParamByName('alex').Value:=Edit3.Text; 
Parameters.ParamByName('jean').Value:=Edit4.Text; 
Parameters.ParamByName('rene').Value:=Edit5.Text; 
Parameters.ParamByName('alain').Value:=Edit6.Text; 
....... 
end; 
end;

ich habe die '+' hingefügt aber ab Values geht es nicht mehr

[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

[poterp]

Merci Monsieur,
je vais essayer

[poterp]

Danke, es lauft ganz gut
wie kann ich vermeiden, dass ein datensatz 2mal gespeichert wird? bzw eine routine schreiben, die erstmal prüft, ob die identische daten in datenbank vorhanden ist?
grüß
poter

[DeddyH]

Oder auf DB-Ebene einen passenden Unique-Index setzen.

[poterp]

wie ist es praktisch gemeint?

[DeddyH]

Du kannst in einer Tabelle ein oder mehrere Felder in Kombination mit einem Unique Index versehen. Dann sorgt das DBMS dafür, dass es nur einen Datensatz mit dem Wert des Feldes oder der Kombination geben darf.
Angenommen, Du hast eine Tabelle mit Benutzern und möchtest sicherstellen, dass die Kombination aus Name und Vorname eindeutig ist. Also legst Du einen Unique Index über diese beiden Felder (Achtung: 1 Index über 2 Felder, nicht jeweils einen!). Dabei ist zu beachten, dass beide Felder möglichst NOT NULL definiert sein sollten. Anschließend führt jeder Versuch, dieselbe Kombination von Namen und Vornamen (z.B. Meier,Heinz) erneut einzufügen, zum Fehler.

[poterp]

wurde es ungefähr so aussehen?

Delphi-Quellcode:

procedure TForm2.Button3Click(Sender: TObject); 
begin 
  with adoquery1 do 
  begin
CREATE UNIQUE INDEX ID_tabziel
ON Tab_Fb_Ziel ('Name,Kunde_nr, datum');
end;
end;