Discussion :

[jer64]

Bonjour,

Avec des composants tibdataset, tdatasource,tdbedit:

Dans une table de 20 colonnes, je souhaite parcourir ma table pour effacer dans deux colonnes(toujours les mêmes) toutes les données identiques de ces 2 colonnes.

Par exemple si sur plusieurs enregistrements de ma table, je trouve 'PAPA' sur la colonne 15, alors je veux que 'PAPA' soit remplcé par un vide.

Merci d'avance.

Jer.

[Rayek]

Avec un TxxxTable cela va être fastidieu et de plus en plus long au fur et à mesure que ta table va grossir.

Le mieux c'est de passer par une requete

Code :

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

1
2
3
4
5
 
Update LaTable
Set
  Colonne15 = null
Where Colonne15= 'PAPA'

[jer64]

Ok pour la requête mais je n'arrive pas à la faire fonctionner.

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
procedure TFormClients.Button1Click(Sender: TObject);
begin
 
datamodule1.IBDataSet1.Edit;
datamodule1.IBDataSet1.ModifySQL.Add('Update corresp set correspondant=null where correspondant=''PAPA');
datamodule1.IBDataSet1.Post;
 
end;

Merci d'avance.

Jer

[Harry]

Essaye de le faire dans composant IBQuery.

[jer64]

Cela ne marche pas même avec un ibquery??????

Code :

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

1
2
3
4
5
6
 
 
ibquery1.Close;
ibquery1.SQL.Clear;
ibquery1.SQL.Add('Update corresp set correspondant=null where correspondant='+''+'PAPA'+'');
ibquery1.Open;

[Rayek]

Open ce n'est qu'avec les requetes de type select que cela fonctionne, avec les requetes Update/Insert/Delete il faut utiliser une commande que je ne peux t'indiquer car IB n'est pas installé sur mon post (je viens de le voir ^^).

[jer64]

Vraiment je n'y arrive pas,

Mon dernier essai infructueux

Code :

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

1
2
3
4
 
 
ibdataset1.Edit;
Ibdataset1.ModifySQL.Add('Update clients set CORRESPONDANT=null where CORRESPONDANT='+''''+'PAPA'+'''');

Si quelqu'un à une idée?

Jer

[WolffN]

salut

utilise une query sql

Code :

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

1
2
3
4
5
 
with querysql do begin
  sql.text:='Update corresp set correspondant=null where correspondant='+#39+'PAPA'+#39;
  execsql;
end;

@+

[jer64]

Merci beaucoup, cela marche et c'est parfait.

A+

Jer