Mysql Ve Asp İlişkisi Doküman

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ı defaultasp olarak kayıt edelim

Kod Alanı:
<%

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

%>

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

Kod Alanı:
<%

' Mysql Veritabanına bağlantı kuruyorum

Set db = ServerCreateObject("adodbconnection" )
dbOpen = "driver={mysql odbc 351 driver}; server=localhost; UID=root; pwd=; db=ders;"

' Formdan gelen değerleri alıyorum

isim=RequestForm("isim" )
telefon=RequestForm("telefon" )
email=RequestForm("email" )

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

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

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

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

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

End If

%>

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

Aşağıdaki kodları kontrolasp olarak kayıt edin

Kod Alanı:
<%

' Mysql Veritabanına bağlantı kuruyorum

Set db = ServerCreateObject("adodbconnection" )
dbOpen = "driver={mysql odbc 351 driver}; server=localhost; UID=root; pwd=; db=ders;"

' Tabloma bağlanıyorum

Set rs=dbExecute("select*from uyeler" )
If rsEof Then ' Eğer kayıt yoksa ;

ResponseWrite "Kayıt Yok !<br><br>"
ResponseWrite "<a href=defaultasp> Yeni Kayıt eklemek için tıklayınız</a>"

Else

While not rsEof
id=rs("id" )
isim=rs("isim" )
telefon=rs("telefon" )
email=rs("email" )

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

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

rsMovenext
Wend
End If
rsClose

ResponseWrite "<a href=defaultasp> 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ı silasp olarak kayıt edin

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

Set db = ServerCreateObject("adodbconnection" )
dbOpen = "driver={mysql odbc 351 driver}; server=localhost; UID=root; pwd=; db=ders;"

' kontrolasp den gelen değerimiz id id i tanımlayalım

id=request("id" )

' ve bu id ye göre sildirelim

Set sil=dbExecute("delete from uyeler where id=" &id )

' Sildirdik Şimdi kontrolasp ye otomatik geri dönelim

ResponseRedirect "kontrolasp"

%>

Sildirme işlemi yaptık ve kontrolasp ye geri döndük Şimdi kayıt düzenlemesi yapalım ve aşagıda kodları duzenleasp olarak kayıt edelim

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

Set db = ServerCreateObject("adodbconnection" )
dbOpen = "driver={mysql odbc 351 driver}; server=localhost; UID=root; pwd=; db=ders;"

' kontrolasp den gelen değerimiz id id i tanımlayalım

id=request("id" )

'tablomuza bağlanalım

Set rs=dbExecute("select*from uyeler where id=" &id )

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

rsClose

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

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

ResponseWrite " <a href=kontrolasp> Kayıtlara Geri Dön</a> - <a href=defaultasp> Yeni kayıt ekle</a>"

%>

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

duzenle_sonasp olarak kayıt edelim

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

Set db = ServerCreateObject("adodbconnection" )
dbOpen = "driver={mysql odbc 351 driver}; server=localhost; UID=root; pwd=; db=ders;"

' Formdan gelen değerleri alıyorum

id=request("id" )

isim=RequestForm("isim" )
telefon=RequestForm("telefon" )
email=RequestForm("email" )

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

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

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

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

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

ResponseRedirect "duzenleasp?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

İyi dersler