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;