ToLGMaN
14.02.2008, 16:29
Konular bölümünde kodların anlamını yazdım.Önce orayı okumanızı tavsiye ederim.
db.mdb adında bir veritabanımız olsun ve içinde isimler adında bir tablo olsun.ısimler tablosunun içindede ID(AutoNumber) ve isim(text) adlarında 2 tane alanımız olsun.
isimler adı altında frost ve lancelot gibi 2 tane isim olsun.şimdi form.html sayfamızı yapalım ki burdan aramak istediğimiz isimi yazacağız.
form.asp
-------------------------------------------------------------
<html>
<head>
<title>Form</title>
</head>
<body>
<form method="get" action="arabul.asp">
<input type="text" name="isim" size="20">
<input type="submit" value="Bul" name="cmd">
</form>
</body>
</html>-------------------------------------------------------------
evet formumuz tamam siz bu sayfadan giriş yapacaksınız ve bir isim yazacaksınız.
buda arabul.asp olsun
-------------------------------------------------------------
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")
isim = request.querystring("isim")
set objRS = Server.CreateObject("ADODB.Recordset")
sql = "select * from isimler where isim like '%" & isim & "%' "
objRS.open sql,conn,1,3
if objRS.eof then
response.write "Hiç kayıt bulunamadı."
response.end
else
do while not objRS.eof
response.write "Bulunan Sonuçlar"
response.write "<br>"
response.write objRS("isim")
objRS.movenext
loop
end if
%>
Veritabanımızda girdiğimiz isimleri bulan ve sıralayan basit bir uygulama.
db.mdb adında bir veritabanımız olsun ve içinde isimler adında bir tablo olsun.ısimler tablosunun içindede ID(AutoNumber) ve isim(text) adlarında 2 tane alanımız olsun.
isimler adı altında frost ve lancelot gibi 2 tane isim olsun.şimdi form.html sayfamızı yapalım ki burdan aramak istediğimiz isimi yazacağız.
form.asp
-------------------------------------------------------------
<html>
<head>
<title>Form</title>
</head>
<body>
<form method="get" action="arabul.asp">
<input type="text" name="isim" size="20">
<input type="submit" value="Bul" name="cmd">
</form>
</body>
</html>-------------------------------------------------------------
evet formumuz tamam siz bu sayfadan giriş yapacaksınız ve bir isim yazacaksınız.
buda arabul.asp olsun
-------------------------------------------------------------
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")
isim = request.querystring("isim")
set objRS = Server.CreateObject("ADODB.Recordset")
sql = "select * from isimler where isim like '%" & isim & "%' "
objRS.open sql,conn,1,3
if objRS.eof then
response.write "Hiç kayıt bulunamadı."
response.end
else
do while not objRS.eof
response.write "Bulunan Sonuçlar"
response.write "<br>"
response.write objRS("isim")
objRS.movenext
loop
end if
%>
Veritabanımızda girdiğimiz isimleri bulan ve sıralayan basit bir uygulama.