1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 :
' date disponible Faible sSQL3 comme corde Faible oConnect3 comme ADODB.Connection Placer oConnect3 = nouvel ADODB.Connection Obscurcir oRST3 comme ADODB.Recordset Placer oRST3 = nouvel ADODB.Recordset sSQL3 = « CHOISISSENT [Période] À PARTIR [Inventaire] ' » oConnect3.Open « Provider=Microsoft.ACE.OLEDB.12.0 ; » et _ « Point d'émission = » et Form4.txt BaseDe.Text "" De ComDateDisponible.AddItem oRST3.Open sSQL3, oConnect3 Faire jusqu'à oRST3.EOF ComDateDisponible.AddItem oRST3 (« Période ») oRST3.MoveNext Boucle