<%
Set baglan = server.CreateObject("Adodb.Connection")
baglan.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source= " & Server.MapPath("vt1.mdb")
%>

"Vt1" adındaki Access veritabanımıza baglantımızı gerçekleştirdik. Şimdi ise bir tablo oluşturalım.
Tablo oluşturmak için "Create Table" komutunu kullanırız. Hemen "Uyeler" adında bir tablo oluşturalım ve Uyeler tablomuza Uyeid diye bir alan adı yaratıp bunun veri türünü Otomatik sayı olarak belirliyelim.

baglan.execute("Create Table Uyeler (Uyeid AutoIncrement)")

Tablomuzu oluşturduk id adında alan adı oluşturup veri türünü ise otomatik sayi olarak belirledik.
Bu tablomuza birde "AdSoyad" adında Metin Alan adı oluşturalım ve Maksimum karakter sayısını 100 yapalım.

baglan.execute("Alter Table Uyeler ADD AdSoyad varChar(100) NULL")

Bunuda oluşturduğumuza göre Uyeler tablosuna SAYI ve NOT veri türlerinide örnekler içersinde gösterelim.
Veritürü sayı olucak şekilde Yas Alan adı oluşturalım ve Not veri türü için ise de Ozgemis Diyelim.

baglan.execute("Alter Table Uyeler ADD Yas INT NULL")
baglan.execute("Alter Table Uyeler ADD Ozgecmis MEMO NULL")

Son olarak veri türlerini oluşturmak için kullandıgımız isimler söyledir.
Son hali:

<%
Set baglan = server.CreateObject("Adodb.Connection")
baglan.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source= " & Server.MapPath("vt1.mdb")
baglan.execute("Create Table Uyeler (Uyeid AutoIncrement)")
baglan.execute("Alter Table Uyeler ADD AdSoyad varChar(100) NULL")
baglan.execute("Alter Table Uyeler ADD Yas INT NULL")
baglan.execute("Alter Table Uyeler ADD Ozgecmis MEMO NULL")
Response.Write("Uyeler adında veritabanı ve Alan adları oluşturuldu.")
baglan.close : set baglan = Nothing
%>

Access Veritabanı için tablo ve oluşturulan tablo için Alan adı oluşturmayı gördük şimdi ise Mysql veritabanı için bir göz atalım.

Mysql Veritabanı içinde aynı şekilde baglantımızı oluşturduk hemen sonra Aynı tabloyu ve aynı Alan adlarını Mysql e de göstereyim.

baglan.execute("Create Table Uyeler (Uyeid Int NOT NULL auto_increment , PRIMER KEY (΄Uyeid΄))")
baglan.execute("Alter Table Uyeler ADD AdSoyad VarChar(100) NULL")
baglan.execute("Alter Table Uyeler ADD Yas INT NULL")
baglan.execute("Alter Table Uyeler ADD Yas TEXT NULL")

Şimdide Son olarak Mssql veritabanı için kodlarımız şu şekildedir:

baglan.execute("Create Table Uyeler (Uyeid Int IDENTITY(1,1) NOT NULL")
baglan.execute("Alter Table Uyeler ADD AdSoyad VarChar(100) NULL")
baglan.execute("Alter Table Uyeler ADD Yas INT NULL")
baglan.execute("Alter Table Uyeler ADD Yas TEXT NULL")

Asp yazılım dile ile Access, Mysql ve Mssql veritabanlarında Tablo ve Alandı oluşturmayı gördük.

Hepinize Kolay gelsin :)