Aradığınız içerik sitemizde mevcut durumdadır buradan sitemize dönebilirsiniz !
Forum Başlıklarına gitmek için tıklayınız
| Kod Alanı: |
<% Response.Write ("ASP Kodu Çalıştı.") %> |
| Kod Alanı: |
<% Set objCon = Server.CreateObject("ADODB.Connection") objCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Yazilar.mdb") %> |
| Kod Alanı: |
<% SQL = ("Select * From [tblYazilar]") %> |
| Kod Alanı: |
<% SQL = ("Select * From [tblYazilar] Where [fldYazı] %> |
| Kod Alanı: |
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1254"> <title>Veri Ekle</title> </head> <body> <form method="POST" action="VeriEkledim.ASP"> <textarea rows="6" name="yazi" cols="20"></textarea><input type="submit" value="Gönder" name="B1"></p> </form> </body> </html> |
| Kod Alanı: |
<form method="POST" action="VeriEkledim.ASP"> |
| Kod Alanı: |
<% 'Veri tabanı bağlantı kodumuz. Aşağıdaki kod ile oluşturduğumuz veri tabanına bağlanıyoruz. Set objCon = Server.CreateObject("ADODB.Connection") objCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Yazilar.mdb") 'Sql ile veri ekleyeceğimiz tablo ve alanımıza bağlanıyoruz Set objEkle = Server.CreateObject ("ADODB.RecordSet") SQL = ("Select * From [fldYazi] Where [fldYazi]") objEkle.Open SQL,objCon,1,3 'Formdan gelen veriyi alıyoruz. Aşağıda parantez içinde bulunan yazı formumuza verdiğimiz isimdir. gelen_yazi = Request.Form ("yazi") 'Formdan gelen bilgiyi veri tabanımıza ekletiyoruz. objEkle.AddNew objEkle("strYazi")=gelen_yazi objEkle.update 'İşlem bitince yazının eklendiğine dair yazı yazdırıyoruz. Response.Write ("Yazı Eklenmiştir.Access veri tabanına girip bakabilirsiniz") %> |
| Kod Alanı: |
'Yine veri tabanına bağlanıyoruz. Set objCon = Server.CreateObject("ADODB.Connection") objCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Yazilar.mdb") 'SQL ile yine tablomuza bağlanıyoruz. Set objYazi = Server.CreateObject ("ADODB.RecordSet") SQL = ("Select * From [fldYazi] Where [fldYazi]") objYazi.Open SQL,objCon,1,3 'Aşağıdaki kod ile de yazdığımız yazıyı alıyoruz. Response.Write (objYazi("fldYazi")) |