В чем ошибка?
У меня выдается сообщение "отсутствует значение для одного или нескольких требуемых параметров" в операторе
.Source = "SELECT * FROM gbst WHERE d_0<>0 or d_1<>0 or d_ob<>0 or k_0<>0 or k_1<>0 or k_ob<>0 ORDER by st"
.Open .Source, cn1, adOpenKeyset, adLockOptimistic
в таком фрагменте:
With cn1
'Если база 2000, то провайдер такой:
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = GBmenu.Pth0 + "\" + GBmenu.Xnamestat
.Open
End With
'Устанавливаем свойства рекордсета и открываем его
With rs1
.ActiveConnection = cn1
.LockType = adLockReadOnly
.CursorType = adOpenDynamic
'делаем выборку непустых строк
.Source = "SELECT * FROM gbst WHERE d_0<>0 or d_1<>0 or d_ob<>0 or k_0<>0 or k_1<>0 or k_ob<>0 ORDER by st"
.Open .Source, cn1, adOpenKeyset, adLockOptimistic
' .Open
End With
Ответить
|