Aşağıdaki örnekler yardımıyla tablolarınızdaki kayıtların sayısını kolaylıkla elde edebilirsiniz...
<'--1. Yöntem (RecordCount ile)>
<%
'-- Değişkenler tanımlandı.
Dim cnnDB, Rs, kayitsayisi, mySQL
'-- cnnDB isimli veritabanı bağlantı nesnesi oluşturuldu.
Set cnnDB=Server.CreateObject("ADODB.Connection" )
'-- Rs isimli recordSet nesnesi oluşturuldu.
Set Rs =Server.CreateObject("ADODB.Recordset" )
'-- ODBC'den MyDSN isimli veritabanı açıldı.
cnnDB.Open "MyDSN"
'-- SQL oluşturuldu.
mySQL="Select TblOrnek.* FROM TblOrnek;"
'-- SQL bağlantı nesnesi üzerinde çalıştırıldı, sonucu Rs recordSet nesnesine aktarıldı.
Rs.Open mySQL,cnnDB,3
'-- RS'de bulunan kayıtların sayısı kayitsayisi değişkenine atandı.
kayitsayisi=Rs.recordcount
'-- Kayıt sayısı ekrana yazdırıldı.
Response.Write kayitsayisi
'-- RecordSet kapatıldı.
Rs.Close
'-- Bağlantı kapatıldı.
cnnDB.Close
'-- Bağlantı bellekten silindi.
Set cnnDB=Nothing
%>
<'--2. Yöntem (SQL ile)>
<%
'-- Değişkenler tanımlandı.
Dim cnnDB, Rs, kayitsayisi, MySQL
'-- cnnDB isimli veritabanı bağlantı nesnesi oluşturuldu.
Set cnnDB=Server.CreateObject("ADODB.Connection" )
'-- ODBC'den MyDatabase isimli veritabanı açıldı.
cnnDB.Open "MyDatabase"
'-- SQL oluşturuldu.
mySQL="Select COUNT(*) FROM TblOrnek;"
'-- SQL bağlantı nesnesi üzerinde çalıştırılarak Rs isimli recordSet nesnesine aktarıldı.
Set Rs =cnnDB.Execute(mySQL)
'-- Rs'in 0. Alanı kayıt sayısını bize verdi.
kayitsayisi=Rs(0)
'-- Kayıt sayısı ekrana yazdırıldı.
Response.Write kayitsayisi
'-- RecordSet kapatıldı.
Rs.Close
'-- Bağlantı kapatıldı.
cnnDB.Close
'-- Bağlantı bellekten silindi.
Set cnnDB=Nothing
%>