<%@ page language="VB" debug="true" %>
<%@ import Namespace="System.Data.OleDb" %>
<script runat="server">
Sub ekle(sender As Object, e As EventArgs)
dim db_baglanti as OleDbConnection
dim ad as string
dim soyad as string
dim sinif as string
ad=ad1.text
soyad=soyad1.text
sinif=sinif1.text
db_baglanti = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; DATA Source=" & Server.MapPath("\data.mdb"))
db_baglanti.Open()
dim db_komut as OleDbCommand
db_komut= New OleDbCommand( "Insert INTO deneme ( ad, soyad,sinif) Values( '"& ad &"','"& soyad &"','"& sinif &"')", db_baglanti )
db_komut.ExecuteNonQuery
response.write("kaydınız eklendi")
db_baglanti.Close()
end sub
</script>
<html>
<head>
<title>Asp.net Veri tabanı kayıt Örneği</title>
</head>
<body>
<form runat="server">
<asp:label id="label1" text="Adınız :" runat="server" />
<asp:textbox id="ad1" runat="server"/>
<br/>
<asp:label id="label2" text="Soyadınız:" runat="server" />
<asp:textbox id="soyad1" runat="server"/>
<br/>
<asp:label id="label3" text="sınıfınız:" runat="server" />
<asp:textbox id="sinif1" runat="server"/>
<br/>
<asp:button text="kaydet" onclick="ekle" runat="server" />
</form>
</body>
</html>
----------------------------------------veri tabanından kayıt listeleme-datareader ile---------------------------
@ Import Namespace=”System.data” %>
<%@ Import Namespace=”System.data.oledb” %>
<script runat=”server”>
Sub Page_Load(Src As Object, E As EventArgs)
Dim sorgu as new OleDbCommand
Dim baglanti As New OleDbConnection
Dim veriler As OleDbDataReader
baglanti.ConnectionString = “Provider=Microsoft.jet.oledb.4.0;data source=” & Server.MapPath(“data.mdb”)
baglanti.Open()
sorgu.Connection = baglanti
sorgu.CommandText = “select * from uyeler”
veriler=sorgu.executereader()
While veriler.Read()
Response.Write(“ADI:” & veriler(“ad”) & “</br>”)
Response.Write(“SOYADI:” & veriler(“soyad”) & “</br>”)
Response.Write(“KULLANICI ADI:” & veriler(“kullaniciadi”) & “</br>”)
Response.Write(“ŞİFRE:” & veriler(“sifre”) & “</br>”)
Response.Write(“E MAİL:” & veriler(“mail”) & “</br>”)
Response.Write(“<p></p>”)
end while
baglanti.Close()
end sub
</script>