Logo Море(!) аналитической информации!
IT-консалтинг Software Engineering Программирование СУБД Безопасность Internet Сети Операционные системы Hardware
Архив форумов ЦИТФорума
Море(!) вопросов - Море(!) ответов
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 
Как правильно задавать вопросы

Грабли при подтверждении изменений (Delphi 7 + Oracle)

 
Перейти:  
Этот форум закрыт, вы не можете писать новые сообщения и редактировать старые.   Эта тема закрыта, вы не можете писать ответы и редактировать сообщения.    Список форумов Архив форумов ЦИТФорума -> Программирование
Предыдущая тема :: Следующая тема  
Автор Сообщение
vns955



Зарегистрирован: 03.11.2005
Сообщения: 72

СообщениеДобавлено: Чт Авг 24 2006 19:49    Заголовок сообщения: Грабли при подтверждении изменений (Delphi 7 + Oracle) Ответить с цитатой

Всем здрям.

Имеем: Oracle 10g, Delphi 7

Есть главная форма, на ней расположены компоненты Tdatabase, TQuery, TDatasource, TUpdateSQL а
также TDBGrid для просмотра записей. Также на ней расположены жве кнопки: Редактировать - для,
редактирования, Подтвердить - для подтверждения изменений.
На кнопке Редактировать - вызывается форма 2 с TDBCtrlGrid с компонентами TDBEdit для редактирования.

Настроено вроде всё верно: кеширование, изменяемый набор данных.
При редактировании сразу изменения в гриде вижу.

На кнопке Редактировать следующий код:

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
  Mas : array[1..1] of TDBDataset;
begin
  Database1.Open;
  Query1.Active := true;
  Mas[1] := TDBDataset.Create(Query1);
  Database1.ApplyUpdates(Mas);
end;


И тут выскакивает ошибка:

Project raised exception class EDatabaseError with message 'Cannot update, is not owned by Database1'.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
vns955



Зарегистрирован: 03.11.2005
Сообщения: 72

СообщениеДобавлено: Вс Авг 27 2006 15:17    Заголовок сообщения: Ответить с цитатой

Щас изменил код (добавил Mas[1].DatabaseName := 'ose') :

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
Mas : array[1..1] of TDBDataset;
begin
Query1.Active := true;
Mas[1] := Query1;
Mas[1].Close;
Mas[1].DatabaseName := 'ose';
Mas[1].Open;

try
Database1.ApplyUpdates(Mas);
except
on e: Exception do
ShowMessage(e.Message);
end;

Query1.Active := false;
Query1.Active := true;
end;


и вроде ексепшинов нет, но обновления всё равно не подтверждаются sad.gif
Чего тут еще не хватает?
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Этот форум закрыт, вы не можете писать новые сообщения и редактировать старые.   Эта тема закрыта, вы не можете писать ответы и редактировать сообщения.    Список форумов Архив форумов ЦИТФорума -> Программирование Часовой пояс: GMT + 3
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001, 2002 phpBB Group
Русская поддержка phpBB

 

IT-консалтинг Software Engineering Программирование СУБД Безопасность Internet Сети Операционные системы Hardware

Информация для рекламодателей PR-акции, размещение рекламы — adv@citforum.ru,
тел. +7 495 6608306, ICQ 232284597
Пресс-релизы — pr@citforum.ru
Послать комментарий
Информация для авторов
This Web server launched on February 24, 1997
Copyright © 1997-2000 CIT, © 2001-2006 CIT Forum
Внимание! Любой из материалов, опубликованных на этом сервере, не может быть воспроизведен в какой бы то ни было форме и какими бы то ни было средствами без письменного разрешения владельцев авторских прав. Подробнее...