Veritabanından veri alınıp açılır menüde (combobox) listelenmesi.

Açıklama

Veritabanı ile uğraşanların en çok karşılaştıkları sorunlardan birisi de veritabanından verilerin çekilip combobox'ta listelenmesidir.

ASP SOURCE CODE

<% Dim VT,VeriSeti,SQL 
Set VT = Server.CreateObject("ADODB.Connection") VT.Open=("Provider=Microsoft.Jet.OLEDB.4.0 ; Data Source=" & Server.MapPath("web.mdb")) 
SQL="SELECT * FROM webtablosu" 
Set VeriSeti = VT.Execute(SQL) 
if VeriSeti.EOF then 
   Response.Write ("Sorgu sonucu bulunmamaktadır. ") 
else %> 
   <FORM ACTION="tıklanınca_gidilecek_sayfa" Method="Post">
   <SELECT Name="degersecin" <%
   do while not VeriSeti.EOF 
      %> <OPTION Value="<%=Veriseti("Tablo_Alan_Adi")%>"><%=Veriseti("Tablo_Alan_Adi")%></OPTION>
    <%  
    VeriSeti.MoveNext 
    loop
    %>
    </SELECT>
    <INPUT Type="submit" value="gönder">
    </FORM><%
end if 
%>

Detaylı İnceleme

Kodu <BODY></BODY> tagları arasına yerleştiriniz. Combobox'ta verilerin listelenmesi en fazla FORM içerisinde kullanıldığı için örnek olarak da FORM verilmiştir. Eğer sadece listeleme bölümünü kullanmak isterseniz <SELECT></SELECT> blokları arası yeterli olacaktır

Görüntülenme: 2627

Ekleyen: Administrator