Selamlar Saygılar;

Asp ile senelerdir bir çok proje geliştirmiş biri olarak asp ye başlarken ado nesnesi ile yaptığımız şaklabanlıkları zaman geçtikce gelişen ve büyüğen web sektörü içerisinde alt yapımız geliştirme çabamızın içerisinde yetersiz kalıyordu.

Geçen zaman içerisinde access deki yeteneksizlik ve güvenirlik problemleri yüzünden ve büyük projelere uyum sağlayamamasından ötürü farklı bir veritabanı arayışı içine girdim.

Mssql ilk gözümü çarpan oldu.Biraz kullandıktan sonra sunucu tarafındaki kaynak tüketim problemleri(fazla kaynak tüketimi) ve maliyetli bir yapısı olduğundan mysql üzerinde bişiler yapmayı düşündüm.

Sonrasında Mysql nimetleri ve hızını gördükten sonra asp ve mysql ikilisinin ne kadar çok yakıştığını öğrendim.

Gel zaman git zaman Php ye geçip bu mysql meletini daha rahat kullanmayı düşünmedim değil.Ancak Asp ye olan bağlılığım buna hep engel teşkil etti. oje tabanlı programlamaya ne kadar imrensemde asp de buna çok fazla dokunamasakta HTML kodları arasında esnek bir şekilde kod yazabildiğimiz müthiş script ,asp bizi her zaman kucakladı.

lafı fazla uzatmadan asp ve mysql olayına bir bakış açısı daha getirip hemen php de ki mysql fonksiyonları gibi asp de de hızlı kod yazmaı oop modeline yaklaşmayı nasip eden kodlar ile sözlerime devam edeyim.

Class Veritabani
        Public SQL,RS,TOTAL

        Public Function EXE(e)
                SQL = replace(SQL,"Select","Select SQL_CALC_FOUND_ROWS")
                Set RS= conn.Execute(SQL)
                if inSTR(e,"toplam")    > 0 then TOT()
        End Function

        Private Function TOT
                Set e   = conn.Execute("SELECT FOUND_ROWS() as x")
                TOTAL   = CINT(e("x"))
                Set e   = nothing
        End Function

        Public Function CLS
                Set RS = nothing
        End Function
End Class

Bu da kullanım şekli…

Set kayitCek = new Veritabani
  With kayitCek
    .SQL = "Select * from tablo"
    .EXE("toplam")
    response.write .RS("FieldName")
    response.write .TOTAL
    .CLS
  End With
Set kayitCek = nothing