Arama butonu
Bu konudaki kullanıcılar: 1 misafir
1
Cevap
2284
Tıklama
0
Öne Çıkarma
Access Veritabanından Id Numarasına göre Rasgele veri çekme nasıl olmalıdır
T
14 yıl
Çavuş
Konu Sahibi

Arkadaşlar Access Veritabanından Tablomuzun ID numarasını kullanarak verilerimizi anasayfada rasgele karışık nasıl sıralatabiliriz.

Anasayfadaki Bazı Ürün resimlerimin ve kısa bilgilerinin her sayfa yenilendiğinde başka başka gelmesini sağlamak istiyorum bunu nasıl hallederiz

bir kod vardı Alttaki gibi bunda sadece 1 tane veriyi kullanabiliyorum mesela bunda resimlerim görünmüyor resimlerim yazı şeklinde çıkıyor sizce nasıl yapmalıyım


<%
Set veritabanim = Server.CreateObject("ADODB.Connection")
veritabanim.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("data.mdb")

Set rs = server.CreateObject("ADODB.Recordset")
sql = "select * from tablom"
rs.open sql,veritabanim,1,3

Randomize
rastgele = Int((Rnd*Rs.RecordCount)+0)
Rs.Move(rastgele)
Response.Write Rs("ID")
%>



S
14 yıl
Çavuş

<%
Set veritabanim = Server.CreateObject("ADODB.Connection")
veritabanim.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("data.mdb")

Randomize()
intRastgele1 = Int (1000*Rnd)+1

Set rs = server.CreateObject("ADODB.Recordset")
rs.open "select ID,sütun1,sütun2,sütun3,sütun4, Rnd(" & -1 * (intRastgele1) & "* ID) from tablom order by 5 ",veritabanim,1,3

%>


Veriyi normal çekin, sütun yazan yerler db deki alanlarınız onları yazın kendinize göre, order by 5 olan kısım veritabanınızdaki kayıt sayısına göre ayarlanır.O rakam 4 dende çevirebilir 5 dende çevirebilir, 6 danda çevirebilir 9 a kadar yolu var, 5 olmazsa 2 den başlayıp tek tek deneyin 3 - 4 - 5 -6 hepsini deneyin yenileyin sayfayı biri olacaktır....Kolay gelsin



DH Mobil uygulaması ile devam edin. Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin. Gizle ve güncelleme çıkana kadar tekrar gösterme.