Asp kayıt döndürme?

29-08-2010, 21:02:09

Alıntı

<%
Set bir =Server.CreateObject("ADODB.Recordset")
strSQL="SELECT * from arkadaslik where ekleyen="&session("id")&" and onay=""T"""
bir.Open strSQL,baglanti2,1,3
for i = 1 to bir.recordcount
gelingari = bir("eklenen")
set iki = baglanti.execute("SELECT * FROM uyeler WHERE id NOT IN ("&gelingari&") order by id desc")
%>
<%
bir.movenext
next
%>
<%=iki("id")%>
<%iki.movenext%>

Merhabalar..

bir recordset'inden aldığım tüm recordcount veriyi iki record setinden eletip kalan veriyi yazdırmaya çalışıyorum fakat kayıt döngüsünün sırasını tam olarak halledemedim. Bunu tam olarak nasıl düzeltebilirim??

Teşekkür ederim..

29-08-2010, 21:43:17

#2

denom

şöyle dene

<%
Set bir =Server.CreateObject("ADODB.Recordset")
strSQL="SELECT * from arkadaslik where ekleyen="&session("id")&" and onay=""T"""
bir.Open strSQL,baglanti2,1,3
for i = 1 to bir.recordcount
gelingari = bir("eklenen")
set iki = baglanti.execute("SELECT * FROM uyeler WHERE id NOT IN ("&gelingari&") order by id desc")

where not iki.eof

response.write iki("id")&" "

iki.movenext
wend

bir.movenext
next

%>

29-08-2010, 22:04:30

#3

bLueStarr

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

şöyle dene

<%
Set bir =Server.CreateObject("ADODB.Recordset")
strSQL="SELECT * from arkadaslik where ekleyen="&session("id")&" and onay=""T"""
bir.Open strSQL,baglanti2,1,3
for i = 1 to bir.recordcount
gelingari = bir("eklenen")
set iki = baglanti.execute("SELECT * FROM uyeler WHERE id NOT IN ("&gelingari&") order by id desc")

while not iki.eof

response.write iki("id")&" "

iki.movenext
wend

bir.movenext
next

%>

Malesef olmadı.. bir recordsetindeki kayıtları iki recordset kere tekrarlattı..

29-08-2010, 22:17:42

#4

denom

bir("eklenen") alanı nedir sayımı text mi?
data örneği verebilirmisin.

birde şöyle dene

<%
Set bir =Server.CreateObject("ADODB.Recordset")
strSQL="SELECT * from arkadaslik where ekleyen="&session("id")&" and onay=""T"""
bir.Open strSQL,baglanti2,1,3
for i = 1 to bir.recordcount
gelingari = bir("eklenen")
set iki = baglanti.execute("SELECT * FROM uyeler where id = "&gelingari&" order by id desc")

if not iki.eof then
response.write iki("id")&" "
end if

bir.movenext
next

%>

29-08-2010, 22:51:54

#5

bLueStarr

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

bir("eklenen") alanı nedir sayımı text mi?
data örneği verebilirmisin.

birde şöyle dene

<%
Set bir =Server.CreateObject("ADODB.Recordset")
strSQL="SELECT * from arkadaslik where ekleyen="&session("id")&" and onay=""T"""
bir.Open strSQL,baglanti2,1,3
for i = 1 to bir.recordcount
gelingari = bir("eklenen")
set iki = baglanti.execute("SELECT * FROM uyeler where id = "&gelingari&" order by id desc")

if not iki.eof then
response.write iki("id")&" "
end if

bir.movenext
next

%>

Malesef bu da aynı şekilde listeletiyor.. Evet hepsi sayısal değer..

30-08-2010, 03:46:24

#6

MacSo

böyle denesen bir.

<%
Set bir =Server.CreateObject("ADODB.Recordset")
strSQL="SELECT arkadaslik.ekleyen,arkadaslik.onay,uyeler.id from arkadaslik,uyeler where uyeler.id=arkadaslik.ekleyen and arkadaslik.onay=""T"" order by arkadaslik.id desc"
bir.Open strSQL,baglanti2,1,3

do while no bir.eof

response.write "uyeid: "&bir(2)&" - Ekleyenid: "&bir(0)&" ")

bir.movenext
loop

%>

30-08-2010, 03:50:49

#7

MacSo

sorguda uye id belirtmemişiz

strSQL="SELECT arkadaslik.ekleyen,arkadaslik.onay,uyeler.id from arkadaslik,uyeler where uyeler.id=arkadaslik.ekleyen and arkadaslik.ekleyen="&session("id")&" and arkadaslik.onay=""T"" order by arkadaslik.id desc"

böyle yapıp dene

30-08-2010, 14:25:12

#8

bLueStarr

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

sorguda uye id belirtmemişiz

strSQL="SELECT arkadaslik.ekleyen,arkadaslik.onay,uyeler.id from arkadaslik,uyeler where uyeler.id=arkadaslik.ekleyen and arkadaslik.ekleyen="&session("id")&" and arkadaslik.onay=""T"" order by arkadaslik.id desc"

böyle yapıp dene

öncelikle teşekkürler, fakat uyeler tablosu ile arkadaslik tablosu malesef farklı veritabanlarında..

sorun da bu zaten

30-08-2010, 15:26:07

#9

denom

arkadaslik tablosunda üyeye ait birden fazla kayıt varmı?