Попробую вначале здесь, т.к. вероятность найти людей PB + Oracle тут больше. Если пойму что не тут проблема, пойду в Оракл.

Ситуация следующая
программа разработана на PB 9.0.1 Version 7119
БД Оракл 9.2.0.5
Клиент Оракл

Сейчас установил программу достаточено удаленному пользователю, да еще и с каналом 64к. И возникла проблема - теряются введенные данные.

Процес в следующем: есть dw , в котором на событие Insert, update висят процедуры Оракла.

Пользователь набивает допустим строк 50 новых, сохраняет. Потом заходит в программу - а данных нет. Также описывает следующую ситуацию набивает сохраняет, опять набивает - сохраняет, в итоге определенной кол-во всеравно пропадает.

Если кто сталкивался с этим, подскажите куда лезть?

commit стоит после того как сохранил
вот код
integer li_result

li_result = MessageBox('Ñîõðàíåíèå.', 'Âû õîòèòå ñîõðàíèòü èíôîðìàöèþ?', Question!, YesNoCancel!, 1)
Choose Case li_result
Case 1
dw_group.Event pfc_update(True, True)
dw_detail.Event pfc_update(True, True)
If SQLCA.SQLCode < 0 Then
MessageBox( "SQL error", SQLCA.SQLErrText);
SQLCA.of_rollback( )
Else
SetPointer(HourGlass!)
SQLCA.of_commit( )
cb_save.Enabled = False
End If
Case 2
dw_group.ResetUpdate()
dw_detail.ResetUpdate()
Case 3
Return -1
End Choose
cb_save.Enabled = False

Данная проблема возникла только у юзеров, которые удаленно работаю.
Сейчас в процессе получения нового канала, но сам "звоночек" мне не понравилось и пока канал не расширили, хочу разобраться в чем проблема.

Спасибо за ответы, начну по порядку

PL99Какие основания считать, что dw_group успешно сохраняется? Почему вообще сделано два вызова pfc_update вместо pfc_save в окне?
Вчера еще до вашего сообщения начал переделывать, посмотрим что покажет.

PL99Ну и messagebox перед rollback - тоже не самый лучший стиль программирования.
Был бы признателен, чем плох этот стиль

ГеннадичПробывал заливать блоб(~100к) в Оракле(8и) из Билдера(9), правда без ПФЦ, на канале 33600 - всё получается замечательно. Если во время закачки на сервер связь разрывалась, то получал ошибку -1.
Самое что интересное, в этой программе очень много приходится работать с блобом, так за время тестирования, порядка 2 недель, с блобом ниразу проблем не было. Проблема возникла именно с одним местом, где просто тупо набивается часто список людей.

ГеннадичSetPointer(HourGlass!) - зачем перед SQLCA.of_commit( ), лучше перед SQLCA.of_rollback( ).
COMMIT достаточно быстрая операция, чего не скажешь о ROLLBACK (я имею ввиду Оракле).
Этот код бывает еще вылезает от эпохи использования Mat. view, тогда процесс сохранения долгий был Спасибо

Локшин МаркТем, что изменения в базе откатываются после нажатия на кнопку ОК. Если пользователь ушел покурить, то все, кто попытается изменить данные, затронутые транзакцией первого пользователя тоже будут курить, пока первый не нажмет на ОК. На блокировочниках же пользователи даже не смогут прочитать данные.
Спасибо, важное замечание.

Поэксперементировал я вначале с PB и есть некоторые рез-ты, жаль положительных мало. Начну по порядку
PL99Почему вообще сделано два вызова pfc_update вместо pfc_save в окне

в инициализации окна
//*************** update setting *********************************
lpo_objs[1] = dw_group
lpo_objs[2] = dw_detail
of_SetUpdateObjects(lpo_objs)
//****************************************************************

на нажатие кнопки делаю
li_return = event pfc_save()
Результат 0

ФилиппДа и вообще, каким образом по
If SQLCA.SQLCode < 0 Then
можно пытаться судить о результате операции Update на datawindow контроле?
почитал хелп, книжки. переделал
li_return = dw_group.Event pfc_update(True, True)
If SQLCA.SQLNRows > 0 Then
MessageBox('commit','group ' + string(li_return))
Else
SetPointer(HourGlass!)
MessageBox('roll back','group ' + string(li_return))
End If
li_return = dw_detail.Event pfc_update(True, True)
If SQLCA.SQLNRows > 0 Then
SQLCA.of_commit( )
MessageBox('commit','detail ' + string(li_return))
Else
SetPointer(HourGlass!)
SQLCA.of_rollback( )
MessageBox('roll back','detail ' + string(li_return))
End If

Получается li_return = 1, но SQLNRows не больше 0, по этому все попадает на RollBack

PL99Ну и messagebox перед rollback - тоже не самый лучший стиль программирования.
Есть интересная вешь, данная мессага нам позволяла быстро исправлять ошибки. Если выскакивало данное сообщение, юзер делает принтскрин и вставляет в файл который в момент до нас долетает.

Пойду в оракле копаться.
Где проблема пока не знаю, т.к. данные сохраняются, но не всегда надо это "не всегда" исправить

2 Филипп

Powerbuilder Help
As before, this example connects to the database, specifies a transaction object for the DataWindow control with SetTransObject, and then updates the database with the changes made in dw_employee. After Update is executed, the example checks the return code and depending on the success of the update, executes a COMMIT or ROLLBACK:

integer rtn

CONNECT USING SQLCA;

dw_employee.SetTransObject(SQLCA)

rtn = dw_employee.Update()

IF rtn = 1 AND SQLCA.SQLNRows > 0 THEN

COMMIT USING SQLCA;

ELSE

ROLLBACK USING SQLCA;

END IF

Я пробовал как с ПФС, так и без.
А пройдя далее по ПФС, заканчивается тем же самым Update().

Если я не прав, то буду признателен, если поправите.

Anatoly Moskovsky
Выделенное условие не имеет смысла после dw.Update(), т.к. этот метод не меняет состояние SQLCA.

Видимо пример остался в справке со времен когда было по-другому.
Понятно спасибо.
А вот условие SQLCA.SQLCode показывает, была ли ошибка при сохранении или нет. По крайней мере я тестировал следующие варианты:
1) не введено обязательно поле
2) неверно настроена процедура на событие Insert/Update/Delete
3) если после ввода данных, перед сохранением, выдернуть сетевой шнур, т.е. грубо симетировать потерю связи с сервером.
Ну если поидии и это не должно работать, то к сожалению или к радости, у нас работает.