Facebookta Paylaş

Microsoft Access' i açıp veritabani.mdb adında veritabanı oluşturun.
Alıntı: KingForum.Org - Asp ile veritabanı işlemleri tabloadi isminde tablo ve içine id (oto sayı ), isim (not ) şeklinde sütun ekleyin

Verileri Listeletmek
--liste.asp----
<%
dbadi="veritabani.mdb"
Set baglanti=Server.Createobject(***8220;Adodb.Connection***8221; )
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">: İsminiz <br>
<input type="submit" value="Gönder">
</form>


----- ekle.asp ------
<%
dbadi="veritabani.mdb"
Set baglanti=Server.Createobject(***8220;Adodb.Connection***8221; )
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(***8220;Adodb.Connection***8221; )
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(***8220;Adodb.Connection***8221; )
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(***8220;Adodb.Connection***8221; )
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(***8220;Adodb.Connection***8221; )
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" )%>">: İsim<br>
<input type="submit" value="Gönder">
</form>


---- guncelle.asp----
<%
dbadi="veritabani.mdb"
Set baglanti=Server.Createobject(***8220;Adodb.Connection***8221; )
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
%>




Veritabanında arama yapmak
----form.html----
<form action="ara.asp" method="post">
<input type="text" name="kelime" value="">: Aranacak Kelime<br>
<input type="submit" value="Aramaya Başla">
</form>


---ara.asp---
<%
dbadi="veritabani.mdb"
Set baglanti=Server.Createobject(***8220;Adodb.Connection***8221; )
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 "kayıt bulunamadı !"
else

Response.write "Arama Sonuçları: "

Do While Not rs.EOF

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

rs.movenext
loop

end if
%>




Toplam Kayıt Sayısı
<%
dbadi="veritabani.mdb"
Set baglanti=Server.Createobject(***8220;Adodb.Connection***8221; )
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 & " kayıt bulunmaktadır."
%>