Скачать: CL | DM;

Добавление записи в 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 не забыл?

---

← →
Sergey13 ©   (2007-11-20 16:03) [7]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.01 c