|
|
|
User Abort ?
|
|||
|---|---|---|---|
|
#18+
Здравствуйте уважаемые! Из приложения редактирую кэшированные данные (IBQuery + IBUpdateSQL) - выдает два слова: "User Abort" - в ответ при попытке вноса изменений в базу... отрывок процедуры: procedure TForm3.Button1Click(Sender: TObject); begin try DataModule2.IBQuery1.Edit; DataModule2.IBQuery1.Fields[0].AsInteger := StrToInt(DBEdit1.Text); DataModule2.IBQuery1.Fields.AsString := DBEdit2.Text; DataModule2.IBQuery1.Fields.AsString := DBEdit3.Text; DataModule2.IBQuery1.Fields.AsString := DBEdit4.Text; DataModule2.IBQuery1.Fields.AsInteger := StrToInt(DBEdit5.Text); DataModule2.IBQuery1.Fields[5].AsInteger := StrToInt(DBEdit6.Text); DataModule2.IBQuery1.Fields[6].AsString := DBEdit7.Text; DataModule2.IBQuery1.Fields[7].AsString := DBEdit8.Text; DataModule2.IBQuery1.Fields[8].AsString := DBEdit9.Text; DataModule2.IBQuery1.Fields[9].AsString := DBEdit10.Text; DataModule2.IBQuery1.Fields[10].AsDateTime := StrToDate(DBEdit11.Text); DataModule2.IBQuery1.Fields[11].AsDateTime := StrToDate(DBEdit12.Text); DataModule2.IBQuery1.Fields[12].AsDateTime := StrToDate(DBEdit13.Text); DataModule2.IBQuery1.Fields[13].AsDateTime := StrToTime(DBEdit14.Text); DataModule2.IBQuery1.Fields[14].AsString := DBEdit15.Text; DataModule2.IBQuery1.Post; DataModule2.IBQuery1.ApplyUpdates; DataModule2.IBTransaction1.Commit; except DataModule2.IBTransaction1.Rollback; raise; end; end; Схема такая, на форме визуальные компоненты для отображения каждого поля таблицы. Вношу изменения в эти поля (DBEdit'ы) и кликаю "Сохранить"... Спасибо ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.05.2003, 16:26 |
|
||
|
|

start [/forum/topic.php?fid=40&msg=32167922&tid=1580473]: |
0ms |
get settings: |
6ms |
get forum list: |
10ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
151ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
24ms |
get tp. blocked users: |
1ms |
| others: | 208ms |
| total: | 414ms |

| 0 / 0 |
