Mysql ve Asp (active server pages)

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ğız.

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

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

Kod Alanı:

<%

Response.Write “<form method=post action=kayit.asp>”
Response.Write “ısim : <input type=text name=isim size=20>

”
Response.Write “Telefon : <input type=text name=telefon size=20>

”
Response.Write “E-Mail : <input type=text name=email size=20>

”
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.

Kod Alanı:

<%

‘ Mysql Veritabanına bağlantı kuruyoruz.

Set db = Server.CreateObject(“adodb.con nection” )
db.Open = “driver={mysql odbc 3.51 driver}; server=localhost; UID=mysqlkullaniciadi; pwd=mysqlsifreniz; db=mysqladiniz;”

‘ Formdan gelen değerleri alıyoruz.

isim=Request.Form(“isim” )
telefon=Request.Form(“telefon” )
email=Request.Form(“email” )

‘ Formdan gelen değerlerin boş olup olmadıgını kontrol ediyoruz.

If isim=”” or telefon=”” or email=”” Then
Response.Write “Formda eksik bilgi bıraktınız.

”
Response.Write “Geri dönüp kontro lederek tekrar deneyiniz.

”
Response.Write “Linkler sadece üyelere…. Üye ol]”
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.

”
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.

Kod Alanı:
<%

‘ Mysql Veritabanına bağlantı kuruyorum.

Set db = Server.CreateObject(“adodb.con nection” )
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 !

”
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 “Sıra no : ” &id&” – ısim : ” &isim&” – Telefon : ” &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>

”

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.

Kod Alanı:
<%
‘ Mysql Veritabanına bağlantı kuruyorum.

Set db = Server.CreateObject(“adodb.con nection” )
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.con nection” )
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>

”
Response.Write “Telefon : <input type=text name=telefon value='” &telefon&”‘ size=20>

”
Response.Write “E-Mail : <input type=text name=email ‘” &email&”‘ size=20>

”
Response.Write “<input type=submit value=Düzenle>”
Response.Write “</form>”

Response.Write ” Linkler sadece üyelere…. Üye ol]”

%>

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.

Kod Alanı:
<%
‘ Mysql Veritabanına bağlantı kuruyorum.

Set db = Server.CreateObject(“adodb.con nection” )
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.

”
Response.Write “Geri dönüp kontro lederek tekrar deneyiniz.

”
Response.Write “Linkler sadece üyelere…. Üye ol]”
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.