ÖNCELİKLE KUSURUMA BAKMAYIN İSTEKLERİMLE SİZİ OYALIYORUM ANCAK YARDIM EDEN ARKADAŞLARA ŞİMDİDEN TEŞEKKÜRLER.
ARKADAŞLAR ÖNCELİKLE BİR SİTEDE BİR ARAMA FORMU GÖRDÜM. ANCAK NEYİN NESİ ANLAYAMADIM.
BİR ARKADAŞ BUNU AÇIKLARSA SEVİNİRİM. VE BUNU BENDE OLUŞTURMAK İSTİYORUM LÜTFEN YARDIMCI OLURMUSUNUZ..
BAHSETTİĞİM ARAMA FORMU: http://ekleara.com/ara/
Bu link Türk işi google. Arama moturunu yapmanız için Visiual Basic - Pascal vb. program yazma programlarından anlamanız gerekli. Onlardan anlamasanız bile kodlardan anlamanız lazım. Mesela size bir örnek:
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.
Bu çok basitinden. Eğer bunları araştırıp öğrenirseniz. Sizde yapabilirsiniz.