MDB dosyasından rastgele veri çekebilirmiyim? - Sayfa 2

20-04-2009, 02:07:22

#10

~~obidergi~~

Üyeliği durduruldu

Kod için teşekkürler.

20-04-2009, 02:07:39

#11

electronicboy

<!-- #include virtual="/asp/public.asp" -->
<%
  Dim StartTime
  StartTime = Timer
  dim SQLCount
  SetConnObject conn,rs
  '1. Yöntem
  sql = "SELECT rows AS TABLECOUNT FROM sysindexes WHERE id = OBJECT_ID('TABLENAME') AND indid < 2"
  rs.open sql,conn
  SQLCount = rs("TABLECOUNT")
  Response.Write ("Toplam Kayıt : " & SQLCount &"<br>")
  rs.close
  Randomize Timer
  intRnd = (Int(RND * SQLCount))
  sql = "SELECT * FROM TABLENAME WHERE PK ="&intRnd
  rs.open sql,conn
  Response.Write("1. Yöntem" & Timer-StartTime &" saniye sürmüştür. Random ID" & rs("FIELDNAME") & "<BR>")
  rs.close
  '2. Yöntem
  StartTime = Timer
  sql="SELECT top 1 PK,FIELDNAME FROM TABLENAME ORDER BY RAND(PK), FIELDNAME"
  rs.open sql,conn
  Response.Write("2. Yöntem" & Timer-StartTime &" saniye sürmüştür. Random ID" & rs("FIELDNAME") & "<BR>")
  rs.close
  '3. Yötenm
  StartTime = Timer
  sql = "SELECT * FROM TABLENAME"
  rs.Open sql, conn,1,3
  Randomize Timer
  intRnd = (Int(RND * rs.RecordCount))
  rs.Move intRnd
  Response.Write("3. Yöntem" & Timer-StartTime &" saniye sürmüştür. Random ID" & rs("FIELDNAME") & "<BR>")
  rs.close
  FreeConnection conn,rs
%>

Buda bütün yollar ve bu sayfanın çalıştırılması sonucunda ise aşağıdaki sonuçlar görüntülendi.

Toplam Kayıt : 80575646
1. Yöntem 0.04 saniye sürmüştür. Random ID0011897281
2. Yöntem 19,26611 saniye sürmüştür. Random ID0011879701
3. Yöntem Timeout expired

20-04-2009, 02:08:49

#12

electronicboy

obidergi adlı üyeden alıntı: mesajı görüntüle

Kod için teşekkürler.

Rica ederim

Bende hazır yapmışken bu testi sitemde uzun süredir bekleyen yazıyı bitireyim

20-04-2009, 02:11:16

#13

~~obidergi~~

Üyeliği durduruldu

3 yöntemi de içeren kod çok güzel oldu, saniye değerleri ile beraber; demek istediğim de buydu benim.

Makalenizi bekliyoruz.

20-04-2009, 03:06:12

#14

electronicboy

Yazdım. Bir hayli uzun ve başımı ağrıtan bir yazı oldu

Umarım okurken başınız ağrımaz

Mssql’den Random Veri Seçme RaMaZaN

20-04-2009, 11:32:07

#15

~~Erol~~

Üyeliği durduruldu

teşekkürler arkadaşlar ama bi sorun var yapamadım :s kodlarım aşağıda nasıl yapabilirim :s

Alıntı

<%
set sonlar = Server.CreateObject("Adodb.Recordset")
sql = "select top 30 bolumler.*,diziler.* from bolumler INNER JOIN diziler ON bolumler.dizi_id=diziler.dizi_id order by bolum_id desc"
sonlar.open sql,baglanti,1,3
i = 1
do while not sonlar.eof
set yorumsay=Server.CreateObject("Adodb.Recordset")
sql = "select yorum_id from yorumlar where bolum_id="&sonlar("bolum_id")&""
yorumsay.open sql,baglanti,1,3
yorumsayisi=yorumsay.recordcount
Kapat(yorumsay)

set partlar = Server.CreateObject("Adodb.Recordset")
sql = "select * from partlar where bolum_id="&sonlar("bolum_id")&""
partlar.open sql,baglanti,1,3

resimkodu=sonlar("dizi_img")
if partlar.eof then
resimkodlari=resimkodu
end if
do while not partlar.eof
if resimkodlari="" then
resimkodlari=partlar("part_kodu")
if resimkodlari="" then
resimkodlari=sonlar("dizi_img")
ytimg="yok"
end if
resimkodu=resimkodlari
else
if partlar("part_kodu")<>"" then
resimkodlari=resimkodlari&","&partlar("part_kodu")
end if
end if
partlar.movenext
loop
Kapat(partlar)
%>

20-04-2009, 12:02:09

#16

electronicboy

SELECT TOP 1 PK,FIELDISMI1, FIELDISMI2 FROM TABLENAME ORDER BY RAND(PK)

şeklinde denermisin. Eğer datan fazla değilse. Akşam üzeri birlikte yapalım.

20-04-2009, 16:31:45

#17

~~Erol~~

Üyeliği durduruldu

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request. Please contact the server administrator to inform of the time the error occurred and of anything you might have done that may have caused the error.
More information about this error may be available in the server error log.

böle hata aldım

20-04-2009, 18:23:33

#18

ahtapot

asp değilde asp.net ile şöyle yapıyorum. benzer sql belki kullanabilirsin.

SELECT top 1 [vid], [baslik], [bseo], [resim] FROM [videolar] order by Rnd(-(1000*vid)*Time())