Kodbank Ä°ndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

ÖNEMLİ AÇIKLAMA: MUTLAKA OKUYUNUZ!

« önceki sonraki »
Sayfa: [1]   AÅŸağı git

Gönderen Konu: Kod ile Veri Tabanı ,Tablo ve Index Olusturma  (Okunma sayısı 2140 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı asimo

  • Üye
  • ***
  • Ä°leti: 49
  • Rep: +1/-3
Kod ile Veri Tabanı ,Tablo ve Index Olusturma
« : 08 Kasım 2005 12:33:48 »
Bilginin paylasımı esas alınarak ihtiyacı olan arkadasların yararlanabilecegi bir yazı yazmak daha uygun olur dusuncesiyle Delphi'de .MDB uzantılı veritabanı dosyalarının nasıl olusturuldugunu adım adım anlatmaya calısacagım.
- 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 :
Kod: Delphi
  1. var
  2.    veritabani , veritabaniyolu : String;
  3. Begin
  4. Veritabaniyolu := 'c:\deniz.mdb';
  5. veritabani := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source =' +    veritabaniyolu + ';Jet OLEDB:Engine Type=5';
  6. AdoCommand1.ConnectionString := veritabani;
  7. CatalogDt1.Create1(Veritabani);
  8. End;
  9.  

Tabloyu olusturacak kod :
Kod: Delphi
  1. Var
  2.   Tabloadi : String;
  3. Begin
  4. Tabloadi := 'Musteri';
  5. AdoCommand1.CommandText := 'CREATE TABLE '+ tabloadi +'  (MusteriNo Integer , MusteriAdi TEXT(10) )';
  6. AdoCommand1.Execute;
  7. End;
  8.  

Index Olusturmaya yarayan kod :
Kod: Delphi
  1. Begin
  2. AdoCommand1.CommandText := ' Create Index MusteriIndex On Musteriler(MusteriNo) with Primary ';
  3. AdoCommand1.Execute;
  4. End;
  5.  
Acıklamalar
* Primary : Birincil Anahtar.
* Unique : Indexlenmis iki tane aynı degerde verinin bulunması engellenir.
* Ignore Null : Bos degerler indexleme de yer alamaz.

Umarım Bu bilgiler burada bu konu ile ilgilenen arkadasların isine yarar.
* Bu makale ilk olarak www.programlama.com'da yayınlanmıstır.
( Asimo )
« Son Düzenleme: 09 Kasım 2005 22:07:16 by asimo »
Kayıtlı

Çevrimdışı Mikdad

  • Kıdemli Ãœye
  • *****
  • Ä°leti: 150
  • Rep: +2/-2
  • Cinsiyet: Bay
    • http://www.mikdad.net
Ynt: Kod ile Veri Tabanı ,Tablo ve Index Olusturma
« Yanıtla #1 : 08 Kasım 2005 13:24:53 »
teşekkür ederim benim işime yarıyacak umarım merak edenler okur. tekrar eline sağılk
Kayıtlı
Hiç KiMSe VaZGeÇiLMeZ DeĞiLDiR
WwW.Minikhost.Net    Host Dünyasında Yeni Bir Soluk
WwW.Mikdad.Net        İslami İçerikli Portalınız
WwW.Pckahvesi.com   Netteki Yeni Adresiniz

Çevrimdışı Fatih

  • Emekli Yönetici
  • *****
  • Ä°leti: 2.217
  • Rep: +43/-10
  • Cinsiyet: Bay
    • Delphi Dünyası
Ynt: Kod ile Veri Tabanı ,Tablo ve Index Olusturma
« Yanıtla #2 : 08 Kasım 2005 15:30:20 »
eline sağlık
Kayıtlı
Malulen emekli programcı / yazar. Bildiklerini unutmakta olduğundan size cevap veremez.

Çevrimdışı asimo

  • Üye
  • ***
  • Ä°leti: 49
  • Rep: +1/-3
Ynt: Kod ile Veri Tabanı ,Tablo ve Index Olusturma
« Yanıtla #3 : 09 Kasım 2005 11:43:38 »
Tesekkurler arkadaslar.
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »