1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19:
' data disponível sSQL3 não ofuscante como a corda oConnect3 não ofuscante como ADODB.Connection Ajustar oConnect3 = ADODB.Connection novo Escurecer oRST3 como ADODB.Recordset Ajustar oRST3 = ADODB.Recordset novo sSQL3 = “SELECIONAM [Période] DE [Inventaire] '” oConnect3.Open “Provider=Microsoft.ACE.OLEDB.12.0; ” & _ “Origem de dados =” & Form4.txt BaseDe.Text "" De ComDateDisponible.AddItem oRST3.Open sSQL3, oConnect3 Fazer até oRST3.EOF ComDateDisponible.AddItem oRST3 (“Période”) oRST3.MoveNext Laço