eski ve yeni sürüm access

ozozkilic · 4 Ekim 2004

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.

ALPEN · 4 Ekim 2004

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 · 4 Ekim 2004

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:

ozozkilic · 12 Ekim 2004

ALPEN' Alıntı:
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)

ALPEN · 12 Ekim 2004

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.

ozozkilic · 12 Ekim 2004

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

ALPEN · 12 Ekim 2004

hehe.

şimdi bir tek verdiği hata kaldı.

ozozkilic · 13 Ekim 2004

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:

ALPEN · 13 Ekim 2004

birden hata vermemesi ilginç.

isim girilmeden kayıt yapılmaması ve bir mesaj vermesi isteniyorsa.

Kod:

Dim ilkSQL

satırından sonra

Kod:

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 · 14 Ekim 2004

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