Проверка на наличие изменений

[Лексей]

Доброе время суток!
Посоветуйте? плиз!
Есть форма VB с txt полями, данными при открытии заполняется из рекордсета (который потом закрывается), пользователь чего то изменяет (или просто любуется на данные), а потом кликает Ок
Как лучше, оптимальнее и правильнее организовать проверку вносились ли изменения для дальнейшего сохранения в БД, если>>
1 - пофигу какие поля изменялись
2 - необходимо знать данные каких полей измнялись
3 - а не идентичны ли изменения открытым данным (сначала изменили? потом стерли и внесли то же самое)????
Благодарен всем за участие!

[alibek]

Поля привязаны к источнику данных или заполняются вручную?

[Nicky]

2 alibek:

...заполняется из рекордсета (который потом закрывается)...

2 Лексей: 1

[Лексей]

не привязаны, при открытии заполняются данными из рекордсета (который потом закрывается - есть ли смысл держать его открытым при мнеогопользовательской работе?), при сохранении данных - обратно в рекордсет

[Лексей]

примеч - в вопросе 1,2,3 - варианты прроверок (если они м/б различные) для этих условий

[alibek]

Ну раз не привязаны, то готовыми средствами ты этого учитывать не сможешь. Учитывай сам, например проставляя метку в свойстве Tag.

[Лексей]

Хорошо, а если привяжу?

[alibek]

Тогда свойство DataChanged.

[Лексей]

Тогда несколько иной вопрос -
оптимальней ли несвязанные формы (рекордсеты живут только в моменты заполнения данными форм и сохранения измененнных данных) при работе в многопользовательском режиме (в плане доступа к данным, снижения объема хранимой оперативной памяти и загрузки трафика)?

[alibek]

Оптимальней, но неудобней.
Используй связанные контролы и пакетное обновление.

[Лексей]

пакетное обновление - это что? Можно малость разьяснить? спасибо

[Antonariy]

Пакетное обновление - обновление отвязанного рекордсета. Как получить такой рекордсет:

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

Dim cn as New ADODB.Connection
Dim rs as New ADODB.Recordset
cn.CursorLocation = adUseClient
cn.Open
rs.Open "select ...", cn, adOpenStatic, adLockBatchOptimistic
Set rs.ActiveConnection = Nothing
'рекордсет уходит клиенту
'изменяются значения, добавляются и удаляются записи

'пакетное  обновление сразу всех сделанных изменений
Set rs.ActiveConnection = cn
rs.Updatebatch

Если на момент обновления данные в базе были изменены другим клиентом, выскочит соответствующая ошибка. В этом случае можно сделать rs.Resync и опять UpdateBatch.

[Лексей]

т.е. на сколько я понял, открытый рекордсет отвязывается от серверной базы данных (и храниться он в памяти), с ним связываются поля формы и любые контролы, а при необходимости производим обновление сразу всего рекордсета и ест-но пользуемся стандартными средствами проверки изменений? Я прав?
А какой код ошибки возвратиться?

[Antonariy]

Я прав?

Абсолютно. Непонятно только что значит это: "пользуемся стандартными средствами проверки изменений".

А какой код ошибки возвратиться?

-2147217864

[Лексей]

DataChanged

[Antonariy]

Сомнительный способ. Я пользуюсь таким:

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

Public Function IsDataSetChanged(rc() As Long, ParamArray rs()) As Boolean
Dim x As Integer
Dim rrs As ADODB.Recordset
    For x = 0 To UBound(rs)
        Set rrs = rs(x)
        If IsRecordsetChanged(rrs) Or rrs.RecordCount <> rc(x) Then
            IsDataSetChanged = True
            Exit Function
        End If
    Next x
End Function

Public Function IsRecordsetChanged(rs As ADODB.Recordset) As Boolean
Dim rrs As ADODB.Recordset
    Set rrs = rs.Clone
    While Not rrs.EOF
        If IsRecordChanged(rrs) Then
            IsRecordsetChanged = True
            Exit Function
        End If
        rrs.MoveNext
    Wend
End Function

Public Function IsRecordChanged(rs As ADODB.Recordset) As Boolean
Dim x As Integer
    For x = 0 To rs.Fields.Count - 1
        If rs(x).Value <> rs(x).UnderlyingValue Or IsNull(rs(x).UnderlyingValue) And Not IsNull(rs(x).Value) Then
            IsRecordChanged = True
            Exit Function
        End If
    Next x
End FunctionМассив

rc() содержит значения RecordCount соответствующих рекордсетов rs() и заполняется при открытии рекордсетов.