Discussion :

[jean christophe]

Bonjour,
Je veux passer le résultat d'une requete dans un combobox.
Le code fonctionne tres bien sous delphi, mas ne me retourne rien sous Lazarus, même si apparament il n'y a pas de fautes.
Est ce que quelqu'un peut me dire si il y a une faute de syntaxe ?
Merci
Jean Christophe

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
 
procedure TForm_Timbres.SQLLand ;
var
Max,min : integer;
Begin
Temp := 'SELECT DISTINCT cataloguecountry FROM ' + Kataloget + ' ;' ;
If SQLKatalog_element.State <> dsInactive then SQLKatalog_element.Close ;
SQLKatalog_element.SQL.Clear ;
SQLKatalog_element.SQL.Add(temp);
SQLKatalog_element.Prepare;
SQLKatalog_element.Open;
SQLKatalog_element.Active:= true ;
   with CmbBx_Land do
   Begin
Max := SQLQuery_Katalog.RecordCount;
SQLKatalog_element.First;
for Min := 1 to Max do
       begin
       if SQLQuery_Katalog.Fields[0].value <> null then
           Begin
           items.Add ( SQLQuery_Katalog.Fields [0].Value ) ;
           SQLKatalog_element.Next;
           end
           else SQLKatalog_element.Next;
       end;
   end;
end;

[Clandestino]

A ta place je mettrais un point d'arrêt sur la ligne :

if SQLQuery_Katalog.Fields[0].value <> null then

et j'afficherais la fenetre de debogguage concernant les variables locales :
CTRL + ALT + L

Ainsi, en t'arrétant sur cette ligne de code précise et en verifiant à chaque boucle les valeurs passées, tu trouveras certainement la réponse à la non mise à jour de ton combobox.

[dnode57]

Salut Jean Christophe,

Je ne sais pas quelle version de Lazarus tu utilises, cependant depuis la 0.9.25, les composants affichent uniquement des chaines de caractères en UTF8, ce que ton query ne renvoie pas, ça serait trop facile !

Si tu est en 0.9.25 ou >, va voir ceci http://www.developpez.net/forums/d61...ext-ttreenode/, j'ai également été confronté au pb.

@+

Dnode57.

[jean christophe]

Je tourne sous 0.9.24

En fait le probléme vient en partie de ma syntaxe, mais ca j'ai réussi á corriger, et en partie de MySQL qui ne veux pas me retourner la requete "select distinct ...".

J'ai ouvert un nouveau poste sur le forum MySQL, mais je crois que je suis dans la m....

Voila oú j'en suis.

Merci pour le coup de main.
Jean Christophe

[dnode57]

Salut JC,

Ta requête SQL n'est pas un modèle du genre , mais elle n'est pas fausse non plus. Simple petite remarque concernant RecordCount, cette propriété ne renvoie pas la totalité des enregistrements sélectionnés, ne me demande pas pourquoi, c'est ce que j'ai constaté lorsque j'utilisais cette propriété, un bug certainement, je n'ai pas encore vérifié sur le forum ou le bug tracker de FreePascal.

Pour éviter de jongler avec les boucles For...To, tu peux essayer ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
with CmbBx_Land do
   Begin   
        SQLKatalog_element.First;
        While Not(SQLKatalog_element.Eof) do
               begin
                    if SQLQuery_Katalog.Fields[0].value <> null then
                       items.Add(SQLQuery_Katalog.Fields[0].Value);
                    SQLKatalog_element.Next;
               end;
   end;

[chris37]

Jean Christophe

Je t'avais répondu sur l'autre furum
LOL

[jean christophe]

Merci Chris et Dnode.

Désolé Chris, mais ca m'arrive souvent de poser les mêmes questions sur différents forums. j'espére que tu n'es pas offensé, sinon excuse moi.

Dnode, tu parles de UTF8 dans la version 0.9.25/6, mais je crois que c'est le probléme que je rencontre déja sur le 0.9.24.

J'ai ouvert une nouvelle file ici :
http://www.developpez.net/forums/d62...inct-row-from/

En fait j'y perds un peu mon latin, et je pense que je vais lancer les mêmes requëtes sur 3 champs de la même table avec différents programmes et présenter les résultats sur le forum.
MySQL en mode console, MySQL adminsitrator et Lazarus.

A bientot donc!
Merci pour votre aide.
Jean Christophe