delphi oracle

← →
Cherman © (2006-05-22 16:29) [0]

Уважаемые мастера подскажите пожалуйста. Заношу в Oracle в таблицу новое значени Там автоматом через тригер ему присвается идентификатор. можно как-то узнать какой идентификатор был ему присвоен без запроса типа select id from table where name=внесенное после внесения

← →
Sergey13 © (2006-05-22 16:39) [1]

Какие компоненты, как вносишь?

← →
Cherman © (2006-05-22 16:50) [2]

BDE

Queryinsert.SQL.Clear;
queryinsert.SQL.Add("insert into slovar_termin (id_termin,id_slovar) values (:termin,2)");
queryinsert.ParamByName("termin").AsInteger:=querycheck.fieldByName("id_termin") .AsInteger;
Queryinsert.ExecSQL;

← →
Sergey13 © (2006-05-22 16:56) [3]

insert into slovar_termin (id_termin,id_slovar) values (:termin,2)" RETURNING Id into :id

← →
Desdechado © (2006-05-22 16:57) [4]

> RETURNING Id into :id
сомневаюсь, что прокатит

← →
Cherman © (2006-05-22 17:00) [5]

то есть
queryinsert.SQL.Add("insert into slovar_termin (id_termin,id_slovar) values (:termin,2)"RETURNING Id into :id );
Queryinsert.ExecSQL;
id:=queryinsert.fieldbyname("id").asinteger;

можно поподробней

← →
Sergey13 © (2006-05-22 17:03) [6]

2[4] Desdechado © (22.05.06 16:57)
> сомневаюсь, что прокатит
Насколько я помню из курса философии - критерием истины является практика. 8-)

2[5] Cherman © (22.05.06 17:00)
>можно поподробней
Чего подробнее? Исправь ошибки, скомпилируй и выполни. 8-)
id:=queryinsert.Parambyname("id").asinteger;
id - переменная нужного типа

← →
Desdechado © (2006-05-22 17:03) [7]

id:=queryinsert.fieldbyname("id").asinteger;

тогда уж ParamByName

Блин, с ExecSQL действительно сомнения, что прокатит...

на dbExpress пробовал - не работает
драйвер, правда, самодельный
но ругается вряд ли он

> Ega23 © (22.05.06 17:04) [8]
> Блин, с ExecSQL действительно сомнения, что прокатит...

Должно прокатить.

> queryinsert.SQL.Add("insert into slovar_termin (id_termin,
> id_slovar) values (:termin,2)"RETURNING Id into :id );

queryinsert.SQL.Text:="insert into slovar_termin (id_termin, id_slovar) values (:termin,2) RETURNING Id into :id";

И потом достать из параметров после Exec. Но параметр ID надо обязательно сделать выходным.
ЗЫ. И лучше пользоваться DOA или ODAC - понадежнее будет.

delphi oracle Найти похожие ветки