+ Başlığa Yanıt Yaz
7 sonuçtan 1 - 5 arası sonuçlar
Başlık: access aynı kaydı 2 kez yapması
-
09.02.2010 00:30 #1
- Katılım Tarihi
- 2010
- Mesaj
- 4
access aynı kaydı 2 kez yapması
merhaba arkadaşlar konu varmı bilmiyorum ama çok araştırdım bulamadım aşağıda vermiş olduğum kodlar üye kaydolunca telefon numarasında eğer veri tabanında o telefon numarası ve mail adresi varsa uyarı versin yani kaydetmesin istiyorum fakat bir türli yapamadım kodu aşağıya kopyaladım anlayan arkadaşlarda rıca ediyorum düzenleyip hazır bir şekilde yapa bilirseniz çok sevinirim
KOD
Kod:<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1254"> <title>İş Başvurunuz İletilmiştir</title> </head> <body bgcolor="#000000"> <td valign="top" height="191"> <p align="center"> <html> <head> <title>İş Başvurunuz İletilmiştir...</title> </head> <body link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF" bgcolor="#000000"> <p align="center"> <% Function secure(data) data = Replace (data ,"`","",1,-1,1) data = Replace (data ,"=","",1,-1,1) data = Replace (data ,"&","",1,-1,1) data = Replace (data ,"%","",1,-1,1) data = Replace (data ,"!","",1,-1,1) data = Replace (data ,"#","",1,-1,1) data = Replace (data ,"<","",1,-1,1) data = Replace (data ,">","",1,-1,1) data = Replace (data ,"*","",1,-1,1) data = Replace (data ,"/","",1,-1,1) data = Replace (data ,"\","",1,-1,1) data = Replace (data ,"And","",1,-1,1) data = Replace (data ,"'","",1,-1,1) data = Replace (data ,"Chr(34)","",1,-1,1) data = Replace (data ,"Chr(39)","",1,-1,1) secure=data End Function Set cvbank = Server.CreateObject("ADODB.Connection") cvbank.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../verdata/data.mdb") badi = Request.Form ("badi") ad = Request.Form ("ad") soyad = Request.Form ("soyad") tel = Request.Form ("tel") mail = Request.Form ("mail") adres = Request.Form ("adres") egitim = Request.Form ("egitim") Alkol = Request.Form ("Alkol") sigara = Request.Form ("sigara") bolum = Request.Form ("bolum") resim = Request.Form ("resim") site = Request.Form ("site") cv = Request.Form ("cv") if ad = "" then Response.Write "<b>Adınızı Giriniz</b><br>5 Saniye İçerisinde Forma Geri Dönceksiniz.Lütfen Boş Alan Bırakmayınız!!!" elseIf soyad = "" then Response.Write "<b>Soyadınızı Giriniz</b><br>5 Saniye İçerisinde Forma Geri Dönceksiniz.Lütfen Boş Alan Bırakmayınız!!!" elseIf tel = "" then Response.Write "<b>Telefon Numaranızı Giriniz</b><br>5 Saniye İçerisinde Forma Geri Dönceksiniz.Lütfen Boş Alan Bırakmayınız!!!" elseIf mail = "" then Response.Write "<b>Mail Adresinizi Giriniz</b><br>5 Saniye İçerisinde Forma Geri Dönceksiniz.Lütfen Boş Alan Bırakmayınız!!!" elseIf adres = "" then Response.Write "<b>Lütfen İkamet Adresinizi Giriniz</b><br>5 Saniye İçerisinde Forma Geri Dönceksiniz.Lütfen Boş Alan Bırakmayınız!!!" elseIf bolum = "" then Response.Write "<b>Çalışmak İstediğiniz Bölümü Giriniz</b><br>5 Saniye İçerisinde Forma Geri Dönceksiniz.Lütfen Boş Alan Bırakmayınız!!!" elseIf cv = "" then Response.Write "<b>Lütfen Kısa Özgeçmişinizi Giriniz</b><br>5 Saniye İçerisinde Forma Geri Dönceksiniz.Lütfen Boş Alan Bırakmayınız!!!" else Set rs = Server.CreateObject ("ADODB.RecordSet") sql = "Select * from basvuru" rs.Open sql, cvbank, 1, 3 rs.AddNew rs("ktarih") = (Date) rs("badi")= secure(Request.Form ("badi")) rs("ad")= secure(Request.Form ("ad")) rs("soyad")=secure(Request.Form ("soyad")) rs("tel")= secure(Request.Form ("tel")) rs("mail")= secure(Request.Form ("mail")) rs("adres")= secure(Request.Form ("adres")) rs("egitim")= secure(Request.Form ("egitim")) rs("Alkol")= secure(Request.Form ("Alkol")) rs("sigara")= secure(Request.Form ("sigara")) rs("bolum")= secure(Request.Form ("bolum")) rs("resim")= secure(Request.Form ("resim")) rs("site")= secure(Request.Form ("site")) rs("cv")= secure(Request.Form ("cv")) rs.Update %> <img src="iletildi.jpg"> </p> <p align="center"> </p> <% rs.close End if Set rs = Nothing %> <meta HTTP-EQUIV="refresh" CONTENT="5; URL=jigoloolmak.asp"> </p> <p align="left"> </p> <p align="left"> </p> <p> <b><font face="Tahoma" size="2" color="#5984B0"> </font></b> </p> <p align="center"> </p> <p align="center"> </p> </p> <p align="center"> </p> <p align="left"> <p align="left"> <p align="left"> </td> </body> </html>
-
13.02.2010 20:32 #2
Veritabınına kayıt ettirmeden önce mail adresinin daha önce kayıtlı olup olmadığını sorugulatabilirsin. Kayıtlı değilse kayıt yapacaktır.
Set kontrol = Server.CreateObject("ADODB.RecordSet")
SQL = "Select * from basvuru WHERE mail = '" & mail & "'"
kontrol.open SQL,cvbank,1,3
if not kontrol.eof then
Response.write "<font face=Verdana size=2>Bu e-posta ile daha önce kayıt yapılmıştır.<br>"
Response.end
-
14.02.2010 02:55 #3
- Katılım Tarihi
- 2010
- Mesaj
- 4
-
15.02.2010 21:51 #4
şöyle dener misin?HTML Kodu:<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1254"> <title>İş Başvurunuz İletilmiştir</title> </head> <body bgcolor="#000000"> <td valign="top" height="191"> <p align="center"> <html> <head> <title>İş Başvurunuz İletilmiştir...</title> </head> <body link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF" bgcolor="#000000"> <p align="center"> <% Function secure(data) data = Replace (data ,"`","",1,-1,1) data = Replace (data ,"=","",1,-1,1) data = Replace (data ,"&","",1,-1,1) data = Replace (data ,"%","",1,-1,1) data = Replace (data ,"!","",1,-1,1) data = Replace (data ,"#","",1,-1,1) data = Replace (data ,"<","",1,-1,1) data = Replace (data ,">","",1,-1,1) data = Replace (data ,"*","",1,-1,1) data = Replace (data ,"/","",1,-1,1) data = Replace (data ,"\","",1,-1,1) data = Replace (data ,"And","",1,-1,1) data = Replace (data ,"'","",1,-1,1) data = Replace (data ,"Chr(34)","",1,-1,1) data = Replace (data ,"Chr(39)","",1,-1,1) secure=data End Function Set cvbank = Server.CreateObject("ADODB.Connection") cvbank.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../verdata/data.mdb") badi = Request.Form ("badi") ad = Request.Form ("ad") soyad = Request.Form ("soyad") tel = Request.Form ("tel") mail = Request.Form ("mail") adres = Request.Form ("adres") egitim = Request.Form ("egitim") Alkol = Request.Form ("Alkol") sigara = Request.Form ("sigara") bolum = Request.Form ("bolum") resim = Request.Form ("resim") site = Request.Form ("site") cv = Request.Form ("cv") if ad = "" then Response.Write "<b>Adınızı Giriniz</b><br>5 Saniye İçerisinde Forma Geri Dönceksiniz.Lütfen Boş Alan Bırakmayınız!!!" elseIf soyad = "" then Response.Write "<b>Soyadınızı Giriniz</b><br>5 Saniye İçerisinde Forma Geri Dönceksiniz.Lütfen Boş Alan Bırakmayınız!!!" elseIf tel = "" then Response.Write "<b>Telefon Numaranızı Giriniz</b><br>5 Saniye İçerisinde Forma Geri Dönceksiniz.Lütfen Boş Alan Bırakmayınız!!!" elseIf mail = "" then Response.Write "<b>Mail Adresinizi Giriniz</b><br>5 Saniye İçerisinde Forma Geri Dönceksiniz.Lütfen Boş Alan Bırakmayınız!!!" elseIf adres = "" then Response.Write "<b>Lütfen İkamet Adresinizi Giriniz</b><br>5 Saniye İçerisinde Forma Geri Dönceksiniz.Lütfen Boş Alan Bırakmayınız!!!" elseIf bolum = "" then Response.Write "<b>Çalışmak İstediğiniz Bölümü Giriniz</b><br>5 Saniye İçerisinde Forma Geri Dönceksiniz.Lütfen Boş Alan Bırakmayınız!!!" elseIf cv = "" then Response.Write "<b>Lütfen Kısa Özgeçmişinizi Giriniz</b><br>5 Saniye İçerisinde Forma Geri Dönceksiniz.Lütfen Boş Alan Bırakmayınız!!!" Set kontrol = Server.CreateObject("ADODB.RecordSet") SQL = "Select * from basvuru WHERE mail = '" & mail & "'" kontrol.open SQL,cvbank,1,3 if not kontrol.eof then Response.write "<font face=Verdana size=2>Bu e-posta ile daha önce kayıt yapılmıştır.<br>" Response.end else Set rs = Server.CreateObject ("ADODB.RecordSet") sql = "Select * from basvuru" rs.Open sql, cvbank, 1, 3 rs.AddNew rs("ktarih") = (Date) rs("badi")= secure(Request.Form ("badi")) rs("ad")= secure(Request.Form ("ad")) rs("soyad")=secure(Request.Form ("soyad")) rs("tel")= secure(Request.Form ("tel")) rs("mail")= secure(Request.Form ("mail")) rs("adres")= secure(Request.Form ("adres")) rs("egitim")= secure(Request.Form ("egitim")) rs("Alkol")= secure(Request.Form ("Alkol")) rs("sigara")= secure(Request.Form ("sigara")) rs("bolum")= secure(Request.Form ("bolum")) rs("resim")= secure(Request.Form ("resim")) rs("site")= secure(Request.Form ("site")) rs("cv")= secure(Request.Form ("cv")) rs.Update %> <img src="iletildi.jpg"> </p> <p align="center"> </p> <% rs.close End if Set rs = Nothing %> <meta HTTP-EQUIV="refresh" CONTENT="5; URL=jigoloolmak.asp"> </p> <p align="left"> </p> <p align="left"> </p> <p> <b><font face="Tahoma" size="2" color="#5984B0"> </font></b> </p> <p align="center"> </p> <p align="center"> </p> </p> <p align="center"> </p> <p align="left"> <p align="left"> <p align="left"> </td> </body> </html>
-
16.02.2010 13:31 #5
- Katılım Tarihi
- 2010
- Mesaj
- 4
çok tşk ederim babacan bbacan birde bu syfa numaralandırmak ile ilgili bilgin varmı yani çektiğim veriler tek bir sayfada yer alıyor ben bunu her sayfasa 10 tane olmak üzre sayfalara bölmek istiyorum
Benzer Başlıklar
-
Bilgisayar açılırken denetleme yapması
atikxv1963 tarafından Donanım forumundaYanıt: 2Son Mesaj: 04.11.2009, 12:00 -
farklı disklerdeki aynı excel dosyasının bağımlı kaydı.
gokturk tarafından Yazılım forumundaYanıt: 0Son Mesaj: 16.12.2005, 08:54 -
bilgisayarın restart yapması
evron tarafından Yazılım forumundaYanıt: 1Son Mesaj: 22.10.2005, 13:10 -
oyun oynarken bilgisayarın restart yapması
evron tarafından Yazılım forumundaYanıt: 3Son Mesaj: 04.02.2005, 10:16 -
Aynı Anda 2 Ses Kaydı: Mikrofon + Müzik
Semihh tarafından Yazılım forumundaYanıt: 2Son Mesaj: 31.08.2004, 11:13



Alıntıyla Yanıtla

En hızlı ve en iyi antivirüs
Bugün, 00:50 / İnternet, Ağ ve Güvenlik