Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Добавление записи в IBQuery+IBUpdateSQL [D5]

AlexeyMir © (2007-11-20 13:39:00)
Я использую IBQuery+IBUpdateSQL, у меня в IBUpdateSQL.InsertSQL написано следующее:

insert into spr_tov (code, name, ed, grp) values (:code, :name, :ed, 1)

Но в ходе выполнения проги, значение grp не вводится пользователем, а берется из другого компонента(в моем случае это TreeView), т.е. нужно как-то передать значение дерева в IBUpdateSQL.InsertSQL, но параметров я не нашел
Подскажите, как мне реализовать добавление записи.

Правильный_Вася (2007-11-20 17:27:00) [1]

> У меня было(не работает)insert into spr_tov (code, name,
> ed) values (:code, :name, :ed)
> а нада insert into spr_tov
> (code, name, ed, grp) values (:code, :name, :ed, :grp)

противоречит [0]

AlexeyMir (2007-11-20 16:53:00) [2]
Все получилось

У меня было(не работает)
insert into spr_tov (code, name, ed) values (:code, :name, :ed)

а нада
insert into spr_tov (code, name, ed, grp) values (:code, :name, :ed, :grp)

процедура Form1.IBQuery2NewRecord(DataSet: TDataSet) кстати тоже нужна

Sergey13 (2007-11-20 16:03:00) [3]
> [5] AlexeyMir (20.11.07 15:43)
> Остается поле пустым.

Описывай все и по порядку, что и как делаешь. По тем кускам, что написал - ничего не понять.

Правильный_Вася (2007-11-20 15:51:00) [4]

> Остается поле пустым.

Post не забыл?

AlexeyMir (2007-11-20 15:43:00) [5]
Все равно не получается, сделал следующее:

procedure Form1.IBQuery2NewRecord(DataSet: TDataSet);
begin
DataSet.FieldByName('grp').asinteger :=Integer(TreeView1.Selected.Data);
end;

Остается поле пустым.

Sergey13 (2007-11-20 14:23:00) [6]
> [0] AlexeyMir (20.11.07 13:39)
> insert into spr_tov (code, name, ed, grp) values (:code, :name, :ed, 1)
insert into spr_tov (code, name, ed, grp) values (:code, :name, :ed, :grp)

PEAKTOP (2007-11-20 14:21:00) [7]
procedure TForm1.IBQuery_OnNewRecord(DataSet :TDataSet);
begin
DataSet.FieldByName('grp').AsString := '123';
end;

Johnmen (2007-11-20 14:14:00) [8]

> но параметров я не нашел

Каких параметров? Где? Как искал?

Sergey13 (2007-11-20 13:43:00) [9]
> [0] AlexeyMir (20.11.07 13:39)
> Я использую IBQuery+IBUpdateSQL

А почему не IBDataSet?

> т.е. нужно как-то передать значение дерева в IBUpdateSQL.InsertSQL,
> но параметров я не нашел
Нужно в новой записи ПОЛЮ в датасете присвоить нужное значение.

Наверх

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