 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
|
||||||||||||
|
||||||||||||
|
||||||||||||
|
||||||||||||
19-11-2008, 22:48
|
#1 (Kalıcı Bağlantı) |
 
|
Mysql Ve Asp Ilişkisi
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. Kod Alanı: <% 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. 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;" ' 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. 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;" ' 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. 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" ) ' 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. 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;" ' 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ı. |
|
Statü: Çevrimdışı
|
|
| Google Reklamları |
 |
| Konu Araçları | |
|
|
Benzer Konular
|
||||
| Konu | Konu Yazarı | Forum | Cevaplar | Son Mesaj |
| Bilgisayarimiza ASP Sunucu Kurmak | mythbusters | Web Programlama / Kodlama / Scripting | 0 | 19-11-2008 22:45 |
| Asp Scripts ( Görmeniz Gerek ) | ŁǿЯD OMéŃ | Web Programlama / Kodlama / Scripting | 4 | 16-04-2007 16:33 |
| MySQL kurulumu... | ILL | Web Programlama / Kodlama / Scripting | 6 | 24-03-2007 19:13 |
| Asp Nedİr? | merve | Geri Dönüşüm Kutusu | 0 | 03-04-2006 16:33 |
| Php Nuke Nedir ? | Mehmet1868 | Web Programlama / Kodlama / Scripting | 8 | 05-03-2006 12:17 |
---
