Mysql ve Asp ilişkisi

[Kerem Er]

MySql veritabanında ders isimli bir databasem ve bu databasemde uyeler adında bir tablom var. Tablomun içinde id (int - auto increment ) , isim ( Varchar 200 ) , telefon ( Varchar 20 ) ve email ( VarChar 20 ) olarak 4 field im var. Ve şu an boş durumda. Bu yüzden ilk veritabanıma veri eklemesi

yapacağım.


Veritabanımızdaki uyeler tablomuza veri ekleyelim. İlk önce formumuzu oluşturalım.

Aşağıdaki kodları default.asp olarak kayıt edelim.

<% 

Response.Write "<form method=post action=kayit.asp>" 
Response.Write "İsim : <input type=text name=isim size=20><br><br>" 
Response.Write "Telefon : <input type=text name=telefon size=20><br><br>" 
Response.Write "E-Mail : <input type=text name=email size=20><br><br>" 
Response.Write "<input type=submit value=Gönder>" 
Response.Write "</form>" 

%>

Form sayfamız oluştu. Şimdi kayıt sayfamızı yapalım. ve aşağıdaki kodları kayit.asp olarak kayıt edelim.

<% 

' Mysql Veritabanına bağlantı kuruyorum. 

Set db = Server.CreateObject("adodb.connection" ) 
db.Open = "driver={mysql odbc 3.51 driver}; server=localhost; UID=root; pwd=; db=ders;" 

' Formdan gelen değerleri alıyorum. 

isim=Request.Form("isim" ) 
telefon=Request.Form("telefon" ) 
email=Request.Form("email" ) 

' Formdan gelen değerlerin boş olup olmadıgını kontrol ediyorum. 

If isim="" or telefon="" or email="" Then 
Response.Write "Formda eksik bilgi bıraktınız.<br><br>" 
Response.Write "Geri dönüp kontro lederek tekrar deneyiniz.<br><br>" 
Response.Write "<a href=javascript:history.back( )>Geri dönmek için tıklayınız.</a>" 
Else 

' Gelen değerleri kontrol ettik. şimdi kayıt edelim. 

Set kayit=db.Execute("insert into uyeler (isim,telefon,email ) values ('" &isim&"','" &telefon&"','" &email&"' )" ) 

Response.Write " Kayıt başarıyla gerçekleşti.<br><br>" 
Response.Write " Tüm kayıtlara bakmak için <a href=kontrol.asp>Tıklayınız.</a>" 

End If 

%>

Kayıdımızı başarıyla gerçekleştirdik. Şimdi kontrol.asp yi yapıp verilerimizi sıralatacağız.

Aşağıdaki kodları kontrol.asp olarak kayıt edin.

<% 

' Mysql Veritabanına bağlantı kuruyorum. 

Set db = Server.CreateObject("adodb.connection" ) 
db.Open = "driver={mysql odbc 3.51 driver}; server=localhost; UID=root; pwd=; db=ders;" 

' Tabloma bağlanıyorum. 

Set rs=db.Execute("select*from uyeler" ) 
If rs.Eof Then     ' Eğer kayıt yoksa ; 

Response.Write "Kayıt Yok !<br><br>" 
Response.Write "<a href=default.asp> Yeni Kayıt eklemek için tıklayınız.</a>" 

Else 

While not rs.Eof 
id=rs("id" ) 
isim=rs("isim" ) 
telefon=rs("telefon" ) 
email=rs("email" ) 

Response.Write "<b>Sıra no :</b> " &id&" - <b>İsim :</b> " &isim&" - <b>Telefon :</b> " &telefon&" - <a href=sil.asp?id=" &id&">Silmek için tıkla</a> - 

<a href=duzenle.asp?id=" &id&">Düzenlemek için tıkla</a> <br><br>" 

rs.Movenext 
Wend 
End If 
rs.Close 

Response.Write "<a href=default.asp> Yeni Kayıt eklemek için tıklayınız.</a>" 

%>

Kayıtları sıraladık ve her kayıtı silme veya düzenleme için linklerimizi belirledik. İlk önce sildirelim .aşağıdaki kodları sil.asp olarak kayıt edin.

<% 
' Mysql Veritabanına bağlantı kuruyorum. 

Set db = Server.CreateObject("adodb.connection" ) 
db.Open = "driver={mysql odbc 3.51 driver}; server=localhost; UID=root; pwd=; db=ders;" 

' kontrol.asp den gelen değerimiz id . id i tanımlayalım. 

id=request("id" ) 

' ve bu id ye göre sildirelim. 

Set sil=db.Execute("delete from uyeler where id=" &id ) 

' Sildirdik. Şimdi kontrol.asp ye otomatik geri dönelim. 

Response.Redirect "kontrol.asp" 

%> 






Sildirme işlemi yaptık ve kontrol.asp ye geri döndük. Şimdi kayıt düzenlemesi yapalım ve aşagıda kodları duzenle.asp olarak kayıt edelim. 
Kod Alanı:

<% 
' Mysql Veritabanına bağlantı kuruyorum. 

Set db = Server.CreateObject("adodb.connection" ) 
db.Open = "driver={mysql odbc 3.51 driver}; server=localhost; UID=root; pwd=; db=ders;" 

' kontrol.asp den gelen değerimiz id . id i tanımlayalım. 

id=request("id" ) 

'tablomuza bağlanalım. 

Set rs=db.Execute("select*from uyeler where id=" &id ) 


isim=rs("isim" ) 
telefon=rs("telefon" ) 
email=rs("email" ) 

rs.Close 

' Şimdi bu kayıt bilgilerini değiştireceğimiz için form elemanlarında yazdıralım. 

Response.Write "<form method=post action=duzenle_son.asp?id=" &id&">" 
Response.Write "İsim : <input type=text name=isim value='" &isim&"' size=20><br><br>" 
Response.Write "Telefon : <input type=text name=telefon value='" &telefon&"' size=20><br><br>" 
Response.Write "E-Mail : <input type=text name=email '" &email&"' size=20><br><br>" 
Response.Write "<input type=submit value=Düzenle>" 
Response.Write "</form>" 

Response.Write " <a href=kontrol.asp> Kayıtlara Geri Dön</a> - <a href=default.asp> Yeni kayıt ekle</a>" 

%>

Kayıtları form elemanlarında yazdırdık. Şimdi duzenle_son.asp mizi yazalım ve değiştirdigimiz bilgileri update edelim. Aşağıdaki yazacaklarımızı

duzenle_son.asp olarak kayıt edelim.

<% 
' Mysql Veritabanına bağlantı kuruyorum. 

Set db = Server.CreateObject("adodb.connection" ) 
db.Open = "driver={mysql odbc 3.51 driver}; server=localhost; UID=root; pwd=; db=ders;" 

' Formdan gelen değerleri alıyorum. 

id=request("id" ) 

isim=Request.Form("isim" ) 
telefon=Request.Form("telefon" ) 
email=Request.Form("email" ) 

' Formdan gelen değerlerin boş olup olmadıgını kontrol ediyorum. 

If isim="" or telefon="" or email="" Then 
Response.Write "Formda eksik bilgi bıraktınız.<br><br>" 
Response.Write "Geri dönüp kontro lederek tekrar deneyiniz.<br><br>" 
Response.Write "<a href=javascript:history.back( )>Geri dönmek için tıklayınız.</a>" 
Else 

' Gelen değerleri kontrol ettik. şimdi guncelleme yapalım. 

Set guncelle=db.Execute("update uyeler Set isim='" &isim&"',telefon='" &telefon&"',email='" &email&"' where id=" &id ) 

' Güncelleme yatık . şimdi Üye bilgisi sayfasına geri dönelim. 

Response.Redirect "duzenle.asp?id=" &id&"" 

%>

İşlem tamamlandı.

Mysql veritabanı bağlantısını ögrendik. Mysql e veri kayıt etmeyi ögrendik. Mysql den veri sıralatmayı ögrendik. Mysql den tek veri bilgileri almayı

ögrendik. Mysqlde bir veriyi silmeyi ögrendik. Mysql deki veri bilgilerini değiştirmeyi ögrendik.