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 ?

[kalou26]

c du texte

[Sunchaser]

? C'est un TEdit ?
Sinon, tu peut aussi bien utiliser le TDataSource qui doit 'alimenter' ton TDBGrid...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
TonDataSource->DataSet->Filtered = false;
TonDataSource->DataSet->Filter = AnsiString("Produit= '") + EProduit->Text + ("'");
TonDataSource->DataSet->Filtered = true;
if (!TonDataSource->DataSet->IsEmpty())
{
//la valeur existe déja
 
}
else
{
//la valeur n'existe pas
}
TonDataSource->DataSet->Filtered = false;

[kalou26]

ca ne fait pas ce ke je veux
car en fait jai plusieurs autres colones et je veux que ca n'ecrive pas les autres colones non plus si le produit existe
et ton filtrage ne serais pas une bonne solution car je ne peux pas rajouter un produit dont le debut et le meme qu'un autre mais pas la fin

[Sunchaser]

Le filtre tel quel ne te renverra une valeur que si il a trouvé un enregistrement identique a 100 %, et pas dans ce cas si il trouve une partie du texte similaire a un enregistrement....

//edit :
Quel est le type de table utilisé ?
Le type d'objets pour la connection : TTable, etc... ?

[kalou26]

je sais, justement cela ne fait pas dans mon cas
y aurait il une autre solution ???

[kalou26]

jai une table paradox
et une ttable et un tdatasource

[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 ?