Error 3021

[Dan2005]

Работаю над готовым проектом на vb6. Возникла след проблема, чтение из базы данных в этом проекте везде происходит примерно вот так:
Dim SCount As New ADODB.Recordset
SQL$ = "SELECT Log.Seq, Log.ID FROM Log WHERE Log.ID = " & Val(frmBoard.SSDBGrid1.Columns(13).Value) & " AND Log.SDate < #" & Format(Date, "mm/dd/yyyy") & "#;"
If SCount.State = 1 Then
SCount.Close
End If
SCount.open ConvertQuery(SQL$), MyDB, adOpenStatic, adLockReadOnly
SCount.MoveLast
SCount.MoveFirst
и далее идет работа с переменной SCount...
Вопрос: зачем перемещаться по записям MoveLast-MoveFirst? Приведенный код встречается в проекте дважды (один в один), так вот в одном месте при этих перемещениях по записям выдает ошибку 3021. Не знаю как с ней бороться! Плиз, хелп!

[GSerg]

1. Внедрение переменных в текст запроса прекратить, использовать ADODB.Command.
2. Что понятнее: 1 или adStateOpen?
3. ConvertSQL (подозреваю, что он делает) убрать, использовать ADODB.Command.

По существу вопроса.
Переход на последнюю запись делается нехорошими программистами для определения количества записей в рекордсете, потому что после этого recordcount что-то начинает значить.
На самом деле можно просто открыть клиентский рекордсет.

[Dan2005]

а какими способами можно определить количество записей в рекордсете? что значит открыть клиентский?

[alibek]

Клиентский рекордсет -- это рекордсет с CursorLocation=adClient. После этого можно использовать свойство RecordCount.

[SergT]

А в какой ситуации выдает RecordCount=-1 и какие "неприятности" могут возникать при использовании CursorLocation=adClient?
Вопрс может звучать КорЯво, но (честно говоря), у меня была похожая проблемка . Решение было принято "навсегда":
If rst.RecordCount <>0 Then
rst.MoveLast
rc=rst.RecordCount
rst.MoveFirst
...
Всегда работает!. Однако.. может приспичить

[alibek]

RecordCount=-1 бывает при серверном курсоре.

При клиентском курсоре все данные (рекордсет) хранятся у клиента, т.е. сервер передает полученную выборку по сетке. В случае большого рекордсета и/или слабой сетки будут тормоза. Но зато это дает возможность делать сортировку/фильтр на клиенте, не нагружая сервер. Или использовать отвязанный рекордсет.
При серверном курсоре такой проблемы нет, но и нет части функциональности.

[Andrey Fedorov]

SQL$ = "SELECT Log.Seq, Log.ID FROM Log WHERE Log.ID = " & Val(frmBoard.SSDBGrid1.Columns(13).Value) & " AND Log.SDate < #" & Format(Date, "mm/dd/yyyy") & "#;"

Просто неправильно составляешь строку запроса.

Для MS SQL условие на дату должно прописывться так:

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

" SELECT ... FROM ... WHERE ... AND Log.SDate < '" & Format(Date, "yyyymmdd") & "'"

[Andrey Fedorov]

SQL$ = "SELECT Log.Seq, Log.ID FROM Log WHERE Log.ID = " & Val(frmBoard.SSDBGrid1.Columns(13).Value) & " AND Log.SDate < #" & Format(Date, "mm/dd/yyyy") & "#;"

Просто неправильно составляешь строку запроса.

Для MS SQL условие на дату должно прописывться так:

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

" SELECT ... FROM ... WHERE ... AND Log.SDate < '" & Format(Date, "yyyymmdd") & "'"

[SergT]

RecordCount=-1 бывает при серверном курсоре.

При клиентском курсоре все данные (рекордсет) хранятся у клиента...

Не хочу Вас терзать (возможно простыми) вопросами, но я не очень понял разницу и главное зачем это придумано. Наверное для разгрузки "сетки"? Нет ли ссылочки (лучьше на русском), а то я не нашел.
Хотя , подозреваю, что в ответе Alibek'а содержится лаконичное и почти полное пояснение (он всегда дает такие ответы)

[alibek]

Ну, к примеру, результатом выборки может быть рекордсет на пару десятков (сотен) мегабайт. И перемещать его по сетке на клиента (особенно если сеть не локальная) будет очень долго и неудобно. Поэтому используется серверный курсор.
У клиентского курсора свои преимущества, прежде всего возможность сортировки и использования отвязанных рекордсетов.
Какое именно размещение курсора использовать, решает сам разработчик.