asp'den access'e bilgi giderken küçük-büyük harf

M

mustafacaptain

Katılım
17 Ekim 2005
Mesajlar
4
Asp'de bir cv form hazırladım. Buradan bilgiler access veri tabanına kaydediliyor. Benim istediğim Formda girilen bilgilerin küçük büyük harf olmaksızın access'te tümüyle büyük harf olarak geçmesi..
Yani örneğin form'da isim bölümüne Mustafa girildiyse access'e otomatik olarak bu bilgi MUSTAFA olarak geçmesi. Þimdiden teşekkürler...
 
A

ALPEN

Katılım
7 Temmuz 2004
Mesajlar
1,141
Asp formunun access'e kayıt kodlarını görebilir miyiz? (addnew veya insert into)
 
M

mustafacaptain

Katılım
17 Ekim 2005
Mesajlar
4
ASP KAYIT SAYFAM

<%@Language="VBScript"%>
<%
adi=Request.Form("adi")
ehliyeti=Request.Form("ehliyeti")
soyadi=Request.Form("soyadi")
eski_ehliyeti=Request.Form("eski_ehliyeti")
baba_adi=Request.Form("baba_adi")
telsiz_belgesi=Request.Form("telsiz_belgesi")
ana_adi=Request.Form("ana_adi")
tahsili=Request.Form("tahsili")
dogum_tarihi=Request.Form("dogum_tarihi")
mesleki_okul=Request.Form("mesleki_okul")
medeni_hali=Request.Form("medeni_hali")
yakin=Request.Form("yakin")
uzak=Request.Form("uzak")
askerlik=Request.Form("askerlik")
turk_bayrak=Request.Form("turk_bayrak")
yabanci_bayrak=Request.Form("yabanci_bayrak")
telefon_1=Request.Form("telefon_1")
telefonno_1=Request.Form("telefonno_1")
bekledigi_il=Request.Form("bekledigi_il")
telefon_2=Request.Form("telefon_2")
telefonno_2=Request.Form("telefonno_2")
hazir_olma_tarihi=Request.Form("hazir_olma_tarihi")
adres=Request.Form("adres")
gorev_1=Request.Form("gorev_1")
sonmaas_usd=Request.Form("sonmaas_usd")
sonmaas_ytl=Request.Form("sonmaas_ytl")
gorev_2=Request.Form("gorev_2")
istedigimaas_usd=Request.Form("istedigimaas_usd")
istedigimaas_ytl=Request.Form("istedigimaas_ytl")
son_firma=Request.Form("son_firma")
gemi_adi_1=Request.Form("gemi_adi_1")
tonaj_1=Request.Form("tonaj_1")
sure_1=Request.Form("sure_1")
ikinci_firma=Request.Form("ikinci_firma")
gemi_adi_2=Request.Form("gemi_adi_2")
tonaj_2=Request.Form("tonaj_2")
sure_2=Request.Form("sure_2")
ucuncu_firma=Request.Form("ucuncu_firma")
gemi_adi_3=Request.Form("gemi_adi_3")
tonaj_3=Request.Form("tonaj_3")
sure_3=Request.Form("sure_3")
notlar=Request.Form("notlar")

DY= Request.Form("DY")
EI= Request.Form("EI")
DZ= Request.Form("DZ")
EJ= Request.Form("EJ")
EA= Request.Form("EA")
EK= Request.Form("EK")
EB= Request.Form("EB")
EL= Request.Form("EL")
EC= Request.Form("EC")
EM= Request.Form("EM")
ED= Request.Form("ED")
EN= Request.Form("EN")
EE= Request.Form("EE")
EO= Request.Form("EO")
EG= Request.Form("EG")
EP= Request.Form("EP")
EH= Request.Form("EH")
EQ= Request.Form("EQ")
ER= Request.Form("ER")
ES= Request.Form("ES")

if DY="" then DY="0" else DY="1"
if EI="" then EI="0" else EI="1"
if DZ="" then DZ="0" else DZ="1"
if EJ="" then EJ="0" else EJ="1"
if EA="" then EA="0" else EA="1"
if EK="" then EK="0" else EK="1"
if EB="" then EB="0" else EB="1"
if EL="" then EL="0" else EL="1"
if EC="" then EC="0" else EC="1"
if EM="" then EM="0" else EM="1"
if ED="" then ED="0" else ED="1"
if EN="" then EN="0" else EN="1"
if EE="" then EE="0" else EE="1"
if EO="" then EO="0" else EO="1"
if EG="" then EG="0" else EG="1"
if EP="" then EP="0" else EP="1"
if EH="" then EH="0" else EH="1"
if EQ="" then EQ="0" else EQ="1"
if ER="" then ER="0" else ER="1"
if ES="" then ES="0" else ES="1"
if turk_bayrak="" then turk_bayrak="O" else turk_bayrak="X"
if yabanci_bayrak="" then yabanci_bayrak="O" else yabanci_bayrak="X"
if yakin="" then yakin="O" else yakin="X"
if uzak="" then uzak="O" else uzak="X"

set conn = Server.CreateObject("ADODB.Connection")
conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("vt.mdb"))
set rs = server.createobject("adodb.recordset")
verirs = "Select * from form"
rs.Open verirs,conn,1,3

rs.AddNew
rs("adi") =adi
rs("ehliyeti") =ehliyeti
rs("soyadi") =soyadi
rs("eski_ehliyeti") =eski_ehliyeti
rs("baba_adi") =baba_adi
rs("telsiz_belgesi") =telsiz_belgesi
rs("ana_adi") =ana_adi
rs("tahsili") =tahsili
rs("dogum_tarihi") =dogum_tarihi
rs("mesleki_okul") =mesleki_okul
rs("medeni_hali") =medeni_hali
rs("yakin") =yakin
rs("uzak") =uzak
rs("askerlik") =askerlik
rs("turk_bayrak") =turk_bayrak
rs("yabanci_bayrak") =yabanci_bayrak
rs("telefon_1") =telefon_1
rs("telefonno_1") =telefonno_1
rs("bekledigi_il") =bekledigi_il
rs("telefon_2") =telefon_2
rs("telefonno_2") =telefonno_2
rs("hazir_olma_tarihi") =hazir_olma_tarihi
rs("adres") =adres
rs("gorev_1") =gorev_1
rs("sonmaas_usd") =sonmaas_usd
rs("sonmaas_ytl") =sonmaas_ytl
rs("gorev_2") =gorev_2
rs("istedigimaas_usd") =istedigimaas_usd
rs("istedigimaas_ytl") =istedigimaas_ytl
rs("son_firma") =son_firma
rs("gemi_adi_1") =gemi_adi_1
rs("tonaj_1") =tonaj_1
rs("sure_1") =sure_1
rs("ikinci_firma") =ikinci_firma
rs("gemi_adi_2") =gemi_adi_2
rs("tonaj_2") =tonaj_2
rs("sure_2") =sure_2
rs("ucuncu_firma") =ucuncu_firma
rs("gemi_adi_3") =gemi_adi_3
rs("tonaj_3") =tonaj_3
rs("sure_3") =sure_3
rs("notlar") =notlar
rs("DY")=DY
rs("EI")=EI
rs("DZ")=DZ
rs("EJ")=EJ
rs("EA")=EA
rs("EK")=EK
rs("EB")=EB
rs("EL")=EL
rs("EC")=EC
rs("EM")=EM
rs("ED")=ED
rs("EN")=EN
rs("EE")=EE
rs("EO")=EO
rs("EG")=EG
rs("EP")=EP
rs("EH")=EH
rs("EQ")=EQ
rs("ER")=ER
rs("ES")=ES

rs.Update

%>
 
A

ALPEN

Katılım
7 Temmuz 2004
Mesajlar
1,141
Kırmızı ile yapılmış modifikasyonları, büyük harf olmasını istediğiniz tüm alanlara uygulayın.

rs.AddNew
rs("adi") =ucase(adi)
rs("ehliyeti") =ucase(ehliyeti)
rs("soyadi") =ucase(soyadi)
rs("eski_ehliyeti") =ucase(eski_ehliyeti)
.

rs.Update

%>
Genişletmek için tıkla ...
 
M

mustafacaptain

Katılım
17 Ekim 2005
Mesajlar
4
Teşekkürler! Kaç gündür bir türlü çözememiştim bu sorunu...
Mümkünse ufak bir poblemim daha var:
Asp formumda tarih olarak bulunan kutucuğa tarihin 02/07/1976 şeklinde girilmesi gerekiyor. Bu şekilde girildiğinde access kabul ediyor. Ve hiç bir sorun olmuyor. Fakat kutucuğu boş bıraktığımızda access yukarıdaki formatta bilgi istediğinden tür uyuşmazlığı hatası alıyorum. İstediğim şey, kutucuk boş bırakılsa da kayıt işlemine hatasız devam etmesi. Yani access'te boş veri olması..
 
A

ALPEN

Katılım
7 Temmuz 2004
Mesajlar
1,141
Ã?neri 1: Access veritabanınınızdaki ilgili alanın "gerekli" özelliğini "hayır" yapın.

Ã?neri 2: Asp formunda bütün tarih olarak değilde gün/ay/yıl şeklinde 3 ayrı kutucuk koyup en son kayıt ederken

rs.tarih = cdate(gun & "/" & ay & "/" & yil)

şeklinde kaydedin.

Ã?neri 3: Netten asp destekli bir takvim kaynak kodu indirip bu işi kullanıcıya fare ile seçerek yaptırmayı deneyin.
 
I

icetiner

Katılım
12 Mayıs 2005
Mesajlar
364
Sevgili Alpen

Verdiğiniz bilgilerle bana yardımcı olmuşunuz gibi sevindim.

Bilginizi paylaştığınız için çok teşekkürler.
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst