ang. flytta data från tabell till annan tabell
34 svar · 1 074 visningar · startad av cyeclone · sida 2 av 2
Frågan, av cyeclone
Hejsan! Jag såg en liknade post, som LarsG hade hjälp en med igår. Han fick följande kod:(fast jag har ändrat lite efter mina behov) connect.execute "insert into bestallning(<kolumner> ) " & "select <deKolumnerDuVillHa> from kundvagn" & " where KID = " & session("KID"),,128 connect.execute "delete from kundvagn " & " where KID = " & session("KID"),,128 nu är det ju så att jag anv
Läs frågan i sin helhet →
@nders, jag är inte riktig hajj på det där med IDENTITY.
Skulle vara snällt om någon kunnde göra ett exepel eller hjälpa mig lite.
min nuvarande kod, behöver hjälp med att hämta sen sista postens "OrderID" i tabellen "Best"
och sedan göra den till variabel eller session.
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(" "&databas&" ")
Set RecSet = Server.CreateObject("ADODB.Recordset")
lol = "Select * FROM Best"
RecSet.Open lol, Connect, 1, 3
RecSet.addnew
Recset("KID") = Session("KID")
RecSet("Datum") = Time()
RecSet.Update
RecSet.Close
%>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(" "&databas&" ")
Set RecSet = Server.CreateObject("ADODB.Recordset")
connect.execute "insert into bestallning(PID, ProduktNamn, Pris, Antal, KID, OrderID) " & _
"select k.PID, k.ProduktNamn, k.Pris, k.Antal, k.KID, " & session("OrderID") & " from kundvagn k" & _
" where k.KID = " & session("KID"),,128
connect.execute "delete from kundvagn " & _
" where KID = " & session("KID"),,128
session("kundmess") = "Din beställning är nu skickad."
Response.Redirect "index.asp?page=kundvagn"
%>
:)
Men....
http://www.webforum.nu/showthread.php?s=&postid=1010113#post1010113
Är det inte det du frågar om
Så här har jag gjort:
<%
Dim strSQL, orderDate, userId, customer, lngID
customer = Replace(Request.querystring("customer"), "'", "''")
orderDate = Date
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DSN=IntranetSydostel"
objConn.Open
strSQL="INSERT INTO tblOrder (orderName, orderDate, userId) VALUES ('" & customer & "', #" & orderDate & "#, " & session("userId") & ")"
objConn.execute(strSQL),,128
strSQL = "SELECT @@IDENTITY"
set objRS = objConn.execute(strSQL)
lngID = objRS(0)
strSQL="INSERT INTO tblOrderArticle(eNumber, articleName, quantity, orderId)SELECT eNumber, articleName, quantity, " & lngID & " FROM tblCart WHERE userId = " & session("userId") &""
objConn.execute(strSQL),,128
strSQL="DELETE FROM tblCart WHERE userId = " & session("userId") & ""
objConn.execute(strSQL),,128
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
mvh
devotion du har iaf inte fått detta bakom bakfoten som mig :)
Tackar för ditt exempel!
Nu hoppas jag att det inte ska vara några mer problem innan hela webshopen fungerar :D
Ha det bra alla!
mvh rickard
EDIT:
strSQL = "SELECT @@IDENTITY"
set objRS = objConn.execute(strSQL)
lngID = objRS(0)
Hur får denna kod fram att jag vill ha kolumnen "OrderID"´s nyaste post?
bara undrar :P
:)
Det vet jag inte...
@nders sa det... ;)
Det fungerar i a f
Finns det någon som vet mer får ni gaärna förklara!
Mvh
mjo, jag har inte testat än :) men jag hittar ingen förklarning på hur den skall fatta att jag menar "OrderID"
så devotion du håller alltså på med en webshop ? :D
kommit en bit eller?
mvh,
rickard
Hur får denna kod fram att jag vill ha kolumnen "OrderID"´s nyaste post?
Det får du om du kör den direkt efter din insert till tabellen.
Om orderID är primary index villsäga.
:)
En typ av webshop kan man säga. Mycket likheter finns...
En närmare beskrivning i denna tråd
http://www.webforum.nu/showthread.php?s=&postid=1010596#post1010596
Jesper T hade svaret!
mvh
Använder den här tråden...
Kan man samtidigt som man lägger in datan från den andra tabellen, lägga in något från exempelvis en session eller querystring i samma fråga?
Jo, det borde gå fint. Hur ser din fråga ut?
Så här:
"INSERT INTO tblOrder (order_usrID,order_ordernr,order_prodID,orderProdName,orderProdPrice,orderProdSinglePrice,orderProdItems) SELECT cart_usrID,cart_sessionID,cart_prodID,cartProdName,cartProdPrice,cartProdSinglePrice,cartProdItems FROM tblCart where cart_sessionID = " & session.SessionID
vill lägga in order_usrID från en querystring istället för att kopiera den ifrån den andra tabellen.
iUserID = replace(Request.Querystring("userid"), "'", "''")
strSQL = "INSERT INTO tblOrder (order_usrID, order_ordernr, order_prodID, orderProdName, orderProdPrice, orderProdSinglePrice, orderProdItems) " & _
"SELECT " & iUserID & ", cart_sessionID, cart_prodID, cartProdName, cartProdP
rice, cartProdSinglePrice, cartProdItems FROM tblCart where cart_sessionID = " & session.SessionID
Vielen dank!
Yes.
Det fungerade alldeles utmärkt.