Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вопрос по работе с IBX [D7, IB6.x, InterBase]


3Lander ©   (2007-10-07 21:42:00) 

Уважаемые программеры! Никак не могу заставить работать БД с помощью компонентов IBX (закладка в Дельфи7 "InterBase").
Кидаю на форму компоненты: IBDataBase, IBTransaction, IBDataSet, IBQuery - все связи нормальные, поля по идеи как надо установлены (единственное что в IBTransaction особо ничего не менял, тока связял с др компонентами) и с помощью TDataSet подключаюсь к DBGrid.
Таблица открывается нормально (для примера 2 поля - ключевое INTEGER и вещественное DECIMAL(15,2)) - но при попытки добавления выскакиевает ошибка - "таблица находится в режиме Read Only". Как это исправить?
Заранее спасибо,
3Lander.


Megabyte   (2007-10-10 14:07:00) [1]


> ...и с помощью TDataSet подключаюсь к DBGrid.

зачет.

> insert into MYTABLE(SUMM)values(:SUMM)

А значение ключа у тебя генерится с помощью триггера-генератора?

Параметры IBTransaction какие?

з.ы. телепатов нет!


3Lander   (2007-10-07 22:15:00) [2]

база состоит из 2 полей (для теста): NUMB INTEGER, SUMM DECIMAL(15,2)

вот код на кнопке:
IBQuery1.Open;
IBQuery1.Edit;
IBQuery1.Append;
IBQuery1['NUMB']:=1;
IBQuery1['SUMM']:=11.11;
IBQuery1.Post;

Кстати тока что добавил IBUpdateSQL со след кодом: (он кстати сгенерился сам в IBDataSet) - теперь ошибка пропала, но всё подвисло:

delete from MYTABLE
where
NUMB = :OLD_NUMB

insert into MYTABLE
(SUMM)
values
(:SUMM)

update MYTABLE
set
SUMM = :SUMM
where
NUMB = :OLD_NUMB


3Lander   (2007-10-07 22:07:00) [3]


> engine ©   (07.10.07 21:47) [1]
> > [0] 3Lander   (07.10.07 21:42)
>
> Код в студию!


вот:

IBQuery1.Open;
IBQuery1.Edit;
IBQuery1.Append;
IBQuery1['NUMB']:=1;
IBQuery1['SUMM']:=11.11;
IBQuery1.Post;

-----------------------


> Desdechado ©   (07.10.07 21:55) [2]
> Примеры уже изучил?
> "C:\Program Files\Borland\Delphi7\Demos\Db\IBX"


- да пытался изучить, опыта мало...(


Desdechado   (2007-10-07 21:55:00) [4]

Примеры уже изучил?
"C:\Program Files\Borland\Delphi7\Demos\Db\IBX"


engine   (2007-10-07 21:47:00) [5]

> [0] 3Lander   (07.10.07 21:42)

Код в студию!


Наверх

Титульная страница Поиск, карта сайта Написать письмо