Странность ADO

[heep]

Никто не сталкивался с таким приколом в ADO: Связываем TextBox с ADODB.Recordset. В кнопке ОК делаю UpdateBatch. Запускаю прогу. Вот если пальцами меняю в TextBox строку, то все нормально - изменения записываются в базу. А если программно, то ниче не пишется.

Текст примерно такой:

Option Explicit
Private WithEvents adoT As ADODB.Recordset

Private Sub Form_Load()
Set adoT = New ADODB.Recordset
adoT.ActiveConnection = CNN
adoT.CursorLocation = adUseClient
adoT.CursorType = adOpenDynamic
adoT.LockType = adLockBatchOptimistic
adoT.Open "select * from [Setup]"

Set Text1.DataSource = adoT
Text1.DataField = "TFile"
end sub

Private Sub Command1_Click()
Text1.Text = "qqq" 'не запоминает однако в cmOK_Click
End Sub

Private Sub cmdOK_Click()
adoT.UpadeBatch
End Sub

[GSerg]

SP6 на VB стоит?

[heep]

Да-SP6. Правда я подключил Microsoft ActiveX Data Objects 2.5 Library.
Хотя на компе присутвуют версии 2.6 и 2.7. Но для них почему то Help недоступен. Щас попробую версию 2.7

[GSerg]

2.7? Фи...
Есть давно 2.8, причём и к нему уже сервис-паки...

[heep]

Не помогло.

[Antonariy]

Обновление связанного поля происходит при потере фокуса... Пиши сразу в поле, не в текстбокс.

[Andrey Fedorov]

Private Sub cmdOK_Click()
ValidateControls
adoT.UpadeBatch
End Sub

[heep]

Обновление связанного поля происходит при потере фокуса... Пиши сразу в поле, не в текстбокс.

Точно! При потере фокуса. Если мышой наступить на TextBox перед кнопкой OK - то работает. Похоже действительно придется сразу писать в поле или ставить фокус на TextBox. Спасибо!

[Andrey Fedorov]

Точно! При потере фокуса. Если мышой наступить на TextBox перед кнопкой OK - то работает. Похоже действительно придется сразу писать в поле или ставить фокус на TextBox. Спасибо!

А между прочим - чуть выше я дал пример как это надо делать по правильному. Это так, к слову...

[heep]

Точно! При потере фокуса.
А между прочим - чуть выше я дал пример как это надо делать по правильному. Это так, к слову...

Прошу прощения что не ответил на Ваш совет. Но ValidateControl я пробовал и, к сожалению, не помогло

[alibek]

ValidateControls -- это не то, о чем говорили.
Это должна быть самописная функция, которая проверяет правильность ввода. Кстати, правильнее было бы вызывать ее вот так: If Not ValidateControls() Then Exit Sub.

Смотреть надо было на UpdateBatch.

[Andrey Fedorov]

ValidateControls -- это не то, о чем говорили.
Это должна быть самописная функция, которая проверяет правильность ввода.

Вначале должна быть выполнена валидация контролов - для этого и ValidateControls...[/quote]