Sayfayı Yazdır | Pencereyi Kapat

Asp ile Access veritabanına kayıt yapmak

Nereden Yazdırıldığı: Webmaster Forumu
Kategori: Programlama
Forum Adı: Asp
Forum Tanımlaması: .
URL: http://forum.websitem.biz/forum_posts.asp?TID=686
Tarih: 29-Mart-2024 Saat 17:05
Program Versiyonu: Web Wiz Forums 8.03 - http://www.webwizforums.com


Konu: Asp ile Access veritabanına kayıt yapmak
Mesajı Yazan: Ömer YILDIRIM
Konu: Asp ile Access veritabanına kayıt yapmak
Mesaj Tarihi: 14-Temmuz-2012 Saat 16:06
Merhaba arkadaslar bugunkü asp dersimizde sizlere access veritabanini kayit yapmayi anlatacagim.
wwwroot içine DERS isimli Klasöre koyun ve unutmayin DERS klasörüne yazma izni verin.
Klasöre Yazma izni nasil veririm?
DERS klasörüne sag tiklayin ve özelliklerden Web Paylasimi sekmesine geçin. Bu klasörü Paylasin radio dügmesini isaretleyiniz bir sihirbaz açilacak oradaki yazma vb. seçenekleri seçip uygulayin...


kayit_kaydet.asp
Kod:
<%
Adovbs.inc dosyasi içindeki sabitlerimiz. Kayit islemi yaparken lazim olacak....
const adCmdText = &H0001
const adExecuteNoRecords = &H00000080

Form içindeki name="txtAd" isimli form elemanimizdan içine yazilmis olan ismi aliyor ve bu degeri strAd degiskenine atiyoruz(yüklüyoruz).
dim strAd
strAd = Request.Form("txtAd")
Form içindeki name="txtSoyad" isimli form elemanimizdan içine yazilmis olan soyismi aliyor ve bu degeri strSoyad degiskenine atiyoruz(yüklüyoruz).
dim strSoyad
strSoyad = Request.Form("txtSoyad")

Form içindeki name="txtMail" isimli form elemanimizdan içine yazilmis olan Mail adresini aliyor ve bu degeri strMail degiskenine atiyoruz(yüklüyoruz).
dim strMail
strMail = Request.Form("txtMail")

Form içindeki name="txtSehir" isimli form elemanimizdan içine yazilmis olan Sehir ismini aliyor ve bu degeri strSehir degiskenine atiyoruz(yüklüyoruz).
dim strSehir
strSehir = Request.Form("txtSehir")

Form içindeki name="txtMesaj" isimli form elemanimizdan içine yazilmis olan Mesaji aliyor ve bu degeri strMesaj degiskenine atiyoruz(yüklüyoruz).
dim strMesaj
strMesaj = Request.Form("txtMesaj")

Veritabanina Baglaniyoruz.
dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb")
Baglantiyi açiyoruz.
dim objConn
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn


strSql = "INSERT INTO tblUye(UYE_AD, UYE_SOYAD, UYE_MAIL, UYE_SEHIR, UYE_MESAJ) VALUES( " & strAd & " , " & strSoyad & " , " & strMail & " , " & strSehir & " , " & strMesaj & " )"

objConn.Execute(strSql),,adCmdText + adExecuteNoRecords


Baglantiyi kapatiyoruz.
objConn.Close
set objConn = Nothing
Yazdigimiz kaydi gösteren sayfaya "kayit_oku.asp" yönlendiriyoruz..
Response.Redirect "kayit_oku.asp"
%>

-------------
Hazır Profesyonel Web Site Paketleri WebSitem!



Cevaplar:
Mesajı Yazan: alenn34
Mesaj Tarihi: 16-Haziran-2013 Saat 15:45
teşekkürler güzel paylaşım

-------------
http://www.dizaynkoltuk.org/ - dizayn koltuk , http://www.flatgaz.com - flatgaz , http://www.seouygulama.com - seo uygulama



Sayfayı Yazdır | Pencereyi Kapat

Bulletin Board Software by Web Wiz Forums version 9.56
Forum Arsivi