ozozkilic
04-10-2004, 12:55
asp ile access2000 ile yazılmış veritabanına kayıt yaptıramıyorum. eski sürüme dönüştürünce kayıt yapıyor. yeni sürüme kayıt yapabilmek için ne gibi bir değişikliliğe ihtiyacım var. teşekkürler.
Tüm Versiyonu Göster : eski ve yeni sürüm access
ALPEN
04-10-2004, 13:15
connetionstring i, addnew yaparken kullandığınız sentaksı bir de nerede hata verdiğini yazarsanız daha hızlı cevap alırsınız.
ozozkilic
04-10-2004, 13:22
istediğin bilgi evdeki bilgisayarda. yani şu an tam hatırlamıyorum. akşam saat 8 den sonra gönderiyim.
:kafa: şimdiden çok teşekkürler
:) :hey: :hey:
:kafa: şimdiden çok teşekkürler
:) :hey: :hey:
ozozkilic
12-10-2004, 12:15
connetionstring i, addnew yaparken kullandığınız sentaksı bir de nerede hata verdiğini yazarsanız daha hızlı cevap alırsınız.
sayın alpen biraz geç oldu ama aşagğıdakini istıyorsun sanırım
<% @Language="VbScript" CODEPAGE="1254" %>
Dim VeriTabani,Yol,BNad
VeriTabani = Server.MapPath("db/Bes2.mdb")
Yol = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & VeriTabani
Set BNad = Server.CreateObject("ADODB.Connection")
BNad.Open(Yol)
sayın alpen biraz geç oldu ama aşagğıdakini istıyorsun sanırım
<% @Language="VbScript" CODEPAGE="1254" %>
Dim VeriTabani,Yol,BNad
VeriTabani = Server.MapPath("db/Bes2.mdb")
Yol = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & VeriTabani
Set BNad = Server.CreateObject("ADODB.Connection")
BNad.Open(Yol)
ALPEN
12-10-2004, 12:25
yukarıda verdiğiniz sadece veritabanının yolu ve bağlantı satırı (connection string) yaratma ve açma.
yeni bir kayır eklerken kullandığınız komutları, kullanırken verdiği hatayı ve nerede verdiğini yazarsanız yardımcı olabilirim.
veya asp sayfasını gönderebilirsiniz.
yeni bir kayır eklerken kullandığınız komutları, kullanırken verdiği hatayı ve nerede verdiğini yazarsanız yardımcı olabilirim.
veya asp sayfasını gönderebilirsiniz.
ozozkilic
12-10-2004, 12:56
<% @Language="VbScript" CODEPAGE="1254" %>
<%
Dim Ad,Soyad,Adres,Sehir,Telefon
Ad=Request.Form("Ad")
Soyad=Request.Form("Soyad")
Adres=Request.Form("Adres")
Sehir=Request.Form("Sehir")
Telefon=Request.Form("Telefon")
if len(Ad)=0 then
Response.Write "Yanlis"
end if
%>
<html>
<head>
<META content="text/html; charset=windows-1254"; http-equiv=Content-Type>
<META content="tr" http-equiv=Content-Language>
<META content="no-cache" http-equiv=pragma>
<title>Form Kayıt Sayfası</title>
</head>
<body bgcolor="#ffffff">
<hr color="#CC0000">
<%
Dim VeriTabani,Yol,BNad
VeriTabani = Server.MapPath("db/Bes2.mdb")
Yol = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & VeriTabani
Set BNad = Server.CreateObject("ADODB.Connection")
BNad.Open(Yol)
Dim ilkSQL
ilkSQL = "INSERT INTO Genel (Ad,Soyad,Adres,Telefon,Sehir) "
ilkSQL = ilkSQL & "VALUES ('" & Ad
ilkSQL = ilkSQL & "','" & Soyad & "','" & Adres & "','" & Sehir & "','" & Telefon & "'"
ilkSQL = ilkSQL & ")"
Set Kaydetmece=BNad.Execute(ilkSQL)
Set Kaydetmece=nothing
BNad.Close
Set BNad=nothing
Response.Write "<center>Kaydınız başarıyla girilmiştir.</center>"
%>
<hr color="#CC0000">
</body>
</html>
teşekkürler şimdiden
<%
Dim Ad,Soyad,Adres,Sehir,Telefon
Ad=Request.Form("Ad")
Soyad=Request.Form("Soyad")
Adres=Request.Form("Adres")
Sehir=Request.Form("Sehir")
Telefon=Request.Form("Telefon")
if len(Ad)=0 then
Response.Write "Yanlis"
end if
%>
<html>
<head>
<META content="text/html; charset=windows-1254"; http-equiv=Content-Type>
<META content="tr" http-equiv=Content-Language>
<META content="no-cache" http-equiv=pragma>
<title>Form Kayıt Sayfası</title>
</head>
<body bgcolor="#ffffff">
<hr color="#CC0000">
<%
Dim VeriTabani,Yol,BNad
VeriTabani = Server.MapPath("db/Bes2.mdb")
Yol = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & VeriTabani
Set BNad = Server.CreateObject("ADODB.Connection")
BNad.Open(Yol)
Dim ilkSQL
ilkSQL = "INSERT INTO Genel (Ad,Soyad,Adres,Telefon,Sehir) "
ilkSQL = ilkSQL & "VALUES ('" & Ad
ilkSQL = ilkSQL & "','" & Soyad & "','" & Adres & "','" & Sehir & "','" & Telefon & "'"
ilkSQL = ilkSQL & ")"
Set Kaydetmece=BNad.Execute(ilkSQL)
Set Kaydetmece=nothing
BNad.Close
Set BNad=nothing
Response.Write "<center>Kaydınız başarıyla girilmiştir.</center>"
%>
<hr color="#CC0000">
</body>
</html>
teşekkürler şimdiden
ALPEN
12-10-2004, 13:10
hehe.
şimdi bir tek verdiği hata kaldı.
şimdi bir tek verdiği hata kaldı.
ozozkilic
12-10-2004, 22:25
tekrar yeni sürüme çevirip denedim hataya bakmak için ama hata vermedi. anlamadım niye böyle oldu.
hazır yazmışken birşey daha sormak istiyorum
if len(Ad)=0 then
Response.Write "hata"
end if
bu niyeyse bir işe yaramıyor. bu tür kodu nereye yazmam gerekiyor. yapmak istediğim eğer formdaki ad kısmı boşsa hata versin. database e yazmasın geri döndürsün.
yada şöyle
<%
if ad boşsa then
response.write "hata"
else
database e yaz :dua: :dua: :dua: :dua:
end if
%>
bunu başa yazdım yok ortaya yazdım yok sona yazdım yok yani bu yazdığımı niyeyse server kaale almıyo. :agla: :agla: :agla: :agla:
hazır yazmışken birşey daha sormak istiyorum
if len(Ad)=0 then
Response.Write "hata"
end if
bu niyeyse bir işe yaramıyor. bu tür kodu nereye yazmam gerekiyor. yapmak istediğim eğer formdaki ad kısmı boşsa hata versin. database e yazmasın geri döndürsün.
yada şöyle
<%
if ad boşsa then
response.write "hata"
else
database e yaz :dua: :dua: :dua: :dua:
end if
%>
bunu başa yazdım yok ortaya yazdım yok sona yazdım yok yani bu yazdığımı niyeyse server kaale almıyo. :agla: :agla: :agla: :agla:
ALPEN
13-10-2004, 08:11
birden hata vermemesi ilginç.
isim girilmeden kayıt yapılmaması ve bir mesaj vermesi isteniyorsa.
Dim ilkSQL
satırından sonra
if ad = "" then
error = "Bir isim girmediniz."
Response.Write error
Response.End
end if
ve ziyaretçinin formu doldurduğu sayfanın ismi neyse oraya yönlendirmek içinde(örnekte ekle.asp)
Response.Redirect "ekle.asp"
isim girilmeden kayıt yapılmaması ve bir mesaj vermesi isteniyorsa.
Dim ilkSQL
satırından sonra
if ad = "" then
error = "Bir isim girmediniz."
Response.Write error
Response.End
end if
ve ziyaretçinin formu doldurduğu sayfanın ismi neyse oraya yönlendirmek içinde(örnekte ekle.asp)
Response.Redirect "ekle.asp"
ozozkilic
13-10-2004, 22:13
çok teşekkürler alpen
etiketleri varken
deyim gerekli vbscript hatası verdi onları kaldırınca sorun düzeldi.
şimdi ad kısmı boş bırakılınca if deyimi devreye giriyor. olay dim ilksql de imiş demek.
ellerine sağlık.
:icelim: :icelim: :hey: :hey: :hey: :hey: :hey: :hey: :hihoho: :hihoho:
etiketleri varken
deyim gerekli vbscript hatası verdi onları kaldırınca sorun düzeldi.
şimdi ad kısmı boş bırakılınca if deyimi devreye giriyor. olay dim ilksql de imiş demek.
ellerine sağlık.
:icelim: :icelim: :hey: :hey: :hey: :hey: :hey: :hey: :hihoho: :hihoho:
Özel Arama
vBulletin v3.7.2, Copyright ©2000-2012, Jelsoft Enterprises Ltd.