Ciemnawy sSQL2 Sznurek
Ciemnawy oRST2 Jako ADODB.Recordset
Ciemnawy oConnect2 Jako ADODB.Connection
Set oRST2 = Nowy ADODB.Recordset
Set oConnect2 = Nowy ADODB.Connection
sSQL2 _
= "WYBRANY Suma ([Quantité_assignée])" _
& "OD [Dystrybucja employé]" _
& "DOKĄD Période = "" & ComDateDisponible.Text & "" "_
& " I Description_du_produit = "" & Des_prod.Text & "" "
oConnect2.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & _
"Dane Source=" & Form4.txt BaseDe.Text &"; "
oRST2.Open sSQL2, oConnect2
MsgBox oRST2.Fields ((0)). Wartość
|