DTPicker -- привязка к БД

[VVitafresh]

Подвязываю датапикер к полю Дата/время

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

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub Form_Load()
    Dim SQL As String
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cn.Open "Data Source=E:\VBProject\analitic\calend\db.mdb"
    SQL = "SELECT id, dat_od FROM dates"
    rs.CursorLocation = adUseClient
    rs.Open SQL, cn, adOpenKeyset, adLockOptimistic
    DTPicker1.DataField = "dat_od"
    Set DTPicker1.DataSource = rs
    rs.MoveFirst
End Sub

Private Sub Form_Unload(Cancel As Integer)
    rs.UpdateBatch adAffectAll 
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub

Уже введеную дату отображает правильно. Но при смене даты через контрол дата в БД не обновляется. Хотя если подвязать текстовое поле, то изменения происходят.

Как правильно подвязать DTPicker?

P.S. Обычно делаю rs.Fields("dat_od").Value = DTPicker1.Value в событии Change. Но ведь и привязка должна работать по-идее.

[MIT]

Напиши тожже самое в других похожих событиях
Например у combobox не срабатывает Change, но Click работает даже при получении фокуса от Tab

[VVitafresh]

MIT, ты не понял сути вопроса. Я не хочу ничего писать в событиях. Большинство стандартных элементов управления можно связать с определенным полем в БД (посредством DataSource, DataField). Для DTPicker'a такая привязка не работает должным образом, а должна (наверное).

[lister]

...такая привязка не работает должным образом, а должна (наверное)...

А может все-таки не должна?... Может стоит обратиться к MSDN?

[VVitafresh]

Должна-должна. Иначе зачем тогда контролу свойства DataSource и DataField?

[lister]

Должна-должна. Иначе зачем тогда контролу свойства DataSource и DataField?

В этом контроле скорее всего привязка односторонняя - только на чтение полей из БД. Сохранять скорее всего нужно вручную. (Хотя я не настаиваю на верности этого)

[VVitafresh]

Изменение

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

rs.UpdateBatch adAffectAll

на

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

rs.UpdateBatch adAffectCurrent

исправило ситуацию. Выбор новой даты теперь запоминается в БД.

Казалось бы мелочь -- а такое неадекватное поведение.

(555 пост)

[lister]

Хм... не знал...

VVitafresh, где вычитал?.. Или сам догадался?

[VVitafresh]

VVitafresh, где вычитал?.. Или сам догадался?

Методом научного тыка, исходя из того, что должно ведь как-то работать

Кстати, если менять текущую запись в рекордсете (rs.MoveNext, rs.MovePrevious), то Update вообще не нужен и все привязки работают корректно. Но у меня вызывается форма для редактирования одной конкретной записи и все изменения при выходе должны сохраняться.