Discussion :

[piopium]

Bonjour,

Suite à l'exécution d'une requête, je souhaite récupérer le nom des champs pour alimenter une StringList. La requête est correctement exécutée puisque je peux crée dynamiquement par la suite un StringGrid contenant les valeurs résultantes de ma requête.

voici la boucle qui pose problème:
myFields := mysql_fetch_fields(myRES);
nb_champs := mysql_num_fields(MyRes);

Code :

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

1
2
3
4
5
for i := 0 to nb_champs - 1 do
begin
   astr := myfields^[i].name;
   list.Add(astr);
end;

Petit exemple: ma requête contient 3 champs. Lorsque je fais:
myfields^[0].name; qui me donne le bon de champs
myfields^[1].name; la chaîne donnée est vide
myfields^[2].name; plante

Je ne comprend pas où est mon erreur.

[ShaiLeTroll]

Il nous manque du code (je pense surtout mysql_fetch_row), mais je peux te donner le mien, qui rempli un DataSet Mémoire à partir des API

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
29
30
31
32
33
34
35
36
37
38
39
 
                  with TMemoryClientDataSet(Result) do
                  begin
 
                     // initialisation des colonnes
                     mysql_field_seek(Result_RES, 0);
                     for iCol := 0 to mysql_num_fields(Result_RES)-1 do
                     begin
                        Field_RES := mysql_fetch_field(Result_RES);
                        AddField(Field_RES.name,
                                 TypeMySQLToTypeDB(Field_RES._type),
                                 GetLengthTypeMySQL(Field_RES._type, Field_RES.max_length));
                     end;
 
                     Open();
 
                     // Remplissage des Champs
                     Record_RES := mysql_fetch_row(Result_RES);
 
 
                     while Assigned(Record_RES) do
                     begin
                        mysql_field_seek(Result_RES,0);
 
                        Append();
                        for iCol := 0 to mysql_num_fields(Result_RES)-1 do
                        begin
                           Field_RES := mysql_fetch_field(Result_RES);
                           if Assigned(Record_RES[iCol]) then
                           begin
                              Fields[iCol].Value:= ValueMySQLToDB(Field_RES._type, Record_RES[iCol]);
                           end;
                        end;
                        Post();
 
                        Record_RES := mysql_fetch_row(Result_RES);
                     end;
                  end;
               end;