Discussion :

[Vulcanos]

Bonjour à tous,

J'ai 3 champs d'une table à mettre à jour par l'intermédiaire de 3 DBLookupComboBox et ça ne fonctionne pas bien :

je ne récupère qu'1 seul champ dans la liste déroulante et, en plus, je n'arrive pas à le sélectionner !

J'ai regardé la FAQ mais je n'ai pas eu toutes les réponses.

Faut-il associer autant de DataSet qu'il y a de LookupCombobox ? Cette solution me semble lourde, non ?

Comment définir, dans le Dataset le champ servant à se positionner sur l'enreg que l'on veut modifier ?

Auriez-vous un source en exemple ?

Merci d'avance.

(Delphi 2005 et Interbase 6.0)

[Manopower]

le contenu de tes lookup doivent être dans un dataset que tu liera avec un DataSource via la propriété ListSource et ListField de ta lookupcombo

le champ que tu veux mettre à jour dans ta base est lui relié à la propriété Datasource / DataField

Tu as donc à priori 4 Dataset : La table a modifier et les 4 "sources" remplissant tes 3 combos différentes.

[Vulcanos]

Merci : c'est un peu mieux... Mais c'est pas ça...
Je n'arrive pas à mettre à jour ma table, je dois être un gros pingouin et qqchose m'échappe...

Dans le Dataset de mise à jour, j'ai écrit en SelectSQL :

Code :

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

1
2
3
4
 
select CHAMP_1 , CHAMP_2, CHAMP_3
from MA_TABLE
WHERE PROPRIETE_10= 'A2'

Dans ModifySQL, j'ai :

Code :

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

1
2
3
4
5
6
7
8
 
update MA_TABLE
set
  CHAMP_1 = :champ_1,
  CHAMP_2 = :champ_2,
  CHAMP_3 = :Champ_3
where
  PROPRIETE_10= 'A2'

CHAMP_1, CHAMP_2, CHAMP_3 sont les données DataField des 3 LookupCombo.

Comment rendre

Code :

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

PROPRIETE_10

(clause WHERE) variable dans le DataSet ?
Je récupère cette valeur depuis un TEdit.

[Manopower]

Les DBLookUpComboBox, si elles sont reliées a ton Dataset via la propriété "DataSource et DataField" modifient eux-même ta table, il ne reste plus qu'a valider avec un

Code :

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

MonDataSet.post;

Pas besoin de requête SQL Update

[Manopower]

Pour réponde à ta question

Comment rendre Code:
PROPRIETE_10
(clause WHERE) variable dans le DataSet ?
Je récupère cette valeur depuis un TEdit.

Il faut passer par un Paramètre
Sur ton objet Query tu vas sur la propriété Params et tu en ajoute un de type "String"

ensuite tu écriras ceci :

Code :

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

1
2
3
4
 
Query1.active:=false;
Query1.parambyname('Param_PROPRIETE_10').asstring:=Edit1.text;
Query1.active:=true;

Et dans le SQL tu remplaces ton

Code :

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

1
2
where 
  PROPRIETE_10= 'A2'

par

Code :

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

1
2
3
 
where 
  PROPRIETE_10= :Param_PROPRIETE_10

C'est une solution parmis d'autres, bonne fin de journée

[Vulcanos]

J'ai essayé, je n'arrive toujours pas à mettre à jour ma table.
Après :

Code :

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

MonDataSet.post;

j'ai fait un commit
J'ai également vérifié en faisant :

Code :

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

1
2
3
4
5
 
procedure TDataModule2.IBDSDialAct01BeforePost(DataSet: TDataSet);
begin
 ShowMessage(fDialAct.DBLCBNotat.Keyvalue);
end;

(IBDSDialAct01 : mon dataset et fDialAct.DBLCBNotat : mon DBLookupCombo).
La valeur retournée est conforme à ce que j'attends.
D'autre part, je suis obligé de mettre un ordre UPDATE dans le DataSet sinon je plante ("Source de données non ouverte en mise à jour" ou un truc de ce genre là).

Je vais continuer à chercher... Merci pour tout.

[Manopower]

Bonjour Vulcanos,
Tes composants DBLookup ont ils leur propriété AutoEdit = True ? Si oui dès que tu modifie ta sélection ton dataset doit passer en mode édition.
Tu utilises quoi comme composant pour te connecter à ta base ? BDE ? DBExpress ? Autres ?

[Vulcanos]

Bonjour Sylvain,

Je n'ai pas de proprité AutoEdit associé au composant (j'ai fait F1 pour vérifier !) et il n'y a rien qui y ressemble.

J'utilise les composants INTERBASE (IBX) et Delphi 2005.

[Manopower]

je ne les jamais utilisé ces composants là désolé je ne peux pas d'aider plus

[Vulcanos]

Sylvain,

J'ai résolu mon problème ... Ce n'est pas trés beau, mais ça fonctionne en attendant mieux... J'ai récupéré les valeurs des Keyvalues, puis au moment de valider, j'exécute un SQL en mise à jour :

Code :

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

1
2
3
4
5
6
7
 
IBSQL1.ParamByName('InNomAct').AsString := InNomAct;
  IBSQL1.ParamByName('InNtAct').AsInteger := InNtAct;
  IBSQL1.ParamByName('InStAct').AsInteger := InStAct;
  IBSQL1.ParamByName('InVlAct').AsInteger := InVlAct;
  IBSQL1.ExecQuery;
  IBTransaction1.Commit;

InNomAct, ..., InVlAct étant mes Keyvalues.

En tout cas, encore merci pour tous tes conseils.

Trés bonne journée.