Asp ile veritabani islemleri

Microsoft Access' i açip veritabani.mdb adinda veritabani olusturun.
tabloadi isminde tablo ve içine id (oto sayi ), isim (not ) seklinde sütun ekleyin

Verileri Listeletmek
--liste.asp----

<% 


dbadi="veritabani.mdb" 


Set baglanti=Server.Createobject(“Adodb.Connection” ) 


baglanti.provider="Microsoft.jet.oledb.4.0" 


baglanti.open Server.Mappath(dbadi ) 





Set rs=Server.Creteobject("adodb.recordset" ) 


rs.open "select * from tabloadi", baglanti, 1, 3 





Do While Not rs.EOF 





Response.write rs("isim" ) & "<br>" 








rs.movenext 


loop 


%>

Veri Eklemek
----- form.html -----

<form action="ekle.asp" method="post"> 


<input type="text" name="isim">: Isminiz <br> 


<input type="submit" value="Gönder"> 


</form>

----- ekle.asp ------

<% 


dbadi="veritabani.mdb" 


Set baglanti=Server.Createobject(“Adodb.Connection” ) 


baglanti.provider="Microsoft.jet.oledb.4.0" 


baglanti.open Server.Mappath(dbadi ) 





Set rs=Server.Creteobject("adodb.recordset" ) 


rs.open "select * from tabloadi", baglanti, 1, 3 





gelenveri=request.form("isim" ) 


rs.addnew 


rs("isim" )=gelenveri 


rs.update 


%>

Veri Silmek
---- liste.asp ----

<% 


dbadi="veritabani.mdb" 


Set baglanti=Server.Createobject(“Adodb.Connection” ) 


baglanti.provider="Microsoft.jet.oledb.4.0" 


baglanti.open Server.Mappath(dbadi ) 





Set rs=Server.Creteobject("adodb.recordset" ) 


rs.open "select * from tabloadi", baglanti, 1, 3 





Do While Not rs.EOF 





Response.write rs("isim" ) 


Response.write " <a href='sil.asp?id="&rs("id" )&"'>Sil</a><br>" 








rs.movenext 


loop 


%>

----- sil.asp -----

<% 


dbadi="veritabani.mdb" 


Set baglanti=Server.Createobject(“Adodb.Connection” ) 


baglanti.provider="Microsoft.jet.oledb.4.0" 


baglanti.open Server.Mappath(dbadi ) 





id=request.querystring("id" ) 


Set rs=Server.Creteobject("adodb.recordset" ) 


rs.open "select * from tabloadi where id=" & id, baglanti, 1, 3 





rs.DELETE 


%>

Veri Güncellemek
----liste.asp----

<% 


dbadi="veritabani.mdb" 


Set baglanti=Server.Createobject(“Adodb.Connection” ) 


baglanti.provider="Microsoft.jet.oledb.4.0" 


baglanti.open Server.Mappath(dbadi ) 





Set rs=Server.Creteobject("adodb.recordset" ) 


rs.open "select * from tabloadi", baglanti, 1, 3 





Do While Not rs.EOF 





Response.write rs("isim" ) 


Response.write " <a href='duzenle.asp?id="&rs("id" )&"'>Düzenle</a><br>" 








rs.movenext 


loop 


%>

---- duzenle.asp ----

<%     dbadi="veritabani.mdb" 


Set baglanti=Server.Createobject(“Adodb.Connection” ) 


baglanti.provider="Microsoft.jet.oledb.4.0" 


baglanti.open Server.Mappath(dbadi ) 





id=request.querystring("id" ) 


Set rs=Server.Creteobject("adodb.recordset" ) 


rs.open "select * from tabloadi where id=" & id, baglanti, 1, 3 


%> 





<form action="guncelle.asp?id=<%=id%>" method="post"> 


<input type="text" name="isim" value="<%=rs("isim" )%>">: Isim<br> 


<input type="submit" value="Gönder"> 


</form>

---- guncelle.asp----

<% 


dbadi="veritabani.mdb" 


Set baglanti=Server.Createobject(“Adodb.Connection” ) 


baglanti.provider="Microsoft.jet.oledb.4.0" 


baglanti.open Server.Mappath(dbadi ) 





id=request.querystring("id" ) 


Set rs=Server.Creteobject("adodb.recordset" ) 


rs.open "select * from tabloadi where id=" & id, baglanti, 1, 3 





rs("isim" )=request.form("isim" ) 


rs.update 


%>

Veritabaninda arama yapmak
----form.html----

<form action="ara.asp" method="post"> 


<input type="text" name="kelime" value="">: Aranacak Kelime<br> 


<input type="submit" value="Aramaya Basla"> 


</form>

---ara.asp---

<% 


dbadi="veritabani.mdb" 


Set baglanti=Server.Createobject(“Adodb.Connection” ) 


baglanti.provider="Microsoft.jet.oledb.4.0" 


baglanti.open Server.Mappath(dbadi ) 





keime=request.form("kelime" ) 


Set rs=Server.Creteobject("adodb.recordset" ) 


rs.open "select * from tabloadi where isim like '%"&kelime&"%'", baglanti, 1, 3 








if rs.eof then 


response.write "kayit bulunamadi !" 


else 





Response.write "Arama Sonuçlari: "      





Do While Not rs.EOF 





Response.write rs("isim" ) & "<br>" 





rs.movenext 


loop 





end if 


%>

Toplam Kayit Sayisi

<% 


dbadi="veritabani.mdb" 


Set baglanti=Server.Createobject(“Adodb.Connection” ) 


baglanti.provider="Microsoft.jet.oledb.4.0" 


baglanti.open Server.Mappath(dbadi ) 





id=request.querystring("id" ) 


Set rs=Server.Creteobject("adodb.recordset" ) 


rs.open "select * from tabloadi", baglanti, 1, 3 





Response.write "Toplam " & rs.recordcount & " kayit bulunmaktadir." 


%>

Gönderilme tarihi: #12/10/2008 Okunma Sayisi: 1232 Etiketler: asp,access,provider,oledb,arama,listeleme,ekleme,silme

Yorum Yaz

Yorumlar

volkan 2/7/2009
Merhaba degerli personelpage yöneticileri simdi söyle bir kaç sey den baslicagim ; Asp ile tasarimimiz hazir sadece tek problemimiz Request vs diger nestlerilerin asp kodlari içinde yönetilmesi ve admin paneline yazilmasi admin panelinde resim eklemesi vs seylerin yapilmasi konusunda bize ne tur yardimlariniz bulunucakir degerli personel page yöneticileri ve üyeleri lütfen bu konuyu dikkate alip gerekli dökümanlari yazarsaniz cok memlun olurum iyi çalismalar

fatih 2/8/2009
@volkan, admin panelinde yapilan islemlerinde klasik veritabani islemlerinden pek farki yok. aslinda siz sadece siteyi tasarlayipta buradaki islemleri uyarlasaniz yeter. admin panelini kendisi hazirlayan programlar var belki onlardanda bahsedebiliriz ileride.