Forum, blog, ziyaretçi defteri vb web uygulamalarında muhakkak kullanmanız gereken şey veritabanıdır. Bir çok veritabanı mevcut. Fakat en popüler olanları MySQL, MsSQL, Oracle, MS Access..
MySQL, MsSQL, Oracle gibi veritabanları büyük projelerde kulllanılması gereken veritabanlarıdır. Örneğin; büyük ve zincir mağazalar (teknosa vb), sanal mağazalar vb büyük kitlelere ulaşan ve sürekli kullanılan uygulamalarda kullanılması gerekir. Fakat access ise daha küçük uygulamalarda veya projelerde kullanılabilir. Örneğin; ziyaretçi defteri, küçük çaplı forum, bloglar vb.
MS Access bu yüzden ASP kullananlar açısından en önemli veritabanı uygulamasıdır. Çünkü genel olarak herkes kendine site yaptığı için bu tip küçük ve çok işlem gerektirmeyen bir veritabanı uygulaması tercih ederler.
Fakat tabii ki MS Access'in de küçük uygulamaların veritabanı olmasından kaynaklanan kötü yanları vardır. Örneğin aynı anda 10 ve fazla kullanıcı sitenize bağlandığında çalışması yavaşlamaya başlar, çabuk şişer ve boyutu hemen MB'lara ulaşabilir (ta ki siz Veritabanı Dönüştür ve Onar aracını kullanana kadar). En kötü özelliği ise online olarak veritabanına erişilememesidir. MySQL, MsSQL gibi veritabanı uygulamalarının internet üzerinden yönetimini olanaklı kılan bir takım yazılımlar mevcut. Fakat MS Access için böyle bir uygulama mevcut değil ve siz veritabanınızı güncellemek, tamir etmek, değiştirmek için kendi bilgisayarınıza çekmeniz gerekir. Bu sırada bir sürü sorun yaşayabilirsiniz. Başlıcaları;
- Sitenize o an bağlanan kişilerin erişiminde sağlanan izinlerden kaynaklanan değişiklikler sayılmaz.
- Güncellerken yaptığınız upload işleminden dolayı siteniz hata verebilir.
Bu sorunları çoğaltmak mümkün ama en etkili nedenler bunlar. Lafı artık daha da uzatmadan size MS Access veritabanı üzerinde oynamanızı sağlayabilecek bir takım kodları vericem.
Yeni Tablo Oluşturmak:
'Baglanti isimli DB baglantimizi oluşturduğumuzu varsayıyorum.'
Set YeniTablo = Server.Createobject("Adodb.Recordset")
ytSQL = "Create TABLE TabloAdi (Id AUTOINCREMENT, Metin CHAR(254), Sayi NUMERIC)"
YeniTablo.Open ytSQL, Baglanti, 1, 3
'Baglanti isimli DB baglantimizi oluşturduğumuzu varsayıyorum.'
Set YeniTablo = Server.Createobject("Adodb.Recordset")
ytSQL = "Alter TABLE TabloAdi ADD COLUMN YeniAlan Text(25);"
YeniTablo.Open ytSQL, Baglanti, 1, 3
'Baglanti isimli DB baglantimizi oluşturduğumuzu varsayıyorum.'
Set YeniTablo = Server.Createobject("Adodb.Recordset")
ytSQL = "DROP {TABLE TabloAdi | INDEX index ON TabloAdi}"
YeniTablo.Open ytSQL, Baglanti, 1, 3