Отвязный RecordSet

[vvs_adm]

Создаю

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

Dim rsMy_BD as New ADODB.Recordset
rsMy_BD.ActiveConnection=cnMain
rsMy_BD.CursorLocation=adUseClient
rsMy_BD.CutsorType=adOpenStatic
rsMy_BD.LockType=adLockOptimistic
rsMy_BD.Source="SELECT * FROM My_Table"
rsMy_BD.Open

.....
.....
change rsMy_BD.Fields("...")
.....
Exit Sub

Почему при заходе в Таблицу в следующий раз я вижу ее обновленной? Метода .Update нигде нет вообще. Там, где троеточие, код вообще к рекордсету практически не относится.

[Sebas]

rsMy_BD.LockType=adBatch....(чего то там)
...

rsMy_BD.Open
rsMy_BD.ActiveConnection=nothing

[vvs_adm]

Попробую, но в вумной книге написано, что пока .Update не сделаешь, можно не беспокоиться...

[Konst_One]

если у тебя сидит на этом рекордсете грид, то в нем могли проапдейтить записи без твоего ведома, если обработка событий не включена

[vvs_adm]

Konst_One Да там вшивый MSH FlexGrid ручками заполняется, используя измененные строки рекордсета, но никаких апдейтов там тоже нет, хотя они б и не мешали
P.S.: И он не сидит на этом рекордсете. он просто на той же форме валяется...

[Konst_One]

тогда проверяй, может кто апдейтит твою таблицу на сервере или через другой софт (для SQL server запусти Profiler и смотри, что с твоей таблицей делается)

[vvs_adm]

Konst_One Так дело в том, что у компа даже сетевухи нету

[Konst_One]

тогда см свою функцию

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

change rsMy_BD.Fields("...")

наверное в ней ошибка

или код в студию, мы не телепаты

[vvs_adm]

Konst_OneДа Change - это вообще не функция, это я сократил. Там написано типа : rsMy_BD.Fields(0)=rsMy_BD.Fields(0)+"NewString" Да потом почти сразу rsMy_BD.close set rsMy_BD= nothing Unload form
А при новой загрузке формы вываливаю рекордсет в грид, а он уже измененный гад. Я конечно попробую активконекшен=нафиг, но разве он должен меняться??? При курсор локейшене на клиенте и без апдейта?

[vvs_adm]

rsMy_BD.ActiveConnection=nothing
Оно, конечно помогло. Спасибо. Только странно, что оно нужно...

[Konst_One]

а это что:

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

rsMy_BD.Fields(0)=rsMy_BD.Fields(0)+"NewString"

вот это и есть изменение данных

[Konst_One]

у тебя курсор

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

rsMy_BD.LockType=adLockOptimistic

[vvs_adm]

Konst_One Да оно то понятно, непонятно, какой ... вумную книжку писал и зачем я раньше после изменения данных rs.Update делал... Надо правда еще раз внимательнее книгу то перелистать, наверное я чего то пропустил и я даже догадываюсь, что