Mar
15Bu yazımızda tablodaki sütunların listesini en kolay şekilde almayı göreceğiz.
Sütunları listeletmek için for each döngüsü kullanacağız.
Bu döngü ile tablodaki sütunlar ve sütunlardaki değerleri sayfaya yazdıracağız.
İlk olarak rs.fields, rs.name ve rs.value komutlarının ne işe yaradığına bakalım.
Rs.Fields tablodaki sütunları belirtir. Meslea rs.Fields("kayit") diyerek kayit adındaki sütunu seçebiliriz.
Rs.name tablodaki sütunun adını gösterir.
Rs.value sütundaki değeri ekrana yazdırır.
Bu bilgilerden yola çıkarak döngümüzü oluşturalım.
İlk önce rs.fields ile iligili bir döngü kuracağız. Ve rs.fields'den gelen sütunun .name ve .value değerlerini göstereceğiz.
Bu kodu çalıştırdığınızda bütün sütunların adlarını ve ilk satırdaki değerlerini verdiğimi gördünüz. Sütunlardaki bütün değerleri vermesi için yine bir döngü oluşturacağız.
Bütün Sütunları ve değerleri listelettirdik.
Bu döngü ile tablodaki sütunlar ve sütunlardaki değerleri sayfaya yazdıracağız.
İlk olarak rs.fields, rs.name ve rs.value komutlarının ne işe yaradığına bakalım.
Rs.Fields tablodaki sütunları belirtir. Meslea rs.Fields("kayit") diyerek kayit adındaki sütunu seçebiliriz.
Rs.name tablodaki sütunun adını gösterir.
Rs.value sütundaki değeri ekrana yazdırır.
Bu bilgilerden yola çıkarak döngümüzü oluşturalım.
İlk önce rs.fields ile iligili bir döngü kuracağız. Ve rs.fields'den gelen sütunun .name ve .value değerlerini göstereceğiz.
<%
set baglanti=Server.CreateObject("ADODB.Connection")
baglanti.Provider="Microsoft.Jet.OLEDB.4.0"
baglanti.Open Server.Mappath("aspogren.mdb")
Set rs=Server.Createobject("adodb.recordset")
rs.open "kayitlar",baglanti
for each i in rs.fields
response.write i.name & ":" & i.value & "<br>"
next
%>
set baglanti=Server.CreateObject("ADODB.Connection")
baglanti.Provider="Microsoft.Jet.OLEDB.4.0"
baglanti.Open Server.Mappath("aspogren.mdb")
Set rs=Server.Createobject("adodb.recordset")
rs.open "kayitlar",baglanti
for each i in rs.fields
response.write i.name & ":" & i.value & "<br>"
next
%>
Bu kodu çalıştırdığınızda bütün sütunların adlarını ve ilk satırdaki değerlerini verdiğimi gördünüz. Sütunlardaki bütün değerleri vermesi için yine bir döngü oluşturacağız.
<%
set baglanti=Server.CreateObject("ADODB.Connection")
baglanti.Provider="Microsoft.Jet.OLEDB.4.0"
baglanti.Open Server.Mappath("aspogren.mdb")
Set rs=Server.Createobject("adodb.recordset")
rs.open "kayitlar",baglanti
Do While Not Rs.Eof
for each i in rs.fields
response.write i.name & ":" & i.value & "<br>"
next
Response.Write "<hr>": Rs.Movenext:Loop
%>
set baglanti=Server.CreateObject("ADODB.Connection")
baglanti.Provider="Microsoft.Jet.OLEDB.4.0"
baglanti.Open Server.Mappath("aspogren.mdb")
Set rs=Server.Createobject("adodb.recordset")
rs.open "kayitlar",baglanti
Do While Not Rs.Eof
for each i in rs.fields
response.write i.name & ":" & i.value & "<br>"
next
Response.Write "<hr>": Rs.Movenext:Loop
%>
Bütün Sütunları ve değerleri listelettirdik.
Etiketler : rs rs.fields rs.name rs.value for each do until loop wend odbc sql name value fields in
İçeriği takip etSayfayı YazdırPermalink1 yorum var
#81.-LineStar-16 Mart 2007 Cuma
eline sağlık fatih güzel olmus