Passer les valeurs distinctes d'un SQL dans un combobox
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:
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; |
