' Datum vorhanden
Schwaches sSQL3 als Schnur
Schwaches oConnect3 als ADODB.Connection
Einstellen oConnect3 = neues ADODB.Connection
oRST3 als ADODB.Recordset verdunkeln
Einstellen oRST3 = neues ADODB.Recordset
sSQL3 = „WÄHLEN [Période] VON [Inventaire] '“ vor
oConnect3.Open „Provider=Microsoft.ACE.OLEDB.12.0; “ u. _
„Datenquelle =“ u. Form4.txt BaseDe.Text
ComDateDisponible.AddItem ""
oRST3.Open sSQL3, oConnect3
Bis oRST3.EOF tun
ComDateDisponible.AddItem oRST3 („Période“)
oRST3.MoveNext
Schleife
|