Ders 6 - Asp ve Ado Birlikteliği
Örnek : Veritabanındaki Verileri Listelemek
Aşağıdaki örnekte bir Access veritabanındaki veriler tablo halinde listelenmektedir:
<% @Language = VBScript Codepage= 1254 %>
<HTML>
<!-- tablodan bütün kayitlari okumak ve tablo yaparak ekrana getirmek-->
<HEAD>
<meta http-equiv="content-type" content="text/html; charset=ISO-8859-9">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<!-- yukaridaki iki satir türkçe çikti saglamak için -->
<TITLE> Listeleme </TITLE>
</HEAD>
<H1> MALZEME DURUM LISTESI </H1>
<BR>
<BODY>
<%
Set Con = Server.CreateObject("ADODB.connection")
Set Rs = Server.CreateObject("ADODB.recordset")
Con.Open="Provider=Microsoft.Jet.OLEDB.4.0 ; Data Source=c:\data\malzemeyonetim.mdb"
Rs.Open "SELECT * FROM MALZEME", Con
Response.Write "<TABLE BORDER= '1'>"
Response.Write "<TR> <TD>" & "<B>" & "MKODU" & "</B>" & "</TD> <TD>" & "MADI" & "</TD> <TD>" & "MGRUBU" & "</TD> </TR>"
Do While Not Rs.Eof
Response.Write "<TR> <TD>" & Rs("MKODU") & "</TD> <TD>" & Rs("MADI") & "</TD> <TD>" & Rs("MGRUBU") & "</TD> </TR>"
Rs.MoveNext
Loop
Response.Write "</TABLE>"
Rs.Close
%>
</BODY>
</HTML>
Tarih:
Hit: 2415
Yazar: renegadealien