Sifreli Mdb'ye Bağlanma : Acıklama
Kodu vt_baglan.asp sayfası olarak kaydedin ve kullanmak istediğiniz sayfaya include metodu ile ekleyin.
Kullandığınız access veritabanına ms access programını kullanarak ilgili yerden şifre verin...
Not: Veritabanlarınıza server kontrol panelinizden yazma izni vermeyi unutmayın.
kod :
Alıntı
<%
'- Veritabanı Bağlantı Kodu: -----
'---------------------------------------------
cString = "Provider=ODBC;DSN=Pubs"
Set bag = Server.CreateObject("ADODB.Connection")
vt_yol = "driver={Microsoft Access Driver (*.mdb)};" & _
"dbq=" & Server.MapPath("db/veritabani_adi.mdb")
cString = "Pubs"
bag.Open vt_yol, cString, "Parola_Alanı"
'---------------------------------------------
%>
--------------------------------------------------------------
db deki yaıtlaı sıralama :
Acıklama :
Recordset nesnesinin Recordcount methodu ile veritabanındaki kayıt sayısını aşağıdaki örnek kod ile alabilirsiniz.
kod :
Alıntı
<%
set kon=server.createobject("addob.connection") conn.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
%>
Veritabanındaki tabloda toplam <% rs.recordcount%> kayıt var.
--------------------------------------------------------------
rastgele veri alma : Açıklama
dbden rastgele veri cekleme Her yenilemede farklı veri çekme
kod :
Alıntı
<%
Set Kon = Server.CreateObject("ADODB.Connection" )
Kon.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabani yolu" ))
Set Rs = Server.CreateObject("ADODB.Recordset" )
SQL = "SELECT * FROM TblYeni"
Rs.Open SQL,kon,1,3
Randomize
kac = Int((rs.RecordCount * Rnd)+ 0)
Rs.Move(kac)
Soz=Rs("Soz" )
Resim=Rs("Resim" )
AltYazi=Rs("AltYazi" )
Rs.Close
Kon.Close
Set Rs=Nothing
Set Kon=Nothing
%>
--------------------------------------------------------------
Sayfa Yuklenme Süresi :
Sayfanın kaç sn dk de yuklendiğini göterir
kod :
Alıntı
<%
lngTimer=Timer
For lngCnt=1 to 1000000
Next
Response.Write FormatNumber(Timer-lngTimer,2,True) & " saniye."
%>
konuyu tamamlayana kadar konu kitliş kalacak
Gerekli olucak bir çok kod eklicem