Günün Fırsatı
burda vereceğim kodlar veri tabanınızdan rastgele veri çekmeye yarayacak. kodumuza geçelim
Kod: [Seç]
<%
xDb_Conn_Str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("veritabani.mdb") & ";" ' Veri Tabanı adresi
set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str
strsql = "SELECT * FROM Tabloadi" ' Veri tabanımızdaki tablo
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn, 1, 2
randomize timer ' Sürekli aynı sayiyi vermemesi için gerek kod.
sayi = int(RND * rs.RecordCount) 'En fazla kayıt sayısı olacak şekilde rastgele sayı tutulur
rs.move(sayi) ' Veri tabanındaki kaydı seçmeye yarar
response.write ""&rs("sutun_adi")&""
%>
Umarım açıklayıcı olmuştur. Takılan olursa yardım ederim




LinkBack URL
About LinkBack
Yazdırılabilir Şekli Göster
Arkadaşına Gönder
Bu Konuya Abone Ol
07 Aralık 2010, 20:12:39






