1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| IF NOT db.Current.Opened THEN
db.Current.Open '<---------------------------------' ouverture de la base par défaut
ENDIF
hResult = db.Exec("select * from Table1 " & tri) '<----' requête sur la base
IF hResult.Available THEN '<---------------------------' Si la requête donne un résultat
ComboBox1.Clear() '<---------------------------------'effacement du comboBox1
FOR EACH hResult '<---------------------------------' pour chaque résultat
ComboBox1.Add(hResult!Nom) '<---------------------' remplissage du ComboBox1 avec les noms des stations. on peut remplacer Add par push voir documentation
NEXT
hResult.MoveTo(FMain.ind) '<------------------------' on bouge jusqu'à l'index (ind)
ENDIF
|