Recordcount

Recordcount

<%
' Veritabanna balanalm
Set kon=server.createobject(""addob.connection"")
rconn.Open= ""DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= "" & server.mappath (""db/data.mdb"")
Set rs=server.createobject(""adodb.recordset"")
sql = ""Select * from tablo""
conn.Open sq,kon,3,3
%>

'Sonra Recordcount yntemi ile kayt saysn kolayca alyoruz.
Veritabanndaki tabloda toplam <% rs.recordcount%>kayt var


----------------------------2--------------------------------


DB deki toplam Kayt MaxiCooL
<%
' bi daha db yolunu gsteriyoruz.
Set Sur = Server.CreateObject(""ADODB.Connection"")
Sur.Open ""DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="" & Server.MapPath(""datam.mdb"")

toplam = MaxiCooL.Recordcount

%>
<% =toplam %>

-------------------------3-----------------------------
<'--(SQL ile)>

<%
'-- Deikenler tanmland.
Dim cnnDB, Rs, kayitsayisi, MySQL
'-- cnnDB isimli veritaban balant nesnesi oluturuldu.
Set cnnDB=Server.CreateObject(""ADODB.Connection"")
'-- ODBC'den MyDatabase isimli veritaban ald.
cnnDB.Open ""MyDatabase""
'-- SQL oluturuldu.
mySQL=""Select COUNT(*) FROM TblOrnek;""
'-- SQL balant nesnesi zerinde altrlarak Rs isimli recordset nesnesine aktarld.
Set Rs =cnnDB.execute(mySQL)
'-- Rs'In 0. Alan kayt saysn bize verdi.
kayitsayisi=Rs(0)
'-- Kayt says ekrana yazdrld.
Response.Write kayitsayisi
'-- Recordset kapatld.
Rs.Close
'-- Balant kapatld.
cnnDB.Close
'-- Balant bellekten silindi.
Set cnnDB=Nothing
%>