Discussion :

[kalou26]

bonjour
dans mon prog j'utilise une dbgrid et ce que je souhaite faire c lorsque je veux ajouter un texte dans une cellule de ma dgbrid, cela verifie si une cellule du meme nom dans la meme colone existe deja, pour ne pas avoir 2 fois la meme cellule dans la meme colone
merci

[kalou26]

mon prog c ca pour ajouter :

TGestionMateriaux->Append();
TGestionMateriaux->Edit();
TGestionMateriaux->FieldByName("Produit")->Value=EProduit->Text.c_str();

et je veux que lorsque j'ajoute un produit, sil existe, cela ecrase le produit existant, sinon sela crée une autre cellule

[Sunchaser]

Ne devrais tu pas en priorité voir au niveau de ta table (enfin si le DBGrid affiche directement une table), afin d'empecher directement les doublons ?

[kalou26]

je sais pas comment faire

[kalou26]

et est ce qu ecela ecraserais un enregistrement existant portant le meme nom de cellule ??

[Furlaz]

Un code du genre peut etre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
TGestionMateriaux->First();
while(!TGestionMateriaux->EOF){
   if(EProduit->Text.c_str()!=TGestionMateriaux->FieldByName("Produit")->Value)
{
       TGestionMateriaux->Append();
}
TGestionMateriaux->Next;
}
TGestionMateriaux->Edit();
TGestionMateriaux->FieldByName("Produit")->Value=EProduit->Text.c_str();

REEDIT : comme ca c pas mieux (modif en rouge)
A voir

[kalou26]

ca rajoute qd meme le produit portant le meme nom

[Furlaz]

Avec les modif ca devrait etre mieux ^^

J'avais rajouter une ligne dans le tableau si le texte etait pareil alors que c'est l'inverse, il doit en rajouter une si il ne l'a pas trouvé

[kalou26]

non ca me fait toujours pareil
si l'enregistrement existe ca me le rajoute qd meme

[Furlaz]

Je sais pourquoi je pense :

Il faudrait qu'il pointe sur l'élément lorsqu'il le trouve pour le remplacer.

J'y refléchi (apres mange lol) et je te dis si tu na toujours pas ta solution

[Sunchaser]

C'est quoi le :

EProduit

?

Sur quel type de table travailles tu ?

[Furlaz]

Bon je viens de manger, mon cerveau se remet en marche, essaye donc cela :

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
 
int stop = 0;
TLocateOptions Option;
 
TGestionMateriaux->First();
while(!stop){
 
if(EProduit->Text.c_str()==TGestionMateriaux->FieldByName("Produit")->Value)
  {
  TGestionMateriaux->Locate("produit",EProduit->Text.c_str(),Option)   
  stop = 1;
  }
 
if(TGestionMateriaux->EOF)
  {
  TGestionMateriaux->Append();   
  stop=1;
  }
 
TGestionMateriaux->Next();
}
 
TGestionMateriaux->Edit();
TGestionMateriaux->FieldByName("Produit")->Value=EProduit->Text.c_str();
TGestionMateriaux->Post();
TGestionMateriaux->Refresh();

Essaye et dis moi je finirai bien par y arriver

Je suis meme pas sur que les lignes :

Code :

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

1
2
3
 
TLocateOptions Option;
TGestionMateriaux->Locate("produit",EProduit->Text.c_str(),Option)

soit necessaire

[kalou26]

ca ne marche pas
qd je rentre le meme nom de produit, ca le rajoute, et qd je rentre un nom diferent ca ne le rajoute pas, le contraire de ce ke ca devrais faire
mais sa ne fait pas completement ce ke je voudrais, car je veux que lorsque le nom de produit existe, cela remplace les autres colones de la meme ligne et que lorsque le nom de produit existe pas, cela fasse une autre ligne

[Furlaz]

C'est quoi le nom de tes autres colonnes ? et les les TEdit ou autres ou il doit récuperer les autres données ?

[kalou26]

comme colonnes il y a : famille, fabriquant, produit, remarque, lien1, lien2, lien3, lien4, lien5
et comme edit, c les meme noms avec un E en + devant le nom
comme EFamille

[lanonyme]

Bon je viens de manger mon cerveau se remet en marche, essaye donc cela :

il manque une virgule, apres manger

Mais sur le coup

lanonyme

[Furlaz]

il manque une virgule, apres manger

Mais sur le coup

lanonyme

Effectivement, mais c'est peut etre pour ca que je trouve pas la solution

[kalou26]

ton code marche presque furlaz
en fait lorsque le produit n'existe pas, cela le crée en en ecrasant un otre, alors quil faudrait en crée un nouveau
aussi, cela n'ecrase pas la bonne ligne, cela ecrase la ligne selectionnée et non celle qui porte le meme nom de produit

[Furlaz]

ton code marche presque furlaz

Tu a mis != ou == dans le 1er if ?