Отвязный recordset

[Алексей К.]

Открываю рекордсет, делаю ему addnew, заполняю новую запись. Апдейт не далаю, и при movelast я стою на последней записи которая была до добавления. Как сделать что бы можно было обращаться к новым записям без апдейта рекордсета, надо чтобы исходная таблица не менялась. подскажите пожалуйста

[Sebas]

курсор клиента
блокировка статик

[Алексей К.]

В DAO это можно реализовать, как?

[Алексей К.]

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


Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
With cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = App.Path & "\db2.mdb"
        .Open
End With
With rs
        .ActiveConnection = cn
        .CursorType = adOpenStatic
        .CursorLocation = adUseClient
        .LockType = adLockOptimistic
        .Source = "SELECT * FROM таблица1"
        .Open
End With
rs.AddNew
rs.Fields(1) = "новая запись"
.....вывожу в грид
rs.Close


На строке закрытия рекордсета кричит "Операция не допускается в данном контексте".
А если делаю апдейт рекордсета до его закрытия - то рекордсет закрывается нормально, но исходная таблица меняется (добавляется запись). Реально ли закрыть рекордсет без апдейта через rs.close? или остается только убивать через set rs=nothing и заново его обьявлять, указывать блокировки и курсор.

[Sebas]

очисти и всё... или сделай Nothing

[Алексей К.]

1) Очистить это как?
2) Странная фигня у меня творится: если не загружаю listview через свою функцию load_lvw - данные в исх. таблицу не добавляются, а если загружаю то добавляются. Хотя load_lvw рекордсет не апдейтит.
В чем дело может быть?

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


Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
With cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = App.Path & "\db2.mdb"
        .Open
End With
With rs
        .ActiveConnection = cn
        .CursorType = adOpenStatic
        '.CursorType = adOpenDynamic
        .CursorLocation = adUseClient
        .LockType = adLockOptimistic
        .Source = "SELECT * FROM таблица1"
        .Open
End With
rs.AddNew
rs.Fields(1) = "новая запись"
my_table = load_lvw(Form1.ListView1, rs)
Set rs = Nothing
Set cn = Nothing
End Sub


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


Public Function load_lvw(lvw As ListView, rs As Recordset)
lvw.ListItems.Clear
rs.MoveFirst
Do Until rs.EOF
        Set dd = lvw.ListItems.Add(, , CStr(rs.Fields(1)))
        For i = 2 To rs.Fields.Count - 1
            If IsNull(rs.Fields(i)) = False Then
                    dd.SubItems(i - 1) = CStr(rs.Fields(i))
                Else
                    dd.SubItems(i - 1) = ""
            End If
        Next i
        rs.MoveNext
Loop
rs.Close
End Function



[Konst_One]

...
rs.AddNew
rs.Fields(1) = "новая запись"

rs.Update

my_table = load_lvw(Form1.ListView1, rs)
...

[Алексей К.]

Может я непонятно выразился, проблема: если я не заполняю данные в form1.listview1 используя функцию load_lvw - то запись "новая запись" в исходную таблицу (db2.mdb, таблица1) в первый столбец не добавляется (т.е. если закоментирую строку my_table=load_lvw...). А если заполняю то новая запись появляется в исходной таблице базы данных db2.mdb - этого мне не надо. У listview же нет такого свойства как allowupdate и работы напрямую с рекордсетом (datasource=rs) , в коде у меня нет апдейта рекордсета. Мне нужен отвязный рекордсет, изменение записей (удаление, добавление) которого никак не влияет на "таблица1" из db2.mdb. Почему так происходит, может проперти рекордсета не так поставил?

[Konst_One]

трудно понять, что тебе надо, но попробуй вот это:

...
End With
set rs.ActiveConnection=nothing
rs.AddNew
...

[Алексей К.]

set rs.ActiveConnection=nothing помогло.
Всем спасибо!