Asp'de Veritabanı bağlantısı, kayıt ekleme,silme ve kaydı yazdırma

enamorado

Yeni Üye

<%
Set vt = Server.CreateObject("ADODB.Connection")
vt.Open ""DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="" & Server.MapPath("veritabani.mdb")
' Böylelikle Veritabanına bağlanmış olduk.Şimdi ise veri tabanındaki tabloya bağlanmaya geldi sıra. Varsayalım veritabanımızdaki tablo adınız Deneme olsun.
set rs = server.createobject("ADODB.Recordset")
SQL = "Select * from Deneme"
rs.open SQL,vt,1,3 ' simdi bir kayıt ekleyeceğiz
rs.addnew ' bu kod ile Deneme adındaki tablomuzda yeni bir alan açtırdık
rs("isim")="Xsir.Net" ' bu kod ile Deneme adındaki tablomuzda bulunan isim başlığı seçip alana Xsir.Net yazmasını istedik.
rs.update

' Böylece Deneme adındaki tablomuzda bulunan isim alanına Xsir.Net yazısını ekledik.
%>

<% ' Evet ekleme işlemini öğrendiğimize göre silme işine geçebiliriz.%>
<%
Set vt = Server.CreateObject(""ADODB.Connection"")
vt.Open ""DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="" & Server.MapPath(""veritabani.mdb"")
set rs = server.createobject(""ADODB.Recordset"")
SQL = ""Delete * from Deneme"" ' bu kod Deneme tablosubdaki tüm verileri siler tek kayıdı silmek istediğimizde ise SQL = ""Delete * from Tablo WHERE ID = 5 "" şeklindeki kodu kullanmamız gerekir.
rs.open SQL,vt,1,3
%>
<% ' Gelelim Veritabanındaki Deneme Adlı Tablomuzda bulunan id, isim, soyisim alanlarındaki bilgileri sayfamıza yazdırmaya %>
Kayıt No : <%=rs("id")%></br>
İsim : <%=rs("isim")%></br>
Soyisim : <%=rs("soyisim")%></br>
<% ' Bilgilerimiz Sayfamıza yazdırılmış oldu. %>
<% ' by eNaMoRado 24 Ocak Perşembe 18:11 %>