restgele veri - R10.net

03-03-2009, 22:46:52

Kimlik doğrulama veya yönetimden onay bekliyor.

restgele veri cekmek istiyorum yapamadım arkadaşlar

<%
SQL = "SELECT TOP 1 haberID, baslik, ozet, kucuk_resim, durum, onay, tarih, kategori FROM tblHaberler"
SQL = SQL &" WHERE durum = True AND onay = True AND kucuk_resim <> '' AND kategori=25"
SQL = SQL &" ORDER BY tarih DESC"
kdGenel.Open SQL, adoCon, 1, 3

If Not kdGenel.Eof Then
Response.Write ""
intLooper = 1
Do While intLooper <= 1 AND Not kdGenel.Eof %>

%>

03-03-2009, 22:57:23

#2

DarKSteaL

rastgele verı cekmeyle ılgılı kod gecmıs konularda mevcut araştırınız..

03-03-2009, 23:03:35

#3

aponal

yapamadım uraştım ama olmadı

04-03-2009, 01:34:57

#4

denom

rastgele tek bir kayıt seçeceksen

kayit = kdGenel.RecordCount
Randomize
sec = Int((kayit * Rnd) + 0)
kdGenel.Move(sec)

04-03-2009, 15:02:22

#5

teknoemin

Alıntı

<%
Set doktur = Server.CreateObject("ADODB.Recordset")
doktur.open "SELECT * FROM tabloadi",baglantidegiskeni,1,3
%>

<%
emin = doktur.recordcount

randomize
sayi = int((emin * rnd) + 0)
%>

<%
Set sonuc = Server.CreateObject("ADODB.Recordset")
sonuc.open "SELECT * FROM tabloadi WHERE id = " & sayi & "",baglantidegiskeni,1,3
%>

<%=sonuc("eposta")%>

Kodları deneme vaktim olmadı. Makinemdede Local şu anda yüklü değil PHP deseydin hemen denemeli yazardım. Sıkıntı olursa düzenleyebilirim.

Saygılarımla
Emin ÖZTÜRK

05-03-2009, 00:20:20

#6

~~Tuncsoft~~

Üyeliği durduruldu

Eğer kullandığın Veritabanı çeşiti MYSQL ise ;
Mysql den rastgele veri çekme :
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
rsSQL = "SELECT * FROM tabloadi ORDER BY RAND() "
Rs.Open rsSQL,dbBaglantiNesnen,1
%>

Eğer MSSQL ise :
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
rsSQL = "SELECT * FROM tabloadi ORDER BY NEWID() "
Rs.Open rsSQL,dbBaglantiNesnen,1
%>

Access ise arkadaşların verdiği kodu dene

Tavsiyem Access MDB kullanma zaten performansı çok düşük