Kod ile Veri Tabanı Oluşturma

[HighVoltage]

Kod ile Veri Tabanı Oluşturma

Table (Tablo) : Kullanılan veritabanı üzerindeki bir tabloyu belirtir.

Dynaset : Kullanılan veritabanı üzerinde yerel olarak var olan veya bu veritabanına bağlı olan tablolar ile bir sorgu sonucunda oluşturulan tabloları da temsil edebilir.

Snapshot : Yaratıldığı anda ilişkilendirildiği verilerin sabit bir kopyasını barındırır. Jet veritabanı motoru tarafından kullanılan snapshot yapısında değişiklik yapılamaz.

Forward-only : Forward-scrolling snapshot veya forward-only snapshot olarak adlandırıldığı da olur. Snapshot yapısının sağladığı olanakların bir alt kümesini sunar.

Dynamic : Bir veya birden fazla tabloyu içeren bir sorgu sonucunu tutmak için kullanılır. Bu yapıda ekleme, silme değiştirme gibi özellikler de sağlanır.

Microsoft Dao 2.5/3.5 Compatibility Library referanslara eklenir.

Dim Yeni_Dosya As Database ' Tanımlamalar
Dim Yeni_Tablo As New TableDef
Dim Yeni_Index As New Index
Dim Yeni_alan1 As New Field
Dim Yeni_alan2 As New Field
Dim Yeni_alan3 As New Field
Dim Yeni_alan4 As New Field
' Veri tabanı oluşturuluyor
Set Yeni_Dosya = CreateDatabase("Personel", dbLangGeneral)
' Tablo oluşturmak
Set Yeni_Tablo = Yeni_Dosya.CreateTableDef("Kisiler")
' Tablo alanları oluşturuyor
Set Yeni_alan1 = Yeni_Tablo.CreateField("Adi", dbText, 20)
Yeni_Tablo.Fields.Append Yeni_alan1 ' Alan tabloya ekleniyor
Set Yeni_alan2 = Yeni_Tablo.CreateField("Soyadi", dbText, 20)
Yeni_Tablo.Fields.Append Yeni_alan2
Set Yeni_alan3 = Yeni_Tablo.CreateField("SicilNo", dbInteger)
Yeni_Tablo.Fields.Append Yeni_alan3
Set Yeni_alan4 = Yeni_Tablo.CreateField("Adres", dbText, 100)
Yeni_Tablo.Fields.Append Yeni_alan4
' Index oluşturuluyor
Yeni_Index.Name = "SicilAra"
Yeni_Index.Unique = True
Yeni_Index.Primary = True
Yeni_Index.Fields = "Sicilno"
Yeni_Tablo.Indexes.Append Yeni_Index ' Index tabloya ekleniyor

Yeni_Dosya.TableDefs.Append Yeni_Tablo ' Tablo veri tabanına ekleniyor