</p>
<p><%@ Page Language="VB" %><br />
<%@ import namespace="System.Data.OleDb" %><br />
<script runat="server"><br />
Sub Page_Load(obj as object, e as eventargs)<br />
<br />
Dim bag As OleDbConnection<br />
bag = New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0; Data Source="& Server.MapPath("veritabani.mdb"))<br />
bag.Open()<br />
<br />
Dim command As OleDbCommand<br />
command = New OleDbCommand("SELECT * FROM tablo", bag)<br />
<br />
Dim kayitlar As OleDbDataReader<br />
kayitlar = command.ExecuteReader()<br />
While kayitlar.Read()<br />
Response.Write(kayitlar.Item("kategori") &"<br>")<br />
End While<br />
bag.Close()<br />
End Sub<br />
</script><br />
<html><br />
<head><br />
<title>Asp.Net ile Veritabanından Veri Çekme</title><br />
</head><br />
<body><br />
</body><br />
</html></p>
<p>
