dataCombo

[netfrog]

--------------------------------------------------------------------------------
В DataCombo натянуто некоторое кол-во записей из рекордсета. Подскажите - занимающий минимум ресурсов способ отрезать от всего рекордсета часть, т.е. например с 3 по 7 запись. Можно конечно отфильтровать на сервере в хр. проц. но это тормозливо.

[ta_gena]

Я не понял, а что в SQL запросе это сразу сделать нельзя?

[netfrog]

достаточно тормозливо, особенно при доступе через инет, проще поиметь на клиенте рекордсет и там уже над ним издеваться

[netfrog]

попробовал через фильтр но он только переводит комбобокс на нужную запись, оставляя отображаемым весь набор, как это победить?

Код: Выделить всё

Private Sub rsCombo()
Dim cmdTekMerop As New ADODB.Command
Set cmdTekMerop.ActiveConnection = frmLogon.cn
  cmdTekMerop.CommandText = "procTekObjMerop"
  cmdTekMerop.CommandType = adCmdStoredProc

  cmdTekMerop.Prepared = True
  cmdTekMerop.Execute

Set rsTekMerop = New ADODB.Recordset
With rsTekMerop
   .LockType = adLockReadOnly
   .CursorType = adOpenStatic
   .CursorLocation = adUseClient
   .Open cmdTekMerop
End With

'источник данных комбобоксу
Set cmbObj(0).RowSource = rsWorktype
  cmbObj(0).ListField = "name"
  cmbObj(0).Text = rsWorktype.Fields("name").Value
End sub

Private Sub optObj_Click(Index As Integer)
Select Case Index
  Case 0
   MsgBox "0"
   Case 1
   MsgBox "1"
   rsTekMerop.Filter = "id = 2"
 
   Set cmbObj(2).RowSource = rsTekMerop
   cmbObj(2).ListField = "nameTekMerop"
   cmbObj(2).Text = rsTekMerop.Fields("nameTekMerop").Value
   
End Select
end sub