herşeyi yaptım ama alan otomatik artmıyor

[techmaster]

s.a.
FAOsoft hocamın otomatik artan alan oluşturma makalesinde anlatılanları yaptım...generator oluşturdum...sp oluşturdum...formumdaki bi tane datasetin beforepost olayını aşağıdaki kodları yazdım...

Kod: Tümünü seç

 if (GRUP.State=dsInsert) AND (GRUP_ID.IsNull) then
  begin
   GRUP_ID.AsInteger:=0;
   IbStoredProc1.Prepare;
   IbStoredProc1.ExecProc;
   GRUP_ID.AsInteger:=IbStoredProc1.ParamByName('ID').As Integer;
  end;
 if (ALBUM.State=dsInsert) AND (ALBUM_ID.IsNull) then
  begin
   ALBUM_ID.AsInteger:=0;
   IbStoredProc2.Prepare;
   IbStoredProc2.ExecProc;
   ALBUM_ID.AsInteger:=IbStoredProc2.ParamByName('ID').As Integer;
  end;

iki tane tablom var..GRUP ve ALBUM adında..ama ekle dediğim zaman diğer alanları doldurmasına rağmen otomatik alan null görünüyor...
ayrıca iki tabloda işlem için tek dataset kullanıyorum...
birde tabloda güncelleme yapıp ibexpertte verileri güncellenmiş halde görmeme rağmen programımda göremiyorum bunu...programı açıp kapamama rağmen görünmüyor yeni veriler...forumda commit gibi şeylerden bahsediliyordu, denedim ama olmadı maalesef...
son olarak bu interbase nesnelerini tam olarak kavrayabileceğim bir döküman söyleyebilirmisiniz...türkçe-ingilizce farketmez...yeterki anlamamı sağlasın...interbase express referance'a baktım ama o kadar iyi değildi...

herkese iyi çalışmalar....

[assoft]

Bu iş için trigger kullansan bence daha iyi olur.
Tablonun Before insert event'ne bir trigger oluştur :

Kod: Tümünü seç

Create Trigger OTO_SAY for TabloAdi Active
Before Insert Position 0
As
Begin
New.ID = Gen_ID(GeneratorAdi,1);
end

Fazla uğraşmana gerek kalmaz.
Kolay gelsin.

[techmaster]

teşekkür ederim trigger kullanarak daha kolay yaptım...
peki bu eklediğim verilerin hemen görünmesi için ne yapmam gerekiyor??

[Fatih!]

viewtopic.php?t=9847&highlight=

[assoft]

Commit edeceksin

Kod: Tümünü seç

tabloadi.transaction.commitretaining;

[techmaster]

@FAOsoft
hocam inanırmısınız o makaleyi en az 10-15 defa okudum ama sp ile yapamadım, trigger ile daha kolaymış...

@assoft
çok özür dilerim zamanınınızı alıyorum ama bu ifadeyi nereye yazmam gerekiyor...

Kod: Tümünü seç

tabloadi.transaction.commitretaining; 

[true_false]

tabloyu post ettikten sonra

Kod: Tümünü seç

tablo1.post;
tablo1.transaction.commitretaining;

şeklinde

[techmaster]

aşağıdaki kodu çalıştırdığım zaman 'dataset not in edit or insert mode' diye bir hata veriyor....

Kod: Tümünü seç

 frm_ana.IBDataSet1.Close;
 frm_ana.IBDataSet1.SelectSQL.Clear;
 frm_ana.IBDataSet1.SelectSQL.Add('insert into GRUP (GRUP_ADI,GRUP_YILI)');
 frm_ana.IBDataSet1.SelectSQL.Add('VALUES ('''+edit1.Text+''','''+edit6.Text+''')');
 frm_ana.IBDataSet1.execsql;
 frm_ana.IBDataSet1.Post;
 frm_ana.IBDataSet1.Transaction.CommitRetaining;

[vedatkaba]

aşağıdaki kodu çalıştırdığım zaman 'dataset not in edit or insert mode' diye bir hata veriyor....

Kod: Tümünü seç

 frm_ana.IBDataSet1.Close;
 frm_ana.IBDataSet1.SelectSQL.Clear;
 frm_ana.IBDataSet1.SelectSQL.Add('insert into GRUP (GRUP_ADI,GRUP_YILI)');
 frm_ana.IBDataSet1.SelectSQL.Add('VALUES ('''+edit1.Text+''','''+edit6.Text+''')');
 frm_ana.IBDataSet1.execsql;
 frm_ana.IBDataSet1.Post;
 frm_ana.IBDataSet1.Transaction.CommitRetaining;

Bak şimdi burda kodun en sonuna

Kod: Tümünü seç

post

yazmışsın ama neye dayanarak acaba.post komutunu edit ve insert moduna sokmadan çalışmaz.post fazladan orda......

[techmaster]

vedatkaba, firebird ve delphiyi çok iyi bilmiyorum..tam öğrenebilmek için kendime veritabanı kullanan bi program yapıyorum...ama dediğim gibi tam bilmediğim için hatalarda oluyor
true_false post et dediği için öyle denedim ama olmadı...
ne yapmam gerekiyor tam olarak???