' Data dostępny
Ciemnawy sSQL3 Sznurek
Ciemnawy oConnect3 Jako ADODB.Connection
Set oConnect3 = Nowy ADODB.Connection
Ciemnawy oRST3 Jako ADODB.Recordset
Set oRST3 = Nowy ADODB.Recordset
sSQL3 = "WYBIÓRKA [Période] OD [Inventaire] '"
oConnect3.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & _
"Dane Source=" & Form4.txt BaseDe.Text
ComDateDisponible.AddItem ""
oRST3.Open sSQL3, oConnect3
Do oRST3.EOF
ComDateDisponible.AddItem oRST3 ("Période")
oRST3.MoveNext
Pętla
|