Остлеживание изменений

[pstrkim]

Как сделать, чтобы в многопользовательской среде в форме автоматически отслеживались чужие изменения без вызова метода Refresh и повторного открытия формы? Я установил для набора записей ADO LockType = adLockOptimistic, CursorType = adOpenDynamic и все равно чужие изменения не становятся видимыми.

[Ennor]

Никак.

[Andrey Fedorov]

Никак.

Я бы не был так категоричен.

Берем, к примеру, Janus GridEx

Коннектим его к SQL-серверу (или MDB-шке) с опциями jgexRSADOStatic и adUseServer, подключаем к нужной табличке.

Далее кидаем на форму таймер с интервалом 100 и в его событии прописываем:

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

Private Sub Timer1_Timer()
    With GridEX1
        .Refresh
        If .Row > 0 And .EditMode = jgexEditModeOff Then .RefreshRowIndex .RowIndex(.Row)
    End With
End Sub


Замечу что Refresh в данном контексте не означает дополнительного запроса к базе данных, а лишь обновляет Grid в соответствии с актуальными значениями Recordset-a (на экране никаких дерганий при этом не заметил). Удаленные записи помечаются ####.

Только вот вновь добавленных записей не видно - тут уже надо более серьезно дернуть Recordset/Grid, а это практически поставит крест на редактировании в нем...

Вывод - мечта новичков вполне реализуема.
А насколько это надо - другой вопрос...

[pstrkim]

Спасибо! В общем про таймер я тоже думал, правда непонятно тогда назначение свойства CursorType, предназначенное якобы для отслеживания изменений, получается никакой разницы между значениями Dynamic и Static нет

[Ennor]

Andrey Fedorov
В оригинале было "без вызова метода Refresh". Я понимаю, что ты обновляешь грид, а не рекордсет, но ведь последний у него, судя по всему, где-то внутри, его собственный. И с какими параметрами он цепляется к серверу? И как он залочит таблицу, когда начнет шевелиться? А когда 10 экземпляров, таких же как он, начнут одновременно шевелиться? Насколько он управляем, вообще?..

Так что твое решение скорее не подходит .

[Andrey Fedorov]

Andrey Fedorov
В оригинале было "без вызова метода Refresh". Я понимаю, что ты обновляешь грид, а не рекордсет

Ну метод Refresh можно по разному понимать. Можно ведь самостоятельно дергать Recordset - т.е рефрешить его...

, но ведь последний у него, судя по всему, где-то внутри, его собственный. И с какими параметрами он цепляется к серверу?

Думаешь они там велосипед изобретали? Открой обычный Recordset с теми параметрами что я сказал в своем первом письме и отследи его изменения. Ну хотя бы так:

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

Public Sub Main()
    Dim r As New ADODB.Recordset, cn As New ADODB.Connection

    cn.CursorLocation = adUseServer
    cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial Catalog=Test"
   
    r.Open "SELECT * FROM Table_1", cn, adOpenStatic, adLockOptimistic
   
    Do
        Do Until r.EOF
            DoEvents
            Debug.Print r(0), r(1)
            r.MoveNext
        Loop
        If r.RecordCount Then r.MoveFirst
    Loop
End Sub

И как он залочит таблицу, когда начнет шевелиться? А когда 10 экземпляров, таких же как он, начнут одновременно шевелиться? Насколько он управляем, вообще?..
Так что твое решение скорее не подходит .

Можешь попробовать.

Насчет целесообразности - это совсем другой разговор - я же сразу сказал что данный случай это "мечта начинающих". Но это совсем не означает невозможность в принципе.

[Andrey Fedorov]

Спасибо! В общем про таймер я тоже думал, правда непонятно тогда назначение свойства CursorType, предназначенное якобы для отслеживания изменений, получается никакой разницы между значениями Dynamic и Static нет

В данном случае большую роль играет то что курсор серверный.

[pstrkim]

В данном случае (БД Access) получается что не играет роли. В любом случае стоит ли курсор - adUseClient или adUseServer нужно сначала обновить recordset а затем заново присоединить к нему DataGrid.

[alibek]

Вообще-то, играет. Даже для Access.