1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19:
' fecha disponible sSQL3 dévil como secuencia oConnect3 dévil como ADODB.Connection Fijar oConnect3 = nuevo ADODB.Connection Amortiguar oRST3 como ADODB.Recordset Fijar oRST3 = nuevo ADODB.Recordset sSQL3 = “SELECCIONAN [Période] DE [Inventaire] '” oConnect3.Open “Provider=Microsoft.ACE.OLEDB.12.0; ” y _ “Datos Source=” y Form4.txt BaseDe.Text "" De ComDateDisponible.AddItem oRST3.Open sSQL3, oConnect3 Hacer hasta oRST3.EOF ComDateDisponible.AddItem oRST3 (“Période”) oRST3.MoveNext Lazo