Discussion :

[koff10]

bonjour,
je suis nouveau en programation et delphi

j'ai un bouton qui permet de mettre à jour la table 'lieu2' à partir de la table 'lieu1'
Les tables 'lieu2'et 'lieu1' sont les mêmes( même champs, même enrégistrement ....)
une partie de ce programme est:


procedure TForm1.Button1Click(Sender: TObject);
begin
qrlieu1.Open;
while not (qrlieu1.eof) do
begin
qrInsertlieu2.ParamByName('li_id').AsInteger := qrlieu1.fieldbyname('li_id').AsInteger;
qrInsertlieu2.ParamByName('vi_id').AsInteger := qrlieu1.fieldbyname('vi_id').AsInteger;
qrInsertlieu2.ParamByName('li_adr1').Asstring := qrlieu1.fieldbyname('li_adr1').Asstring;
qrInsertlieu2.ExecSQL;
qrcommit.ExecSQL;
qrlieu1.Next;
end;
end;
Explication : qrlieu1 est un Query: ( select * from lieu1)

qrInsertlieu2 est le bouton dont le query est :

insert into lieu2 (li_id,vi_id,li_adr1)
values(:li_id, :vi_id, :li_adr1).

Ce programme marche bien seulement si la table lieu2 est vide.
Si la table Lieu2 contient déjà des enregistrements , le programme plante: " violation de clé primaire"

Donc je cherche à mettre un test dans ce programme: Il y aura insertion seulement des
nouveaux enrégistrements ou modification des enrégistrements dans la table Lieu1.

Comment faire ????

Merci pour votre aide .

[yoyo44]

Salut,

Soit tu test si l'enregistrement existe avant l'insertion.
Soit tu englobe ton insertion dans une exception mais c'est moins propre.
@++

[koff10]

Salut,

Soit tu test si l'enregistrement existe avant l'insertion.
Soit tu englobe ton insertion dans une exception mais c'est moins propre.
@++

Comment faire ce test et c'est quoi une exception ?
pourriez vous être plus explicite ?

[yoyo44]

Soit tu test si l'enregistrement existe avant l'insertion :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  qrlieu1.Open; 
 
  with TQuery.Create(nil) do
  begin
    DatabaseName := Ton DataBaseName;
    SQL.Text := 'select li_id from lieu2 ' +
                       'where li_id = :li_id ';
    while not (qrlieu1.eof) do 
    begin  
      // Verif si clé existe déjà
      Close;
      ParamByName('li_id').AsInteger := qrlieu1.fieldbyname('li_id').AsInteger; 
      Open;
      if IsEmpty then
      begin 
        qrInsertlieu2.ParamByName('li_id').AsInteger := qrlieu1.fieldbyname('li_id').AsInteger; 
        qrInsertlieu2.ParamByName('vi_id').AsInteger := qrlieu1.fieldbyname('vi_id').AsInteger; 
        qrInsertlieu2.ParamByName('li_adr1').Asstring := qrlieu1.fieldbyname('li_adr1').Asstring; 
        qrInsertlieu2.ExecSQL; 
        qrcommit.ExecSQL; 
      end;
      qrlieu1.Next; 
    end; 
end;

Soit tu englobe ton insertion dans une exception mais c'est moins propre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Button1Click(Sender: TObject); 
begin 
qrlieu1.Open; 
while not (qrlieu1.eof) do 
begin 
  try
    qrInsertlieu2.ParamByName('li_id').AsInteger := qrlieu1.fieldbyname('li_id').AsInteger;  
    qrInsertlieu2.ParamByName('vi_id').AsInteger := qrlieu1.fieldbyname('vi_id').AsInteger; 
    qrInsertlieu2.ParamByName('li_adr1').Asstring := qrlieu1.fieldbyname('li_adr1').Asstring; 
    qrInsertlieu2.ExecSQL; 
    qrcommit.ExecSQL; 
  finally
    qrlieu1.Next; 
  end;
end; 
end;

[JustMe]

Je ne sais pas si ton SGBD te le permet mais si tu essais de faire tous ça avec une requete du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

INSERT INTO Table2(Champs1,Champ2) (SELECT Champs1,Champs2 FROM Table1 where Table1.Champs1 <> Table2.Champs1

)