ASAMALAR
1 - Project-Import Type Library menulerini kullanarak "Import Type Library" Penceresini acın.
2 - Buradan Microsoft Ado Ext 2.x for DLL And Security (Version 2.7) 'yi secin.
3 - Secme islemi gerceklestikten sonra pencere de bulunan Class Name kutusunda bulunan
TTable
TColumn
TIndex
TKey
TGroup
TUser
TCatalog
seceneklerinin adlarının yanına "Dt" kelimesini ekleyip asagıda ki goruntunun aynısını elde edin.
TTableDt
TColumnDt
TIndexDt
TKeyDt
TGroupDt
TUserDt
TCatalogDt
4 - Daha sonra "Import Type Library" penceresinin alt kısımında yer alan "Install..." dugmesine basınız.
5 - "Install.." Dugmesine bastıktan sonra karsınıza "Install" penceresi cıkacaktır bu pencerede ki "OK" dugmesine basınız.
6 - Daha sonra bu bilesenlerin ActiveX kısmına eklenecegini ve devam edip etmemeniz gerektigini cevaplamanızı bekleyen bir pencere acılacaktır bu pencere de "YES" dugmesi (Button) secilir.
7 - Simdi bu olusturulan bilesenler ActiveX Componen Palette 'te yer alacaktır.
8 - ActiveX component Palette'ye gelip buradan "TCatalogDt" bilesenini form'umuza ekliyoruz.
9 - Ado component palette'te gelip AdoCommand bilesenini form'umuza ekliyoruz.
10 - Sırasıyla kodlama...
veri tabanını olusturacak kod :
var
veritabani , veritabaniyolu : String;
Begin
Veritabaniyolu := 'c:\deadly.mdb';
veritabani := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source =' + veritabaniyolu + ';Jet OLEDB:Engine Type=5';
AdoCommand1.ConnectionString := veritabani;
CatalogDt1.Create1(Veritabani);
End;
==========================
Tabloyu olusturacak kod :
Var
Tabloadi : String;
Begin
Tabloadi := 'Musteri';
AdoCommand1.CommandText := 'CREATE TABLE '+ tabloadi +' (MusteriNo Integer , MusteriAdi TEXT(10) )';
AdoCommand1.Execute;
End;
==========================
Index Olusturmaya yarayan kod :
Begin
AdoCommand1.CommandText := ' Create Index MusteriIndex On Musteriler(MusteriNo) with Primary ';
AdoCommand1.Execute;
End;
==========================
Acıklamalar
* Primary : Birincil Anahtar.
* Unique : Indexlenmis iki tane aynı degerde verinin bulunması engellenir.
* Ignore Null : Bos degerler indexleme de yer alamaz.
1 - Project-Import Type Library menulerini kullanarak "Import Type Library" Penceresini acın.
2 - Buradan Microsoft Ado Ext 2.x for DLL And Security (Version 2.7) 'yi secin.
3 - Secme islemi gerceklestikten sonra pencere de bulunan Class Name kutusunda bulunan
TTable
TColumn
TIndex
TKey
TGroup
TUser
TCatalog
seceneklerinin adlarının yanına "Dt" kelimesini ekleyip asagıda ki goruntunun aynısını elde edin.
TTableDt
TColumnDt
TIndexDt
TKeyDt
TGroupDt
TUserDt
TCatalogDt
4 - Daha sonra "Import Type Library" penceresinin alt kısımında yer alan "Install..." dugmesine basınız.
5 - "Install.." Dugmesine bastıktan sonra karsınıza "Install" penceresi cıkacaktır bu pencerede ki "OK" dugmesine basınız.
6 - Daha sonra bu bilesenlerin ActiveX kısmına eklenecegini ve devam edip etmemeniz gerektigini cevaplamanızı bekleyen bir pencere acılacaktır bu pencere de "YES" dugmesi (Button) secilir.
7 - Simdi bu olusturulan bilesenler ActiveX Componen Palette 'te yer alacaktır.
8 - ActiveX component Palette'ye gelip buradan "TCatalogDt" bilesenini form'umuza ekliyoruz.
9 - Ado component palette'te gelip AdoCommand bilesenini form'umuza ekliyoruz.
10 - Sırasıyla kodlama...
veri tabanını olusturacak kod :
var
veritabani , veritabaniyolu : String;
Begin
Veritabaniyolu := 'c:\deadly.mdb';
veritabani := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source =' + veritabaniyolu + ';Jet OLEDB:Engine Type=5';
AdoCommand1.ConnectionString := veritabani;
CatalogDt1.Create1(Veritabani);
End;
==========================
Tabloyu olusturacak kod :
Var
Tabloadi : String;
Begin
Tabloadi := 'Musteri';
AdoCommand1.CommandText := 'CREATE TABLE '+ tabloadi +' (MusteriNo Integer , MusteriAdi TEXT(10) )';
AdoCommand1.Execute;
End;
==========================
Index Olusturmaya yarayan kod :
Begin
AdoCommand1.CommandText := ' Create Index MusteriIndex On Musteriler(MusteriNo) with Primary ';
AdoCommand1.Execute;
End;
==========================
Acıklamalar
* Primary : Birincil Anahtar.
* Unique : Indexlenmis iki tane aynı degerde verinin bulunması engellenir.
* Ignore Null : Bos degerler indexleme de yer alamaz.
