Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / почему не работает Before Insert??? / 5 сообщений из 5, страница 1 из 1
10.10.2003, 12:18
    #32289784
login-l
login-l
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
почему не работает Before Insert???
Использую ADO. DataSet открыт. Хочу чтобы перед вставкой полю заранее присваивалось значение, но вместо этого вылетает ошибка: DataSet is not edit or insert mode

Если перед присвоением дописываю:
PaymentQuery.Prepared;
PaymentQuery.Insert;
то вываливается: Stack overflow

procedure TForm1.QueryBeforeInsert(DataSet: TDataSet);
begin
PaymentQueryKassa.Value := 1;
end;
Как быть и чего ему надо?????
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.10.2003, 12:40
    #32289807
Papka
Papka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
почему не работает Before Insert???
AfterInsert
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.10.2003, 12:44
    #32289815
pkarklin
pkarklin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
почему не работает Before Insert???
Хочу чтобы перед вставкой полю заранее присваивалось значение, но вместо этого вылетает ошибка: DataSet is not edit or insert mode

Ну так внутри обработчика BeforeInsert DataSet.State = dsBrowse.

Как быть и чего ему надо?????

Делай присвоение значений полям в обрабочике OnNewRecord и будет тебе счастье.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.10.2003, 12:59
    #32289849
login-l
login-l
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
почему не работает Before Insert???
Делал присвоение и в обработчике NewRecord и AfterInsert пишет:
an unknown error has occurred
что делать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.10.2003, 13:07
    #32289863
pkarklin
pkarklin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
почему не работает Before Insert???
Код: plaintext
1.
2.
3.
procedure TForm1.QueryNewRecord(DataSet: TDataSet); 
begin 
 DataSet.FieldByName('PaymentQueryKassa').AsInteger :=  1 ; 
end;


IMHO, должно работать. Может еще где-нибудь у тебя ошибка вылазит. Проидись отладчиком.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / почему не работает Before Insert??? / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]