İnterbase / Firebird de otomatik olarak çalışan bi AUTOINC field yoktur.Fakat bunu kendimiz bir kaç düzenleme ile yapabiliriz. Bunun için öncelikle interbase de bir kaç işlem yapmamız gerekiyor. ilk önce bir GENERATE oluşturmakla işe başlayacağız. GENERATE nedir onu öğrenelim önce GENERATE adınında yaptığı çağrışımdan da anlaşılacağı üzere bir jenerator yani üreteç.
yani sayı üretiyor ve bir önce üretilmiş sayıyı saklıyor.

Database Bölümünden Generators e sağ tıklayıp New Generator dediğinizde karşınıza aşağıdaki pencere gelecektir



+ ( Artı ) İşaretiyle Yeni Bir Generator Ekleyebilir - ( Eksi ) İşaretiyle Varolan Generatoru Silebilirsiniz.

Name Kısmına Generatorun ismi
Value Kısmına Artırımın kaçtan başlayacağını belirtin. 1000 yazarsanız 1001 den 0 yazarsanız 1 den başlar arttırım.
Değerleri Girdikten sonra ilk buttona ( şimşek iconu ) tıklayıp daha önce gördüğümüz pencere karşımıza çıkacaktır. Hata yoksa Commit'e tıklayıp Generatoru oluşturun.



Bundan sonra 3 yolumuz var. Ya bir triger oluşturup her şeyi interbase e bırakmak yada bir Stored Procedure yazıp olayı kendimiz kontrol etmek.


Trigger İle Oluştumak
Çıkan Pencerede trigger bölümüne geçip Create Trigger CheckBoxunu işaretleyin



Tek yapmanız gereken GEN_ID(BENIMGENERAOR,1); Bölümünde BENIMGENERAOR yerine kendi Generator isminizi , 1 yerinede Otomatik Artan (Autoınc) Alanın kaçar kaçar artacağını belirtmeniz. gerekiyor.2 yazarsanız ikişer ikişer artar. varsayılan 1 dir. ok'ledikten sonra tablonuzdaki şimşek iconuna tıklayıp çıkan pencerede Hata yoksa Commit'e tıklayıp değişikliği kaydedin
 

Procedure İle Oluştumak
Çıkan Pencerede Procedure bölümüne geçip Create Procedure CheckBoxunu işaretleyin





Yukardaki koda dikkat edecek olursak procedure a "SP_GEN_MUSTERI_ID" ismini verdik.Daha sonra "ID" adında integer tipli bir variable (değişken) tanımladık.Sonrada ınterbase / Firebird in GEN_ID fonksiyonunu kullanarak BENIMGENERAOR generatorunden aldığımız sayıyı bir artırarak "ID" değişkenine yüklemesini söyledik. ınterbase / Firebird in GEN_ID fonksiyonu Oluşturduğumuz GENERATOR den aldığımız sayıyı en sonunda verilen sayı kadar artırır tabi bu arada generatorde tutulan sayıyı da güncelleyecektir.
Şayet artırma sayıyısını farklı verirsek GEN_ID fonksiyonu verilen sayı kadar generatordeki sayıyı artıracaktır. Yani ID= GEN_ID(BENIMGENERAOR,1); bu satırın en sonunda ki 1 sayısının yerine 2 verirsek sayılarımız 2 şer 2 şer artacaktır. Şimdi ınterbase / Firebird de işimiz bitti.ınterbase / Firebird üzerinde yapılacak işlemler bu kadar.
Şimdi gelelim ikinci aşamaya:
Bu aşamada oluşturduğumuz stored procedure nin delphi tarafından nasıl tetikleneceğini göreceğiz. Öncelikle Bir DataModule ile ve IBX componentleri ile çalıştığınızı,bir Database nesneniz olduğunu ve bağlantıların yapıldığını varsayıyorum.
DataModulümüz üzerine bir IBStoredPoc nesnesi koyalım. Database özelliğini IBDatabase e gösterecek şekilde ayarlayın. Database nesnenizin connect özelliğini True yapın. Bu işlemden sonra IBStoredProc Nesnesinin Stored Proc Name kısmına tıklarsanız ınterbase / Firebird Oluşturduğumuz "SP_GEN_MUSTERI_ID" Proceduresinin orada göründüğünü göreceksiniz. Bu procedure yi seçin Ve projenizi kaydedin.
Şimdi gelelim Bu IBStoredProc nesnesini tetiklemeye :

musteri isminde bir table ımızın olduğunu ve Bu table da SIRA_NO isminde Primary key ve not null olarak tanımlanmış bir fieldımız olduğunu varsayıyorum.

Tablenızın BeforePost olayına tıklayın ve aşağıdaki kodları kendinize uygun olarak güncelleyerek yazın:
Tabi bu kod illaki table ın BeforePost olayında olmak zorunda. AfterPost gibi bir olaya yazarsanız Table kayıt işleminde hata verecektir.



Şimdi yukardaki kodu inceleyelim.
Öncelikle Tableımızın durumunu kontrol ediyoruz. Yani table sadece insert modunda ise bu kod çalışmalı yoksa bir sürü hata alacağız..




Bu işlem Table ınıza her post işlemi gönderildiği anda henüz post işlemi yapılmadan önce tetiklenecek ve artık interbase de sizinde bir AUTOINC fieldınız olacaktır.
 

Delphi İle Oluştumak
Çıkan Pencerede Generator bölümüne geçiyoruz



Bir DataModule ile ve IBX componentleri ile çalıştığınızı,bir Database nesneniz olduğunu ve bağlantıların yapıldığını varsayıyorum. Diyelim IBDataset kullanıyorsunuz. IBDataset seçip Object inspectordan GeneratorField'e tıklayın ( IBTable de yoktur ). Karşınıza aşağıdaki pencere gelecektir.



Penceredeki

Generator bölümünden Generatorunuzu Field bölümünfden otomatik artacak alanı Increment By kısmına kaçar kaçar artacağıını yazdıktan sonra On Post kutucuğunu Seçip OK leyin.
 

Not : Trigger Kullandıysanız Otomatik artan alan Not Null olarak ayarlanmışsa ( Not Null olduğuna eminim çünkü otomatik artan alanlar Primary key için kullanılır. ) Delphi'den IBTABLE,IBQUERY,IBDATASET datasetiniz her neyse Çift tıklayıp Fields Editörden Otomatik artan alanınızı seçip Object inspector'dan Required özelliğini false yapın. aksi taktirde tek kayıt işleyemezsiniz tabloya. Ayrıca Master Detail Tablolarda Detail Tabloya Kayıt Girmeden önce Master Tabloyu Kapatıp açın

Hocam ben Compile yaptığımda şu hatayı veriyor.

---------- STATEMENT ----------

CREATE SEQUENCE OTO


---------- ERROR MESSAGE ----------

Invalid token.
Dynamic SQL Error.
SQL error code = -104.
Token unknown - line 1, char 7.
SEQUENCE.


oto isminde bir generator yapmak istedim ama bir türlü olmuyor. Yardımlarınızı bekliyorum

hocam peki bu otomatik artan alanı EMS SQL de nasılyaparız yine firebird kullanarak. Ben EMS SQL Manager 2008 for İnterbase & Firebird 5.0.1.1 kullanıyorum bununla ilgilide bir örnek verebilirmisiniz çünkü bunda çok denedim ama maalesef yapamadım

Selamlar..Hocamın izni olursa EMS'de yapılan Otomatik artan alanı ben cevaplıyayım!?...............

Firebird'de VT'nizde INTEGER Bir IDNO Field oluşturunuz? ve EMS DataBases Menüsünde VT'nizi açınız burada Generators'ün üstüne geliniz?,Sırayla; New Object \ generators Penceresi açılacak burada ilk açılışta New_Generetor..gibi ilk değer verilecek,bu aynı kalabilir veya değiştirilebilir,bir isim yazınız?..Value bölümüne 1 veya 0 (zaten ilk değer 0'dır) değerini giriniz ve Sarı ikona tıklayıp "Compile" ediniz..sonra kayıt ederek çıkınız. generetors'de Sarı parantes içinde (1) rakamıyla ilk otomatik alan oluşturuldu..

Sıra Delphide bunu aktif hale getirmek; İnterBase Bileşenlerinden IBTable veya IBDataSet'de (Hangisiyle bağlanacaksanız!.) üstüne geliniz ?..Properties\generetor Field'ın karşısındaki 3 noktalı icona tıklayınız?.açılan pencerede IDNo Field'ınızla New_Generetor'u seçili hale getiriniz?..Altta Üç seçenekten "Post.." olanı işaretleyiniz?..(Kayıt ederken Numara devam eder) Talonuzdada Field'ınızı DBText'de atadınızmı otomatik artan alan hazırdır...Kolay gelsin?...

tamam üstadım teşekkür ederim deneyip tekrar haber vereyim olmazsa yardımlarınız için sağolun saygılar

Bu konu daha önce tartışılmıştı araştırırsanız fikir sahibi olabilirsiniz!?....Normalde silinen kayıtın yeri boş kalır..zaten mantıkda budur..Örnek ;eğer silinen kayıt kaydırılarak yeri bir üst numara ile doldurulur fakat bu kayıtların otomatik olarak numaraları değişeği için her silinen kayıttan sonra veriler kayacaktır...işte o zaman her şey karışır atıyorum 10 numaralı kayıt ,3 tane kayıt silinirse 7 rakamını alır ..Proğramcılar bunu çözmek için değişik uygulamalar yapıyorlar mesela Muhasebe Proğramlarında Otomatik artan alan saklanarak, Rakamların başlarına Harflerle kodlar verilerek bu sorun çözülüyor..silinen kayıt olduğu zaman sadece o müşteri,isim gibi değer siliniyor..problemde olmuyor..artık bu proğramcıya kalmış birşey araştırırsanız çok değişik yöntemlerle karşılaşacaksınız!..kolay gelsin?.

Öncelikle Selamlar;
yapılan paylaşımlar için önce teşekkür etmek istiyorum.
ben veri tabanlarında yeniyim.
formu takip ederek Ibexpert yükledim.
Firebird'i öğrenmem gerekiyor.
aslında güzel gidiyorduk. taaki içinden çıkamadığım şu sorunla karşılaşana dek:

--------------------------------------------------------------------
Invalid token.
Dynamic SQL Error.
SQL error code = -104.
Token unknown - line 1, char 7.
SEQUENCE.
-----------------------------------------------------------------------
generator oluştururken bu hatayı alıyorum. çok kontrol ettim. muhakkak gözümden kaçan bir şey vardır dedim. hatta Ibexbert'i tekrar tekrar yükledim. Ne yaptıysam da bu sorunu çözemedim. bir türlü derleme yapamadım.

yardımcı olabilirseniz canı gönülden müteşekkir olurum.

çok teşekkür ederim. sorunun nedenini hala bilmiyorum ama
bilgisayarıma format attım.
düzeldi.
çok format atan biriyim. 3 defa daha format attım o günden beri ve bidaha bu sorunla karşılaşmadım.

ilginiz için teşekkür ederim.

makalelerde boolean veri tipine dönüştürme işlemi hakkında bir yazıya rastlayamadım. bu konuda bana yardımcı olabilirmisiniz.

Hocam bilgi vermek amacıyla Tablo yapısından KAYIT ismini verdiğim tablonun size rapor çıktısını gönderiyorum.



Açılmaz ise resim linki : http://img192.imageshack.us/i/tables1.jpg/