Anasayfa > Kodlar > Visual basic 6 ile Ado autonumber

Visual basic 6 ile Ado autonumber


ADO ile Database Oluşturmak Ve Gerekli Alanlara AutoNumber Ozelliği Vermek

Herkese Merhaba,
Çok uzun zamandır Visual Basic ile ilgilenirim ama bugüne kadar pek makale/döküman gibi yazılar yazıp yararlanmak isticek arkadaşlara sunmadım. Yanlış anlamayın hem işler hem vaktin dar olması. Herneyse forum bölümün oldukça sık izliyorum gayet güzel. Ben bir türk genci olarak mutlu oluyorum. Böylesine dayanışma örneğinden. Herneyse konumuza geçelim. Aşağıda Ado ile hazırlanmış bir database ve bu db'nin içindeki bir alanı AUTONUMBER olarak ayarlarını anlatağım.
1. Projemize Project > Peferences menüsünden "Microsoft ADO Ext. 2.5 for DDL and Security" referansını onaylıyoruz. Sonra bir adet command butonu'na aşğıdaki kodları ekliyoruz. Kolay Gelsin


----------------------------------------
Dim CAT As ADOX.Catalog
Dim TABLE  As ADOX.Table
Dim COLUMN As ADOX.Column
Dim KEY As ADOX.Key 

On Error Resume Next
Kill ".DENEME.mdb"
On Error GoTo 0

'Hazırladığımız Database Jet Engine kısmından
'Access 97 veya 2000 kataloglarına göre seçibiliriz
'Engine Type=4 ( Access 97 )
'Engine Type=5 ( Access 2000 )

Set CAT = New ADOX.Catalog
CAT.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=.DENEME.mdb;" & _
"Jet OLEDB:Engine Type=4;"

' Tablo hazırladığımız bölüm
Set TABLE = New ADOX.Table
TABLE.Name = "TABLO_ADI"
CAT.Tables.Append  TABLE

'Tablo içindeki yarattığımız alanın özelliğini
'Otomatik Numara olarak atıyoruz
Set COLUMN = New ADOX.Column
With COLUMN
.Name = "ALAN_ADI"
.Type = adInteger
Set .ParentCatalog = CAT
.Properties("Autoincrement") = True
End With
CAT.Tables("TABLO_ADI").Columns.Append  COLUMN

' Tablo için primey key atıyoruz
Set KEY = New ADOX.Key
With KEY
.Name = "PrimaryKey"
.Type = adKeyPrimary
.RelatedTable = "TABLO_ADI"
.Columns.Append "ALAN_ADI"
End With
CAT.Tables("TABLO_ADI").Keys.Append  KEY

İşallah birileri Yararlanır :)
Kolay Gelsin

  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: