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

← →
AlexeyMir (2007-11-20 13:39) [0]

Я использую IBQuery+IBUpdateSQL, у меня в IBUpdateSQL.InsertSQL написано следующее:

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

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

← →
Sergey13 © (2007-11-20 13:43) [1]

> [0] AlexeyMir (20.11.07 13:39)
> Я использую IBQuery+IBUpdateSQL

А почему не IBDataSet?

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

← →
Johnmen © (2007-11-20 14:14) [2]

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

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

← →
PEAKTOP © (2007-11-20 14:21) [3]

procedure TForm1.IBQuery_OnNewRecord(DataSet :TDataSet);
begin
DataSet.FieldByName("grp").AsString := "123";
end;

← →
Sergey13 © (2007-11-20 14:23) [4]

> [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)

← →
AlexeyMir (2007-11-20 15:43) [5]

Все равно не получается, сделал следующее:

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

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

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

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

Post не забыл?

> [5] AlexeyMir (20.11.07 15:43)
> Остается поле пустым.

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

← →
AlexeyMir (2007-11-20 16:53) [8]

Все получилось

У меня было(не работает)
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) кстати тоже нужна

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

> У меня было(не работает)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]

Добавление записи в IBQuery+IBUpdateSQL Найти похожие ветки