Ошибки при работе с большим recordset на Acctss 2003

[citysoft]

Здравствуйте!
При размере recordset равным примерно 9000, во время удаления всех записей в цикле
возникает ошибка: run time error -2147217887
Multiple-step OLE DB operation generated errors .......
При чтении тоже возникает ошибка
Что делать ?
Заранее спасибо.

[iGrok]

Здравствуйте!
При размере recordset равным примерно 9000, во время удаления всех записей в цикле
возникает ошибка: run time error -2147217887
Multiple-step OLE DB operation generated errors .......
При чтении тоже возникает ошибка
Что делать ?
Заранее спасибо.

А ЗАЧЕМ ты удаляешь ВСЕ записи ЦИКЛОМ??? Ты не знаешь, что такое SQL? И что делает "DELETE FROM [table]"? Или причина в другом?

Ну а насчёт ошибки - показывай код. У меня Access 2003 абсолютно нормально работает с БД на полмиллиона записей..

[alibek]

Покажи, как удаляешь.

[citysoft]

За DELETE FROM спасибо, как-то вылетело из головы, но при чтении тоже неприятности
Хотелось бы узнать, в чем ошибка

Вот код удаления, он довольно длинный, но как есть

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

Dim dataSelect As String, Rec As Recordset
'Создаю Recordset
    dataSelect = "SELECT * FROM Osob  WHERE erase_zap = 1"
    Set Rec = New ADODB.Recordset
    Rec.Open dataSelect, cnctEvolution, adOpenKeyset, adLockOptimistic
    If Rec.RecordCount > 0 Then Call DelRec(Rec)'Вызываю программу удаления Recordset

Sub DelRec(ByVal RecDel As ADODB.Recordset)
'Удаление всех записей в Recordset
'RecDel - Recordset таблицы
  If RecDel.RecordCount = 0 Then Exit Sub
  RecDel.MoveFirst
  Do Until RecDel.EOF  '
         Call DelZap(RecDel)'Вызываю программу удаления  текущей записи
         Loop
End Sub
***********************************
Sub DelZap(ByVal RecDel As ADODB.Recordset)
'Удаление текущей записи в Recordset (если п.п. стоит в цикле DO...Loop, не использовать совместно с MoveNext)
'If .... Call DelZap Else MoveNext
'RecDel - Recordset таблицы
  If RecDel.EOF Then Exit Sub
  RecDel.Delete
  If RecDel.EOF And RecDel.BOF Then Exit Sub
  RecDel.MoveNext
   If RecDel.EOF Then
       RecDel.MovePrevious
                                  End If
End Sub

[Viper] :: Пользуемся тэгом CODE!

[iGrok]

Rec.Open dataSelect, cnctEvolution, adOpenKeyset, adLockOptimistic

Меня смущает только adOpenKeyset. Но только потому, что я им никогда не пользовался, и не особо представляю, что это. Всю жизнь юзал только adOpenStatic с клиентским курсором.
Впрочем, судя по описанию, это не должно влиять.

На какой строке ругается на удалении? На RecDel.Delete ?
И покажи, где и на что ругается при чтении.

[SLIM]

Ужасный код. Тысяча проверок не понятно зачем непонятно почему....честно пытался разобраться, но не понял основную цепочку событий...понял только идею
1.Открываем записи
2.вызываем процедуру которая в цикле обхода записей вызывает процедуру удаления одной записи


Это все ужастно медленно.
Во-первых не стоит клиентский курсор
Во-вторых зачем тысячу раз проверять Eof?
В-третьих зачем промежуточная процедура DelZap, если можно удалять все в цикле DelRec?
В-четвертых, если не ошибаюсь (а это возможно, ибо так я никогда не удалял), то RS.Delete - это не удаление текущей записи
В-пятых ну правда какой великий смысл удалять таким образом? Просто прочти три страницы по SQL-запросам ив се поймешь. Там оказывается еще и добовлять можно, и удалять, и много многое другой

Ну и хотелось бы посмотреть что происходит при чтениии?

З.Ы. Весь твой код преобразуется в одну строку "DELETE * FROM Osob WHERE erase_zap = 1"....и все ))))

[citysoft]

Согласен, что сделано далеко не лучшем образом.
Насчет курсора:
чем плох adOpenKeyset ?
смущает фраза "adOpenStatic с клиентским курсором", вроде бы adOpenStatic сам курсор (статический)
Во-вторых и -третьих не стоит дискуссии
RS.Delete - именно удаление текущей записи
Насчет "DELETE * FROM действительно все работает, однако одной строкой не обойтись:
если создан RS, а потом его надо уничтожить из базы, придется запоминать переменную свыражением "WHERE ......"
Что касается чтения, то это не моя ошибка, я поплакался коллеге а он сказал что у него такое было при чтении

[iGrok]

Чем плох - не знаю. Просто одна из возможных причин такой ошибки - рекордсет не поддерживает операцию удаления.
Так что показывай строку соединения (connection string), и попробуй всё-таки поэкспериментировать с типами курсоров/подключений.

[SLIM]

Насчет "DELETE * FROM действительно все работает, однако одной строкой не обойтись:

Двумя строчками
1. Создаем объект Connection со всем примочками
2. Делаем Connection.Execute(SQL-запрос)

если создан RS, а потом его надо уничтожить из базы, придется запоминать переменную свыражением "WHERE ......"

Не совсем понял что именно имеешь в виду. Ну на первый взгляд можно иметь и глобальную переменную с выражением WHERE...., все зависит от ситуации

В любом случае как сказал iGrok - нужна строка коннекта еще

Что касается чтения, то это не моя ошибка, я поплакался коллеге а он сказал что у него такое было при чтении

Ну не знаю....как-то мне приходилось читать базу dbf, которая весила метров 18-20...нормально читает.

[Andrey Fedorov]

Ну не знаю....как-то мне приходилось читать базу dbf, которая весила метров 18-20...нормально читает.

Мне приходилось работать с MDB-шкой под 2 гига - без проблем...

[SLIM]

Мне приходилось работать с MDB-шкой под 2 гига - без проблем...

Тем паче