Тусклое sSQL2 как шнур
Тусклое oRST2 как ADODB.Recordset
Тусклое oConnect2 как ADODB.Connection
Установите oRST2 = новое ADODB.Recordset
Установите oConnect2 = новое ADODB.Connection
sSQL2 _
= «_ ОТБОРНОЙ суммы ([Quantité_assignée])»
& «ОТ [employé распределения]» _
& «ГДЕ Période = «» & ComDateDisponible.Text & «» «_
& « И Description_du_produit = «» & Des_prod.Text & «» «
oConnect2.Open «Provider=Microsoft.ACE.OLEDB.12.0; » & _
«Данные Source=» & Form4.txt BaseDe.Text &»; «
oRST2.Open sSQL2, oConnect2
MsgBox oRST2.Fields (0). Значение
|