Firebird.pFIBQuery.Вставка записи

[vovk]

тут генераторы и триггеры

CREATE SEQUENCE GEN_CHETVERTY_ID; 
CREATE SEQUENCE GEN_CLASSNAME_ID;
CREATE SEQUENCE GEN_MARK_ID;
CREATE SEQUENCE GEN_PREDMETY_ID;
CREATE SEQUENCE GEN_REZULT_ID;
CREATE SEQUENCE GEN_SPISOK_ID;
CREATE SEQUENCE GEN_UROKI_ID;

SET TERM ~ ; 

CREATE TRIGGER CHETVERTY_BI FOR CHETVERTY 
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
  IF (NEW.ID IS NULL) THEN 
  NEW.ID = GEN_ID(GEN_CHETVERTY_ID,1);
END~

CREATE TRIGGER CLASSNAME_BI FOR CLASSNAME 
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
  IF (NEW.ID IS NULL) THEN 
  NEW.ID = GEN_ID(GEN_CLASSNAME_ID,1);
END~

CREATE TRIGGER MARK_BI FOR MARK 
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
  IF (NEW.ID IS NULL) THEN 
  NEW.ID = GEN_ID(GEN_MARK_ID,1);
END~

CREATE TRIGGER PREDMETY_BI FOR PREDMETY 
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
  IF (NEW.ID IS NULL) THEN 
  NEW.ID = GEN_ID(GEN_PREDMETY_ID,1);
END~

CREATE TRIGGER REZULT_BI FOR REZULT 
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
  IF (NEW.ID IS NULL) THEN 
  NEW.ID = GEN_ID(GEN_REZULT_ID,1);
END~

CREATE TRIGGER SPISOK_BI FOR SPISOK 
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
  IF (NEW.ID IS NULL) THEN 
  NEW.ID = GEN_ID(GEN_SPISOK_ID,1);
END~

CREATE TRIGGER UROKI_BI FOR UROKI 
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
  IF (NEW.ID IS NULL) THEN 
  NEW.ID = GEN_ID(GEN_UROKI_ID,1);
END~
SET TERM ; ~

в 1 пост не влезло, таблицы просто оставил в том виде в котором были


во вложении всё вместе

[artemavd]

Спасибо. А как их теперь использовать: через ibsql или как-то через IBExpert?)

[artemavd]

Вопрос о создании генератора для автоинкриментного поля снимается . Наконец-то и до меня дошло как сделать надо было, а сделать нужно было так:
1. Создаем таблицу;
2. Добавляем в нее поле новое;
3. Указываем в колонке AutoInc крестик;
4. Заходим в окошко "Генератор";
5. Выбираем "Создать генератор" (можно не менять имя);
6. Идем в окошко "Триггер";
7. Выбираем "Создать триггер"
Всё. Если все сделано правильно, то в шестой строке в скобке должно быть указано имя созданного генератора. После этого все работает.
P.S. Написал для того, чтобы в будущем, вдруг кто-нибудь столкнется с этим вопросом, то ему пригодится моя информация.

Что за непонятки с запросом?

procedure TForm3.sWebLabel1Click(Sender: TObject);
begin
 Form3.pFIBQuery1.SQL.Clear;
 Form3.pFIBQuery1.SQL.Text:='INSERT INTO CHETVERTY(ID,CHETVERT,DATASTART,DATAEND) VALUES(null,:CHETVERT,:DATASTART,:DATAEND)';
 Form3.pFIBQuery1.FieldByName('CHETVERT').Value:=Form3.sLabel1.Caption;
 Form3.pFIBQuery1.FieldByName('DATASTART').Value:=Form3.sDateEdit1.Date;
 Form3.pFIBQuery1.FieldByName('DATAEND').Value:=Form3.sDateEdit2.Date;
 Form3.pFIBQuery1.ExecQuery;
end;

По идее должна вставляться запись, но этого не происходит. Пишет, что типа: "Field "CHETVERT" not found". Но такое поле есть в таблице. Поле ID - автоинкриментное.

[soleil@mmc]

а какого типа это поле?
а точно кверя настроена на ту БД?
попробуй через эту кверю получить какие-нить данные
выполнить типа такого запроса

select *
from chetverty

и вывести все это в грид (кинь временно на форму)

З.Ы.: про автоинкремент - тырканье по гуёвым тулзам полезно, но больше ценится умение писать скрипты (все таки универсальнее)

[artemavd]

а какого типа это поле?

VARCHAR(30)

а точно кверя настроена на ту БД?

Да...

попробуй через эту кверю получить какие-нить данные
выполнить типа такого запроса
Код:

select *
from chetverty

и вывести все это в грид (кинь временно на форму)

Выводит названия полей таблицы (она сейчас пустая). При первом нажатии на кнопку.

З.Ы.: про автоинкремент - тырканье по гуёвым тулзам полезно, но больше ценится умение писать скрипты (все таки универсальнее)

Учту )

[vovk]

эмм а разве надо не

.....
pFIBQuery1.ParamByName('CHETVERT').Value:='этам парм'
.......

и тп?

[artemavd]

Изменил, но теперь выдалась новая ошибка:
"Parameter "CHETVERT" does not exist in Form3.FIBQuery1" ???

[vovk]

только что завёл файрбёрд, создал базу, создал скриптом (который выше) таблицы и тп

запустил дельфи, создал новый проект, накидал компонентов, подключился,
скопировал

Form3.pFIBQuery1.SQL.Clear;
 Form3.pFIBQuery1.SQL.Text:='INSERT INTO CHETVERTY(ID,CHETVERT,DATASTART,DATAEND) VALUES(null,:CHETVERT,:DATASTART,:DATAEND)';
 Form3.pFIBQuery1.FieldByName('CHETVERT').Value:=Form3.sLabel1.Caption;
 Form3.pFIBQuery1.FieldByName('DATASTART').Value:=Form3.sDateEdit1.Date;
 Form3.pFIBQuery1.FieldByName('DATAEND').Value:=Form3.sDateEdit2.Date;
 Form3.pFIBQuery1.ExecQuery;

поставил на клик по кнопке,
поменял на

pFIBQuery1.SQL.Clear;
pFIBQuery1.SQL.Text:='INSERT INTO CHETVERTY(ID,CHETVERT,DATASTART,DATAEND) VALUES(null,:CHETVERT,:DATASTART,:DATAEND)';
pFIBQuery1.ParamByName('CHETVERT').Value:='sfvasgafaf';
pFIBQuery1.ParamByName('DATASTART').Value:=Date;
pFIBQuery1.ParamByName('DATAEND').Value:=Date;
pFIBQuery1.ExecQuery;

запустил, нажал на кнопку,
получил новую запись..

[artemavd]

Vovk, я сделал также как Вы в последнем посте. Нажимаю на кнопку, ошибок никаких не возникает, но и запись не заносится. Вообще не могу понять в чем дело . Что не так то. Ошибок нет, но и записи тоже.

[vovk]

чтобы запись сохранилась в базе надо провести транзакцию, если не хочется за всем этим делом следить, то у компонентов фиб, в часности у TpFIBquery есть возможность выбрать компонент TpFIBTransaction.
А в опциях поставить
goStartTransaction и goAutoCommit в истину (true)

кстати на счёт ничего не происходит. Обратите внимане на счётчик генератора