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