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