Asp Çoklu Kayıt
-
acaba next de mi bir sorun var diyorum ama toplam kayıt sayısı kadar yenı kayıt açıyor ondada yok sanırım.
-
Dostum kayıtlaı nasıl eklemek istiyorsun
deger11
deger12
deger13
deger12deger21
deger22
deger23
deger24....
....
şeklinde mi?
-
Şöyle anlatayım üstad. Özetle 1 tablodaki verileri diğer tabloya kayıt etmek istiyorum.
1.tablodan çektiğim veriler şu şekide yazdırılıyor textboxlara
<input type="hidden" name="a1" value="1 2 3 deneme1" size="20">
<input type="hidden" name="b1" value="uc-0071" size="20">
<input type="hidden" name="c1" value="11" size="20">
<input type="hidden" name="d1" value="1251" size="20">
<input type="hidden" name="e1" value="UCR-0071" size="20">
<input type="hidden" name="a2" value="1 2 3 deneme2" size="20">
<input type="hidden" name="b2" value="uc-0072" size="20">
<input type="hidden" name="c2" value="12" size="20">
<input type="hidden" name="d2" value="1252" size="20">
<input type="hidden" name="e2" value="UCR-0072" size="20">
<input type="hidden" name="a3" value="1 2 3 deneme3" size="20">
<input type="hidden" name="b3" value="uc-0073" size="20">
<input type="hidden" name="c3" value="13" size="20">
<input type="hidden" name="d3" value="1253" size="20">
<input type="hidden" name="e3" value="UCR-0073" size="20">
<input type="hidden" name="a4" value="1 2 3 deneme4" size="20">
<input type="hidden" name="b4" value="uc-0074" size="20">
<input type="hidden" name="c4" value="14" size="20">
<input type="hidden" name="d4" value="1254" size="20">
<input type="hidden" name="e4" value="UCR-0074" size="20">
<input type="hidden" name="a5" value="1 2 3 deneme5" size="20">
<input type="hidden" name="b5" value="uc-0075" size="20">
<input type="hidden" name="c5" value="15" size="20">
<input type="hidden" name="d5" value="1255" size="20">
<input type="hidden" name="e5" value="UCR-0075" size="20">
<input type="hidden" name="a6" value="1 2 3 deneme6" size="20">
<input type="hidden" name="b6" value="uc-0076" size="20">
<input type="hidden" name="c6" value="16" size="20">
<input type="hidden" name="d6" value="1256" size="20">
<input type="hidden" name="e6" value="UCR-0076" size="20">Kaydettiğim tabloda hic kayıt yok diyelim.
kayıt değerleri şöyle olacak
<%
intKacTane = Request.form("kactane")
set kayit = server.createObject("Adodb.Recordset")
sql = "SELECT * From qwerty"
kayit.open sql, baglantimiz, 1,3
for i=1 to intKacTane
kayit.addnew
kayit("a") = request.form("a"&i&"")
kayit("b") = request.form("b"&i&"")
kayit("c") = request.form("c"&i&"")
kayit("d") = request.form("d"&i&"")
kayit("e") = request.form("e"&i&"")
kayit.update
next
%>id : 1
<input type="hidden" name="a1" value="1 2 3 deneme1" size="20">
<input type="hidden" name="b1" value="uc-0071" size="20">
<input type="hidden" name="c1" value="11" size="20">
<input type="hidden" name="d1" value="1251" size="20">
<input type="hidden" name="e1" value="UCR-0071" size="20">
id : 2
<input type="hidden" name="a2" value="1 2 3 deneme2" size="20">
<input type="hidden" name="b2" value="uc-0072" size="20">
<input type="hidden" name="c2" value="12" size="20">
<input type="hidden" name="d2" value="1252" size="20">
<input type="hidden" name="e2" value="UCR-0072" size="20">
id : 3
<input type="hidden" name="a3" value="1 2 3 deneme3" size="20">
<input type="hidden" name="b3" value="uc-0073" size="20">
<input type="hidden" name="c3" value="13" size="20">
<input type="hidden" name="d3" value="1253" size="20">
<input type="hidden" name="e3" value="UCR-0073" size="20">
id : 4
<input type="hidden" name="a4" value="1 2 3 deneme4" size="20">
<input type="hidden" name="b4" value="uc-0074" size="20">
<input type="hidden" name="c4" value="14" size="20">
<input type="hidden" name="d4" value="1254" size="20">
<input type="hidden" name="e4" value="UCR-0074" size="20">
id : 5
<input type="hidden" name="a5" value="1 2 3 deneme5" size="20">
<input type="hidden" name="b5" value="uc-0075" size="20">
<input type="hidden" name="c5" value="15" size="20">
<input type="hidden" name="d5" value="1255" size="20">
<input type="hidden" name="e5" value="UCR-0075" size="20">
id : 6
<input type="hidden" name="a6" value="1 2 3 deneme6" size="20">
<input type="hidden" name="b6" value="uc-0076" size="20">
<input type="hidden" name="c6" value="16" size="20">
<input type="hidden" name="d6" value="1256" size="20">
<input type="hidden" name="e6" value="UCR-0076" size="20"> -
<%
intKacTane = Request.form("kactane")
set kayit = server.createObject("Adodb.Recordset")
sql = "SELECT * From qwerty"
kayit.open sql, baglantimiz, 1,3
kayit.addnew
for i=1 to intKacTane
kayit("a") = request.form("a"&i&"")
kayit("b") = request.form("b"&i&"")
kayit("c") = request.form("c"&i&"")
kayit("d") = request.form("d"&i&"")
kayit("e") = request.form("e"&i&"")
next
kayit.update
%>olarak deneyebilir misin?
-
Hocam yine aynı şekilde tüm değerler yanyana ve virgülle ayrılmış olarak geliyor.
-
Ben hala yapmak istediğini tam manasıyla anlamış değilim ancak, kıt aklımla anlayabildiğim kadarına göre ufak bir uygulama yaptım.
http://pesimistzombie.com/tbt2.rar
bi bakabilir misin?
-
Hocam yapmak istediğinizi gerçekten anlamıyorum bende çizerek veya bir örnekle anlatırsanız yardımcı olalım...
-
Estf. Pesimist. Abi aslında aklmdaki sistemi daha bilindik birşeye dönüştürüp veriyorum sepet uygulaması diyelim buna.
Sepetteki ürünler database ye kayıt oluyor daha sonrada sipariş vermek istendiğindede siparislere kayıt olması lazım.
Ben verdiğin kodu uyarladım bu şekilde ancak yanında virgüllerle kaydediyor. Sanırım birşey atladım.
Konuyla alakadar olan herkese çok teşekkürler.
Listeleme sayfası :
<input type="hidden" name="kactane" value="<%=kactane%>" size="20">
<%for i=1 to (kactane)%>
<input type="hidden" name="sepet_ukod<%=i%>" value="<%=rs("sepet_ukod")%><%=i%>" size="20">
<input type="hidden" name="sepet_adet<%=i%>" value="<%=rs("sepet_adet")%><%=i%>" size="20">
<input type="hidden" name="sepet_fiyat<%=i%>" value="<%=rs("sepet_fiyat")%><%=i%>" size="20">
<input type="hidden" name="sepet_renk<%=i%>" value="<%=rs("sepet_renk")%><%=i%>" size="20">
<%next%>
<%
rs.movenext
%>
<%
loop
%>
<%
rs.Close
end if
set rs = nothing
%>Kayıt sayfası :
<%
Set db = Server.CreateObject("ADODB.Connection" )
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
%>
<%
kactane = request.form("kactane")
%>
<%
For i=1 to (int(Request.Form.Count-1) / 4 )
db.Execute("INSERT INTO siparisler (urun_kodu,adet,urun_fiyat,renk_kodu,bayi_id) VALUES ('"&Request.Form("sepet_ukod"&i&"")&"','"&Request.Form("sepet_adet"&i&"")&"','"&Request.Form("urun_fiyat"&i&"")&"','"&Request.Form("sepet_renk"&i&"")&"','"&Session("bayi_id")&"')")
Next
Response.Write("bitti")
%> -
denedim virgülle gelmiyor yalnız son yazdığın kodda hatalar var.
1- form name alanlarınla dbye kayıta giden form name alanlarında 2 yerde hatan var.
2- kactane inputunu yollatmana hiç gerek yok
3- For i=1 to (int(Request.Form.Count-1) / 4 ) kısmındaki "4" loop etmeden önce hazırladığın formdaki input sayılarının değeridir. Kactane kısmını eklersen bu döngü yanlış çalışır.
işin içinden çıkamazsan uzak masaüstünden bağlanıp bir bakalım olmazsa asıl sayfanda ekli başka şeyler varsa onlar işin içine karışıyor olabilir.
