| |
|
|
| |
Dim rst_C As ADODB.Recordset
Set rst_C = New ADODB.Recordset
rst_C.Open "SELECT DISCONT_TBL.*" _
& " From DISCONT_TBL " _
& " ORDER BY DISCONT_TBL.ID_DISCONT;", GLB_CONNECTION, adOpenKeyset, adLockOptimistic
If rst_C.RecordCount <> 0 Then
rst_C.Sort = "ID_DISCONT" -здесь вылетает по ошибке
Do While Not rst_C.EOF
|
Не сортируется ни как.
Что я делаю не так? | |
| |
| |
| |
|
|
| | поправил код.
Dim rst_C As ADODB.Recordset
Set rst_C = New ADODB.Recordset
rst_C.CursorLocation = adUseClient
rst_C.Open "SELECT DISCONT_TBL.*" _
& " From DISCONT_TBL ;", GLB_CONNECTION, adOpenKeyset, adLockOptimistic
rst_C.Sort = "ID_DISCONT"
|
ошибка пропала
сортировка не появилась. | |
| |
| |
| |
|
|
| | Попробовал варианты
rst_C.Sort = "ID_DISCONT DESC" ' ASC
|
эффекта нет. | |
| |
| |
| |
|
|
| | Тут что-то иное, нежели не так.. | |
| |
| |
|
|
| |
|
|
| | This property requires the CursorLocation property to be set to adUseClient | |
| |
| |
|
|
| |
|
|
| | google translate
"Это свойство требует свойство CursorLocation быть установлен на adUseClient" | |
| |
| |
| |
|
|
| | rst_C.CursorLocation = adUseClient  | |
| |
| |
|
|
| |
|
|
| | Нет.
но и не навредило.
как-то по фигу этому коду. | |
| |
| |
