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

Kod:

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:

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 :

Kod:

Var
Tabloadi : String;
Begin
Tabloadi := 'Musteri';
AdoCommand1.CommandText := 'CREATE TABLE '+ tabloadi +' (MusteriNo Integer , MusteriAdi TEXT(10) )';
AdoCommand1.Execute;
End;

==========================

Index Olusturmaya yarayan kod :

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.  

    

    

   g.CopyFromScreen(

   ekranblack.Save(

   Dim ekransize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)Dim ekranblack As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(ekranblack)New Point(0, 0), New Point(0, 0), ekransize)"C:ekranblack.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)