Ado, ASP, Access, RecordSet

[Sil]

Есть страничка asp на vb, которая посредством ado соединяется с базой access. Открыт recordset, из которого удаляются записи методом delete. Можно ли сделать так, чтобы из recordset записи удалялись, а из базы данных - нет?

[Ennor]

Попробуй рекордсет открыть как adReadOnly.

[Leon_]

Попробуй присвоить свойству ActiveConnection открытого рекордсета Nothing -- это сделает его "несвязанным". Вот что об этом пишут:

You can change the value of this property after opening the Recordset to send updates to another provider. Or, you can set this property to Nothing (in Microsoft Visual Basic) to disconnect the Recordset from any provider.

[Sil]

Попробуй рекордсет открыть как adReadOnly.

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

Попробуй присвоить свойству ActiveConnection открытого рекордсета Nothing -- это сделает его "несвязанным".

Говорит, что не может это сделать при открытом recordset.
________
Можно переформулировать вопрос? Задачка такая:
нужно из recordset считать все записи, но в произвольном порядке. Мне казалось, что проще всего считывать произвольную запись, затем удалять ее (чтобы не было повторений) и следующую считывать. Со считыванием проблем нет, все вроде работает, но содержимое таблички, которое загоняется в recordset, получается одноразовым -)), т.к. при удалении записи из recordset она удаляется из базы. Может быть, есть другой способ добиться того же результата (т.е. случайной выборки)?

[Sedge]

Можно переформулировать вопрос? Задачка такая:
нужно из recordset считать все записи, но в произвольном порядке. Мне казалось, что проще всего считывать произвольную запись, затем удалять ее (чтобы не было повторений) и следующую считывать. Со считыванием проблем нет, все вроде работает, но содержимое таблички, которое загоняется в recordset, получается одноразовым -)), т.к. при удалении записи из recordset она удаляется из базы. Может быть, есть другой способ добиться того же результата (т.е. случайной выборки)?

Что мешает использовать для этой цели массив?
Считываешь в него информацию из открытого Recordset'а, а потом используешь по своему усмотрению... Или можно еще организовать то же самое, но через Collection, чтобы не пришлось писать функции для удаления элемента/сжатия массива.

[Leon_]

Попробуй присвоить свойству ActiveConnection открытого рекордсета Nothing -- это сделает его "несвязанным".

Говорит, что не может это сделать при открытом recordset.

Действительно, если открывать рекордсет подобным образом

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

rst.Open sQuery, CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdText

, то ActiveConnection в Nothing не выставить. Попробуй сделать это так

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

Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset
    Set rst.ActiveConnection = CurrentProject.Connection
    rst.CursorLocation = adUseClient
    rst.CursorType = adOpenKeyset
    rst.LockType = adLockOptimistic
    rst.Source = "SELECT * FROM table1"
    rst.Open
    Set rst.ActiveConnection = Nothing

Не знаю, почему надо делать именно так, просто попробуй..
??

[Sil]

2Sedge
Массив использовать, мне кажется, все-таки нерационально, т.к. длина таблицы переменная. Это оставлю как крайний вариант.
С Collection попробую разобраться.
2Leon_
Тоже самое -((. Операция не допускается, если объект открыт.

[Leon_]

Странн-но..
Но это работающий пример, VBA, Access 2002.
Можно еще порекомендовать вместо Collection и массивов использовать опять-таки рекордсет ADO, только конструировать его вручную через Append, и не привязывать его ни к какому Connection сразу. Заполняешь его данными и получается удобная альтернатива массивам и коллекциям -- встроенная сортировка и поиск, и все такое

[Sil]

:roll: Странн-но..
Но это работающий пример, VBA, Access 2002.

версия Access'a совпадают. Только у меня vbscipt. Ну, не может же от этого зависеть?
Вечерком посижу с Collection поразбираюсь.