Tam Versiyonu Görüntüle: update ve add new

navigator
17.04.2006, 14:49
merhaba arkadaşlar..
ben bi işlemi yapamadım yapmak istedigim şu:
Gelen ID ye göre kayıt var ise update etcek yok ise yeni kayıt acacak.Yardımcı olursanız sevinirim selamlar.

mYavuz
17.04.2006, 15:58
bağlantı ve kayıt seti işlemlerinizi yaptığınızı varsayarak:

<%
intKayitNo = Request.Querystring("kayitno")

SQL = "SELECT * FROM Tablo"
If intKayitNo <> "" Then SQL = SQL & " WHERE id = "& intKayitNo
kd.Open SQL, baglanti, 1, 3
If (intKayitNo <> "" AND kd.Eof) OR intKayitNo = "" Then
     kd.AddNew
End If
kd("ad") = Request.Form("ad")
kd("soyad") = Request.Form("soyad")
kd.Update
kd.Close
%>

navigator
18.04.2006, 08:26
Denedim ama olmadı yolladıgın kodu urun Product değişkeni yukarda var dolu geliyor yani must ıd de var bide sorguyu hem urun hemde mustıd ye göre yapması lazım yani 2 kriterede uygun olmalı ben gerci teki için yapmaya çalıştım ama ..Yani o üründen ve ve mustıd den varsa update eetcek yoksa yenisini ekleycek aşagıdaki koda verdiği hatada

ADODB.Recordset hata '800a0bb9'

Yanlýþ türdeki deðiþkenler kabul edilebilir aralýk dýþýnda veya bir baþkasýyla çakýþan baðýmsýz deðiþkenler kullanýlýyor.

yardımın için şimdiden cok saol

<%

urun = Product
muste=rs1("MustId")
ConnString = "PROVIDER=Microsoft.Jet.OLEDB.4.0; DATA SOURCE = " & SERVER.MAPPAŞ("../db/furniture.mdb")
set conn= Server.CreateObject("ADODB.Connection")
           set rs = server.CreateObject("ADODB.RecordSet")
Conn.Open   ConnString

SQL = "SELECT * FROM Stock"
If intKayitNo <> "" Then SQL = SQL & " WHERE BarcodeName = "& urun
rs.Open SQL, baglanti, 1, 3
If (product <> "" AND rs.Eof) OR urun = "" Then
     rs.AddNew
End If
rs("BarcodeName") = urun
rs("OwnerID") = Muste
rs.Update
rs.Close


%>

mYavuz
18.04.2006, 08:42
If intKayitNo <> "" Then SQL = SQL & " WHERE BarcodeName = "& urun
satırını
If urun <> "" Then QL = SQL & " WHERE BarcodeName = '"& urun &"'"
olarak düzenlemeniz gerekli.

navigator
18.04.2006, 10:14
aşagıdaki gibi yaptım yine hata verdi ,neyi yanlış yapıyorum acaba

<%

urun = Product
muste=rs1("MustId")
ConnString = "PROVIDER=Microsoft.Jet.OLEDB.4.0; DATA SOURCE = " & SERVER.MAPPAŞ("../db/furniture.mdb")
set conn= Server.CreateObject("ADODB.Connection")
             set rs = server.CreateObject("ADODB.RecordSet")
Conn.Open   ConnString

SQL = "SELECT * FROM Stock"
If urun <> "" Then SQL = SQL & " WHERE BarcodeName = '"& urun &"'"
rs.Open SQL, baglanti, 1, 3
If (product <> "" AND rs.Eof) OR urun = "" Then
     rs.AddNew
End If
rs("BarcodeName") = urun
rs("OwnerID") = Muste
rs.Update
rs.Close


%>

ADODB.Recordset hata '800a0bb9'

Yanlýþ türdeki deðiþkenler kabul edilebilir aralýk dýþýnda veya bir baþkasýyla çakýþan baðýmsýz deðiþkenler kullanýlýyor.


mYavuz
18.04.2006, 12:51
rs.Open SQL, baglanti, 1, 3
satırında da bağlantının adı hatalı. bir de
rs.Open SQL, Conn, 1, 3
yazarak deneyebilir misiniz?

navigator
18.04.2006, 14:58
doroşy yardımın için çok sağol arkadaşımm...gercektende hem hitap tarzın için hemde yardımların için çok saol.İşimi hallettim tamamdır..