Discussion :

[arno24]

Bonjour,
voilà mon problème: J'ai une application BD Paradox7. J'ai une Form1 et une dbgrid1 avec la table1. J'ai aussi une Form2, avec une dbgrid2 et une table2 sur ce Form2. Donc, sur Form2 (dbgrid2) j'enregistre par ex. certains produits, qui ont leur numéro de série. Maintenant, si j'inscrit le même produit (donc, le même No de série dans mon dbgrid1, je voudrais que ce même produit soit automatiquement supprimé de mon dbgrid2!
Donc, il faudrait une instruction du genre:

Code :

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

1
2
 
if form1.DBGrid1.DataSource.DataSet(nouveau enregistrement?)=Form2.DBGrid2.DataSource2.DataSet2.(1 enregistrement parmi tous) then Form2.DBGrid2.DataSource2.DataSet2.Delete(celui qui est identique)

ou

Code :

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

1
2
 
if form1.table1.DataSource.(nouveau enregistrement?)=Form2.table2.DataSource2.(le même No de champ No série) then Form2.Table2.DataSource2.Delete(celui qui est identique)

Voilà, si qq1 aurait une idée...et merci

[arno24]

Bonjour,
personne n'aurait une idée comment resoudre ce problème?

[technico]

Salut!
J'ai le même problème...mais sans réponse!
On attend des "forts"...

[arno24]

Oui, je ne trouve pas de solution...

[DeadSoul]

Bonjour,

Instruction pour rechercher un record dans un dataset : LOCATE
(voir aide delphi : bouton F1)

[arno24]

Bonjour DeadSoul, et merci de ta réponse!
Tu est gentil, mais je suis débutant, et il me faudrait un exemple concrèt...
Peut-tu me donner un stp?
Merci d'avance ...

[bNoureddine]

Bonjour,
voilà mon problème: J'ai une application BD Paradox7. J'ai une Form1 et une dbgrid1 avec la table1. J'ai aussi une Form2, avec une dbgrid2 et une table2 sur ce Form2. Donc, sur Form2 (dbgrid2) j'enregistre par ex. certains produits, qui ont leur numéro de série. Maintenant, si j'inscrit le même produit (donc, le même No de série dans mon dbgrid1, je voudrais que ce même produit soit automatiquement supprimé de mon dbgrid2!
Donc, il faudrait une instruction du genre:

Code :

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

1
2
 
if form1.DBGrid1.DataSource.DataSet(nouveau enregistrement?)=Form2.DBGrid2.DataSource2.DataSet2.(1 enregistrement parmi tous) then Form2.DBGrid2.DataSource2.DataSet2.Delete(celui qui est identique)

ou

Code :

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

1
2
 
if form1.table1.DataSource.(nouveau enregistrement?)=Form2.table2.DataSource2.(le même No de champ No série) then Form2.Table2.DataSource2.Delete(celui qui est identique)

Voilà, si qq1 aurait une idée...et merci

il faut écrire une procédure de la forme suivante :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Table2BeforeDelete(DataSet: TDataSet);
 begin
 if    Table1.Locate('produit',Table2produit.value,[]) then
        begin
        While   ( ici lorsque l'enregistrement produit se trouve plusieurs fois)
       table1.Locate'produit',Table2produit.value,[])do
        Table2.Delete;
        end;
 end;

[Modération, Seb : Pensez à utiliser la balise [CODE] qui améliore la lisibilité, merci]

[alexmorel]

Cree une procedure !

Code :

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

1
2
3
4
5
6
7
8
 
 
For I:=1 to la_taille_du_tableau1 Do
 For J:=1 to la_taille_du_tableau2 Do
  If tableau1[i]=tableau2[j] then 
   Begin
       Ton intruction de suppression
   End;

Avec un truc comme ça sa doit fonctionner

[arno24]

Salut le monde,
j'ai essayé ce que vous m'avez conseillés, mais CA NE MARCHE PAS!!!
Exemple: Dans la table 1, il y a 10 champs, dont 1 No de série. Dans la table 2 j'ai 7 champs, dont 1 No de série. Alors: si dans un champ de la table 1 je rentre un No de série qui existe déjà dans la table 2, alors, on supprime automatiquement l'enregistrement de celui de la table 2.
Pouvez-vous essayer "sur un exemple" svp? Je n'arrive pas du tout à solutionner ça!!
Merci dans tous les cas...

[technico]

Sincèrement, je ne pense pas que ce soit possible...

[arno24]

Tu rigoles, j'espère...?? Pourquoi ce serait pas possible?? Tout est possible, il suffit de savoir comment faire...!

[arno24]

Personne ne peut m'aider...?

[bNoureddine]

Personne ne peut m'aider...?

Cettre procedure permet de chercher un numéro de serie dans table1 et de vérifier si ce dernier se trouve dans table2 de le supprimer.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Table2BeforeDelete(DataSet: TDataSet); 
begin 
Table1.First;
while not Table1 = EOF Do
begin
   if Table1.Locate('Numero',Table2Numero.value,[]) then 
     begin 
    While ( ici lorsque l'enregistrement numero se trouve plusieurs fois) 
          table1.Locate('numero',Table2numero.value,[])do 
         Table2.Delete; 
    end; 
   Table1.Next;
end;

[Modération, Seb : Pensez à utiliser la balise [CODE] qui améliore la lisibilité, merci]

[arno24]

Bonjour bNoureddine, et merci de ta gentille réponse!
Voici le code que j'ai essayé:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.First;
while not Table1 = EOF Do
begin
   if Table1.Locate('Serial',Form2.Table2Serial.value,[]) then
      Form2.Table2.Delete;
    end;
   Table1.Next;
end;

mais j'obtiens les érreurs suivante:

Code :

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

1
2
 (865)Constante 0 convertie en NIL
(1609)Opérateur non applicable à ce type d'opérande

Le problème est sur la ligne "while not Table1 = EOF Do"
J'ai essayé aussi "while Table1 <> EOF Do", mais sans succès.

Je n'ai pas de plusieurs enregistremments du même No de série.

Un grand merci d'avance...

[bNoureddine]

Bonjour bNoureddine, et merci de ta gentille réponse!
Voici le code que j'ai essayé:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.First;
while not Table1 = EOF Do
begin
   if Table1.Locate('Serial',Form2.Table2Serial.value,[]) then
      Form2.Table2.Delete;
    end;
   Table1.Next;
end;

mais j'obtiens les érreurs suivante:

Code :

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

1
2
 (865)Constante 0 convertie en NIL
(1609)Opérateur non applicable à ce type d'opérande

Le problème est sur la ligne "while not Table1 = EOF Do"
J'ai essayé aussi "while Table1 <> EOF Do", mais sans succès.

Je n'ai pas de plusieurs enregistremments du même No de série.

Un grand merci d'avance...

Effectivement j'ai fait une erreur syntaxique dans la boucle, le code ci- dessus devient

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.First;
while not Table1.EOF Do
begin
   if Table1.Locate('Serial',Form2.Table2Serial.value,[]) then
      Form2.Table2.Delete;
    end;
   Table1.Next;
end;

[Modération, Seb : Pensez à utiliser la balise [CODE] qui améliore la lisibilité, merci]

[arno24]

MERCIIIIIIIIIII bNoureddine, avec des petites corrections c'est exactement ce qu'il me fallait!!!
Tu est un vrai copain!
Je remercie aussi à ce forum pour toute aide...
Bonne continuation!