Discussion :

[animalx123]

Bonjour
jai un probleme avec Adoquery , quand je veux afficher le resultat d'une requette sur un DBlistbox ca m'affiche un message d'erreur suivant:
"informations sur la colonne cle insuffisante pour la mise a jour et rafrechisment"
voila la requette que j'ai mis sur l'inspecteur d'objet de adoquery sur string

Code :

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

1
2
select desision_fcb ,count(FCB_employer.id_emp) as 'nbr emp' from FCB  inner join FCB_employer  on FCB.id_fcb=FCB_employer.id_fcb
where desision_fcb not in (select nom_theme from theme) group by desision_fcb

et je suis sur sql server 2016

et le code delphi(XE3) :

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
procedure TForm11.Button1Click(Sender: TObject);
begin
ADOQuery1.Active:=false;
ADOQuery1.open;
self.ADOQuery1.Refresh;
self.ADOQuery1.ExecSQL;
 
 
with self.ADOQuery1 do
     begin
       open;
       first;
       while not eof do
           begin
             dbListBox1.Items.Add(self.ADOQuery1.FieldByName('desision_fcb').AsString + ' '+ self.ADOQuery1.FieldByName('nbr emp').AsString);
 
             next;
           end;
           first;
     end;
end;
 
end.

merci d'avance

[SergioMaster]

Bonjour,

je ne me positionnerais pas sur le SQL sensu stricto mais AMHA il y a certainement des améliorations à y faire, c'est plutôt une question à poser sur le Forum Base de Données/SQL
pour ce qui est du code en revanche, il y a trop de lignes (et de Self) dont beaucoup sont inutiles, et justement entre autre celle qui plante (Refresh)

* les codes entre <s> sont inutiles

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
27
28
 
procedure TForm11.Button1Click(Sender: TObject);
begin
ADOQuery1.Active:=false; // je ne suis pas sûr du besoin mais l'instruction  pourrait se situer dans le with et avant le open
<s>
// ADOQuery1.open;  // vous faites l'ouverture dans le with
// self.ADOQuery1.Refresh;   // non vous venez juste de l'ouvrir et pire il n'y a pas de clé => l'erreur
// self.ADOQuery1.ExecSQL; // non vous ne faites pas de modifications
</s> 
 
with <s>self.</s>ADOQuery1 do
     begin
       open;
 <s> 
//      first; // inutile après un open on est toujours au début
</s>
       while not eof do
           begin
              dbListBox1.Items.Add(FieldByName('desision_fcb').AsString + ' '+FieldByName('nbr emp').AsString);
              //  un format aurait été plus "propre"     
              // dbListBox1.Items.Add('%s %d',[FieldByName('desision_fcb').AsString,FieldByName('nbr emp').AsInteger]);  
             next;
           end;
           first; 
     end;
end;
 
end.

[animalx123]

effectivment ca marche , merci beucoup
et la je sais pas si je dois ouvrire une autre descution ou la poser ici ,car ca conserne le meme sujet ,
je veux savoir si je met une listebox normal a la place du dblistebox,et je selectione un item,quelle est l'evenment a utiliser et comment parametrer l'item selectioner pour executer une procedure stocker
Merci encor