Сортировка в ADO

[Zubik]

Всем привет.
Создал в Аксесе таблицу с парой полей. Поля проиндексировал. Собираюсь сортировать каждое при нажатии заголовка ЛистВьюира.

Set rs = New ADODB.Recordset

далее в программе ужэ пытаюсь сортировать (из примеров форума):
rs.Sort = "Name" ' где Нэйм - название поля в таблице

Но, при попытке сортировки вылазиет ошыбка:
Run-time error '3251'
Current provider does not support the necessary interfaces for sorting or filtering

[Zubik]

Забыл добавить, что провайдер у меня следующий:

Set cn = New ADODB.Connection
cn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & "db.mdb"

[VVitafresh]

Ты еще забыл добавить, как открываешь рекордсет. Возможно, используется серверный курсор.
Если рекордсет только для чтения, открывай так:

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

Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
rs.LockType = adLockReadOnly
rs.Open SQL, cn 'где SQL - Текст запроса

Сортировка работает.

[Zubik]

Спасибо большое

[Zubik]

Вот ещё какой вопрос.
Подскажите, как правильно работать с ADO.

Правильно ли каждый раз открывать рекордсет, потом делать например добавление записи, сортировку или ешо чонить, а потом его закрывать?
Т.е. получается что перед каждым действием я делаю Open а вконце Close.

Или нужно подругому?

[VVitafresh]

Наверное, зависит от количества Open/Close. Если это делается эпизодически при работе с приложением (например, открыл справочник, подредактировал, закрыл), то это нормальная ситуация.
Другое дело, если открытие/закрытие рекордсета происходит в цикле -- такого по возможности следует избегать.