' Присвоение переменным, значений из таблицы TUNING_TBL
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open " SELECT TUNING_TBL.*" _
& " From TUNING_TBL", GLB_CONNECTION, adOpenKeyset, adLockOptimistic
If rst.RecordCount <> 0 Then
rst.Find "ID = 'Папка_Архивов'", , adSearchForward, 1
GLB_PATCH_ARHIV = rst("STR_PATCH")
rst.Find "ID = 'Папка_Компонентов'", , adSearchForward, 1
GLB_PATCH_COMPONENTS = rst("STR_PATCH")
|