overfør data fra en tabel til en anden i MSsql database.

Hvordan "fejler" den? Hvad sker der? Hvad sker der ikke? Hvad forventede du at der skulle ske? Får du en fejlbesked? Hvilken?

Hvis databasen opføre sig underligt, skyldes det i 9 ud af 10 tilfælde at din SQL-sætning indeholder noget andet end du tror. Det er derfor altid en god ide at starte med at udskrive den før at man forsøger at udføre den:

sql = "INSERT INTO shop_ordre (ordernummer, oprettet, kundeID, varenummer, model, storrelse, antal, pris, billede)
VALUES ('" & Record("ID") & "', GETDATE(), " & Record3("kundeID") & ", '" & Record2("varenummer") & "', '" & Record2("model") & "', '" & Record("storrelse") & "', '" & Record("antal") & "', "20.00", '" & Record2("billede") & "')"

Response.Write "DEBUG: " & sql & "<br>"

Conn.Execute(sql)

Du kan selvfølgeligt ikke skrive 20.00 på den måde ... det giver en VB Script fejl. Sådan:

sql = "INSERT INTO shop_ordre (ordernummer, oprettet, kundeID, varenummer, model, storrelse, antal, pris, billede)
VALUES ('" & Record("ID") & "', GETDATE(), " & Record3("kundeID") & ", '" & Record2("varenummer") & "', '" & Record2("model") & "', '" & Record("storrelse") & "', '" & Record("antal") & "', 20.00, '" & Record2("billede") & "')"

nielle her har du 5 svar på dine 5 spørgsmål.

1. der er som sådan ikke nogen fejl, men alligevel.

error '80020009'
/orderbekraftelse_mail.asp, line 138

det er alt hvad jeg får. så jeg kan ikke give dig mere at arbejde med.

2. der sker det at jeg ikke kommer videre.

3. det er skal ske er at når man har accepteret sin order skal man klikke på en knap som udløser at der bliver sendt en mail og dataerne fra tabellen shop_varekurv skal overføres til tabellen shop_order og så skal man sendes videre til selv orderbekrætelsen på hjemmesiden.

4. som beskrevet ovenfor.

5. som beskrevet i svar nr. 1.

Nu har jeg så lige prøvet med din debug og det kommer den samme fejl:

error '80020009'
/orderbekraftelse_mail.asp, line 138

Er det med rettelsen fra 31/08-2006 00:17:36?

tænker du på 20.00 så både og, det var en skrive fejl der var kommet " " i mit spørgsmål. Jeg har dem ikke i mit script.

Ok, så. Eliminer de simple ting først. :^)

Hvordan ser resten af dit script ud? Specifikt hvordan udtrækker du Record, Record2 og Record3?

Hvordan ser de relevante tabeller ud? Havd er f.eks. felternes datatyper?

hvis du vil se scriptet så får du alt i filen, jeg bruger de samme querys til at overføre dataerne som jeg bruger til at vise varekurven.

Vil du se den?

Tja, hvis du ikke kan skære det ned til det essentielle?

Her har du mine sql'er hvorfra jeg får mine Record, Record3 og Record3

--------------------------------------------------------

sql = "SELECT * FROM shop_kunder WHERE kundeID = "&session("brugerid")&" "
set Record3 = rs.Execute(sql)

sql="SELECT * FROM shop_varekurv WHERE sessionsid='"&session.sessionid&"'"
set Record = rs.Execute(sql)
do while not Record.eof

sql="SELECT * FROM shop_varer WHERE vareid='"&Record("vareid")&"'"
set Record2 = rs.Execute(sql)

rettelse Record, Record2 og Record3

Fortæller du ikke også lige: Hvordan ser de relevante tabeller ud? Havd er f.eks. felternes datatyper?

http://www.millet-design.dk/eksperten/database.gif

Ok og tak. Grunden til at jeg gerne ville vide det, er at fejlen bl.a. kan opstå i forbindelse med at man har brugt TEXT- eller BLOB-lignenede typer. Dette er ikke tilfældet her.


Et andet sted jeg har set det gå galt et par gange (men ikke altid) er når man tilgår det samme felt i et recordset 2 gange i træk:

<%
sql = "SELECR demoFelt FROM demoTabel"
Set rs = Conn.Execute(sql)

While Not rs.EoF
    ' 1. gang går det godt ...
    Response.Write rs("demoFelt") & "<br>" ' Feltet udskrives

    ' ... men 2. gang fejler det ganske mystisk
    Response.Write rs("demoFelt") & "<br>" ' Feltet udskrives ikke

    rs.MoveNext
WEnd
%>


Jeg ved ikke om det er noget sådant der gør sig gældende i dit tilfælde, men det kunne godt tænkes. Du bruger vel værdierne fra dine Record-, Record2- og Record3-recordset til andet end kun at lave den SQL-sætning som det fejler i?

Løsningen ud af det ovenstående eksempel, er normalt at gemme værdien i en variabel og så udskrive denne i stedet:

<%
sql = "SELECR demoFelt FROM demoTabel"
Set rs = Conn.Execute(sql)

While Not rs.EoF
    demoFeltValue = rs("demoFelt")

    Response.Write demoFeltValue & "<br>" ' Værdien udskrives
    Response.Write demoFeltValue & "<br>" ' Værdien udskrives igen

    rs.MoveNext
WEnd
%>


Håber at det hjælper dig lidt videre?

Jeg bruger mine recordsets til første og fremmest til at hive data ud af min database og i samme omgang at hive mere data ud. Dernæstskal de dataer udskrives på siden og i en mail.

Men det der fejler er når jeg skal skrive de samme dataer ind i min order-tabel som skal gemme alle ordrene.

Men har jeg forstået dig korrekt så vil du mene jeg skal gemme alle mine recordsets i variabler og udskrive dem?

Nej, ikke hele recordsetet. Kun de felter som allerede har været brugt på et tidligere tidspunkt.

Hvis din SQLK ser sådan her ud:

sql = "INSERT INTO shop_ordre (ordernummer, oprettet, kundeID, varenummer, model, storrelse, antal, pris, billede)
VALUES ('" & Record("ID") & "', GETDATE(), " & Record3("kundeID") & ", '" & Record2("varenummer") & "', '" & Record2("model") & "', '" & Record("storrelse") & "', '" & Record("antal") & "', 20.00, '" & Record2("billede") & "')"

- gætter jeg på at det er dem fra Record2 og 3:

Record3("kundeID")
Record2("varenummer")
Record2("model")
Record2("billede")

Det er faktisk kun disse tre der skaber problemer: Ordernummer, storrelse, antal

Ok, det ser jo ud til at være Record den er galt med.

Skal det forstås sådan at hvis du fjerner alle kaldt til Record, så går den glat igennem?

Hvis, ja. Hvordan ser den kode ud som involvere Record? Gerne lidt mere end bare selve kaldet.

Ja hvis jeg undlader alle record kald, i den del der skal skrive data i shop_order fra shop_varekurv så køre det fint igennem.

Nu får du hele filen så kan du se alt.

<!-- #include file="brugerok.asp" -->
<!-- #include file="forbindelse.asp" -->

<%
sql = "SELECT * FROM shop_kunder WHERE kundeID = "&session("brugerid")&" "
set Record3 = rs.Execute(sql)

function sendMail(emailAddr, emailName, subject, priority, htmlMessage, textMessage)
  dim jmail

  Set jmail = Server.CreateObject("JMail.Message")

  jmail.From = "millet-design@mail.dk"
  jmail.AddRecipient Record3("email"), Record3("navn")
  jmail.AddRecipientBcc "millet-design@mail.dk"
  jmail.Subject = "Orderbekræftelse"
  jmail.Priority = 1
  jmail.HTMLBody = htmlMessage
  jmail.Body = textMessage
  jmail.Send ("smtp.mail.dk")
 
end function

  textMsg = textMsg & "Tak for bestilling fra min webbutik" & vbCrLf & vbCrLf & vbCrLf
  textMsg = textMsg & "Jeg sender nu en ordrebekræftelse, svarer ordren i emailen ikke til det du har bestilt," & vbCrLf & vbCrLf
  textMsg = textMsg & "så kontakt mig hurtigst muligt via emailen i bunden." & vbCrLf & vbCrLf
  textMsg = textMsg & "Ordrens indhold :" & vbCrLf & vbCrLf & vbCrLf
  textMsg = textMsg & "Antal      #                Model                Pris/stk.          I alt" & vbCrLf & vbCrLf
  textMsg = textMsg & "------------------------------------------------------------------------------------------------" & vbCrLf & vbCrLf

  htmlMsg = htmlMsg & "Tak for bestilling fra min webbutik<br><br>"
  htmlMsg = htmlMsg & "Jeg sender nu en ordrebekræftelse, svarer ordren i emailen ikke til det du har bestilt,<br>"
  htmlMsg = htmlMsg & "så kontakt mig hurtigst muligt via emailen i bunden.<br><br>"
  htmlMsg = htmlMsg & "Ordrens indhold :<br>"
  htmlMsg = htmlMsg & "<table align=center border=1 style=width: 450px; height: *;>"
  htmlMsg = htmlMsg & "<tr>"
  htmlMsg = htmlMsg & "<td width=45px align=center>Antal</td><br>"
  htmlMsg = htmlMsg & "<td width=95px align=center>#</td>"
  htmlMsg = htmlMsg & "<td width=120px align=center>Model</td>"
  htmlMsg = htmlMsg & "<td width=60px align=center>Størrelse</td>"
  htmlMsg = htmlMsg & "<td width=70px align=center>Pris pr. stk.</td>"
  htmlMsg = htmlMsg & "<td width=60px align=center>I alt</td>"
  htmlMsg = htmlMsg & "</tr>"

    varetotalen=0
    sql="SELECT * FROM shop_varekurv WHERE sessionsid='"&session.sessionid&"'"
    set Record = rs.Execute(sql)
    do while not Record.eof
    sql="SELECT * FROM shop_varer WHERE vareid='"&Record("vareid")&"'"
    set Record2 = rs.Execute(sql)
    x=1
    varetotal=Record("antal")*Record2("pris")
    varetotalen=varetotalen+varetotal

  textMsg = textMsg & Right(String(5, " ") & record("antal"), 5)
  textMsg = textMsg & Right(String(22, " ") & record2("varenummer"), 22)
  textMsg = textMsg & Right(String(31, " ") & record2("model"), 31)
  textMsg = textMsg & Right(String(31, " ") & Record("storrelse"), 31)
  textMsg = textMsg & Right(String(28, " ") & formatnumber(record2("pris"),2), 28)
  textMsg = textMsg & Right(String(20, " ") & formatnumber(varetotal,2), 20) & vbCrLf

  htmlMSg = htmlMsg & "<tr>"
  htmlMsg = htmlMsg & "<td align=center>" &record("antal")& "</td><br>"
  htmlMsg = htmlMsg & "<td align=center><b>" &record2("varenummer")& "</b></td><br>"
  htmlMsg = htmlMsg & "<td align=center>" &record2("model")& "&nbsp;</td><br>"
  htmlMsg = htmlMsg & "<td align=center>" &record("storrelse")& "&nbsp;</td><br>"
  htmlMsg = htmlMsg & "<td align=center><b>" &formatnumber(record2("pris"),2)& "</b></td><br>"
  htmlMsg = htmlMsg & "<td align=right><b>" &formatnumber(varetotal,2)& "</b></td><br><br>"
  htmlMsg = htmlMsg & "</tr>"

record.movenext
loop

  textMsg = textMsg & "" & vbCrLf
  textMsg = textMsg & "I alt ekskl. fragt"
  textMsg = textMsg & Right(String(97, " ") & formatnumber(varetotal,2), 97) & vbCrLf
  textMsg = textMsg & "Fragt"
  textMsg = textMsg & Right(String(115, " ") & "20,00", 115) & vbCrLf & vbCrLf
  textMsg = textMsg & "I alt inkl. fragt"
  textMsg = textMsg & Right(String(100, " ") & formatnumber(varetotalen+20,2), 100) & vbCrLf
  textMsg = textMsg & "Moms heraf (25%)"
  textMsg = textMsg & Right(String(93, " ") & formatnumber((varetotalen+20)*0.25,2), 93) & vbCrLf & vbCrLf
  textMsg = textMsg & "I alt"
  textMsg = textMsg & Right(String(118, " ") & formatnumber((varetotalen+20)*1.00,2), 118) & vbCrLf & vbCrLf & vbCrLf
  textMsg = textmsg & "Din order vil nu blive behandlet og vil blive sendt så snart jeg har modtaget din betaling." & vbCrLf
  textMsg = textMsg & "Du kan enten betale via check som du sender til:" & vbCrLf &vbCrLf
  textMsg = textMsg & "Millet Design" & vbCrLf
  textMsg = textmsg & "Byengen 182" & vbCrLf
  textMsg = textmsg & "2980 Kokkedal" & vbCrLf & vbCrLf
  textMsg = textmsg & "eller overføre pengene til min konto i AmagerBanken til Reg. nr. 5204 konto nr. 000 154 278 0" & vbCrLf & vbCrLf
  textMsg = textmsg & "Har du kommentare angående din order er du velkommen til at sende mail: millet-design@mail.dk eller ringe på + (45) 4825 3441" & vbCrLf

  htmlMsg = htmlMsg & "<tr>"
  htmlMsg = htmlMsg & "<td colspan=6>&nbsp;</td>"
  htmlMsg = htmlMsg & "</tr>"
  htmlMsg = htmlMsg & "<tr>"
  htmlMsg = htmlMsg & "<td colspan=5 align=left>I alt ekskl. fragt</td>"
  htmlMsg = htmlMsg & "<td align=right>" &formatnumber(varetotalen,2)& "</td>"
  htmlMsg = htmlMsg & "</tr>"
  htmlMsg = htmlMsg & "<tr>"
  htmlMsg = htmlMsg & "<td colspan=5 align=left>Fragt</td>"
  htmlMsg = htmlMsg & "<td align=right>20,00</td>"
  htmlMsg = htmlMsg & "</tr>"
  htmlMsg = htmlMsg & "<tr>"
  htmlMsg = htmlMsg & "<td colspan=6>&nbsp;</td>"
  htmlMsg = htmlMsg & "</tr>"
  htmlMsg = htmlMsg & "<tr>"
  htmlMsg = htmlMsg & "<td colspan=5 align=left>I alt inkl. fragt</td>"
  htmlMsg = htmlMsg & "<td align=right>" &formatnumber(varetotalen+50,2)& "</td>"
  htmlMsg = htmlMsg & "</tr>"
  htmlMsg = htmlMsg & "<tr>"
  htmlMsg = htmlMsg & "<td colspan=5 align=left>Moms heraf (25%)</td>"
  htmlMsg = htmlMsg & "<td align=right>" &formatnumber((varetotalen+50)*0.25,2)& "</td>"
  htmlMsg = htmlMsg & "</tr>"
  htmlMsg = htmlMsg & "<tr>"
  htmlMsg = htmlMsg & "<td colspan=6>&nbsp;</td>"
  htmlMsg = htmlMsg & "</tr>"
  htmlMsg = htmlMsg & "<tr>"
  htmlMsg = htmlMsg & "<td colspan=5 align=left>I alt</td>"
  htmlMsg = htmlMsg & "<td align=right>" &formatnumber((varetotalen+50)*1.00,2)& "</td>"
  htmlMsg = htmlMsg & "</tr>"
  htmlMsg = htmlMsg & "</table>"
  htmlMsg = htmlMsg & "<hr style=color: #000000;>"
  htmlMsg = htmlMsg & "<br>"
  htmlMsg = htmlMsg & "<br>" 
  htmlMsg = htmlmsg & "Din order vil nu blive behandlet og vil blive sendt så snart jeg har modtaget din betaling. <br>"
  htmlMsg = htmlMsg & "Du kan enten betale via check som du sender til: <br><br>"
  htmlMsg = htmlMsg & "Millet Design <br>"
  htmlMsg = htmlmsg & "Byengen 182 <br>"
  htmlMsg = htmlmsg & "2980 Kokkedal <br> <br>"
  htmlMsg = htmlmsg & "eller overføre pengene til min konto i AmagerBanken til Reg. nr. 5204 konto nr. 000 154 278 0"
  htmlMsg = htmlMsg & "<br>"
  htmlMsg = htmlMsg & "<br>" 
  htmlMsg = htmlmsg & "Har du kommentare angående din order er du velkommen til at sende <a href='mailto:millet-design@mail.dk'>mail</a> eller ringe på +(45) 4825 3441"

sendMail "", "", subject, priority, htmlMsg, textMsg

'sql = "INSERT INTO shop_ordre(storrelse) VALUES('"& Record("storrelse") &"')"
sql = "INSERT INTO shop_ordre(ordernummer,oprettet,kundeID,varenummer,model,storrelse,antal,pris,billede) VALUES('"& Record("ID") &"',GETDATE(),"& Record3("kundeID") &",'"& Record2("varenummer") &"','"& Record2("model") &"','"& Record("storrelse") &"','"& Record("antal") &"',20.00,'"& Record2("billede") &"')"
'Insert values der skal rettes: Ordernummer, storrelse, antal, pris
'Response.Write sql
Response.Write "DEBUG: " & sql & "<br>"
'set Record = rs.Execute (sql)

'Response.Redirect("index.asp?side=orderbekraftelse")
%>

<!-- #include file="forbindelseluk.asp" -->

Hej,

Prøv at downloade følgenede zip-fil, unzip og kig på chapter15, som er en simpel webshop, der bare skal finjuseres lidt til dit behov. Så vidt jeg kan se bruger du ikke sessioner til at gemme data og du bruger heller ikke to tabeller fra din database på samme tid. Jeg synes at du burde overveje at gøre koden lidt mere overskuelig for dg selv. Jeg skal nok hjælpe dig i gennem.

http://www.wrox.com/WileyCDA/WroxTitle/productCd-0764579665,descCd-download_code.html

Du kan kontakte mig via Farhang.dk

Jeg har det lidt svært med den måde hvor du bruger din Record2:

Du definere den inden i din Do-While løkke:

do while not Record.eof
    sql = "SELECT * FROM shop_varer WHERE vareid='"&Record("vareid")&"'"
    set Record2 = rs.Execute(sql)

    ...

    Record.movenext
loop

- og så forsøger du at bruge den udenfor løkken, meget længere nede i koden. Da Do-While løkken køre en gang pr. række i Record, kan jeg ikke rigtigt se hvad Record2(...) forventes at være når løkken er kørt færdig? Kan du forklare mig hvad pointen er bag denne konstruktion?

Et relateret spørgsmål: Du fortæller at du ikke får fejl når du "... undlader alle record kald, i den del der skal skrive data i shop_order ...". Sker det også:

1) hvis du *kun* undlader Record2?
2) Eller skal både Record2 og 3 undlades før der ikke er fejl?
3) Eller skal Record *også* undlades?

Det er KUN record der skal undlades for at der ikke komme nogen fejl.

Ok, aha.

Jamen så er fejlen jo nem at forklare:

Du definere din Record:

sql = "SELECT * FROM shop_kunder WHERE kundeID = "&session("brugerid")&" "
set Record3 = rs.Execute(sql)

Derefter har du en loop som løber igennem samtlige rækker i Record:

do while not Record.eof
    sql = "SELECT * FROM shop_varer WHERE vareid='"&Record("vareid")&"'"
    set Record2 = rs.Execute(sql)

    Record.movenext
loop

Men så er Record jo ved EoF (den er "løbet ud over enden") når loop'en afsluttes, og det vil derfor fejle hvis du efterfølgende forsøger at bruge den igen. Og det gør du jo i din SQL.

(PS: Det ser nu stadig underligt ud den måde du bruger din Record2.)

så hvad vil du anbefalde for at slippe for fejlen og uden at skulle lave alt for meget om?

Det afhænger jo af hvad det egentlig er du ønsker? Du looper igennem samtlige rækkre i Record. Og først *efter* at du er løbe igennem dem forsøger du at gøre noget med data ... det giver ikke helt mening.

Skal du ikke heller lave noget med dine data i Record *mens* at du løber igennem rækkerne?

Det jeg vil, kig på mit .gif over databasen, er at "kopiere" de dataer der er i tabellen shop_varekurv over i shop_order.

Ude fra det jeg kan forstå på dig, er det jeg har lavet nu en lappeløsning.

Efter send mail har jeg lavet en nye sesect from med recordset 4 og det virker, der er ingen problemer nu.

Det må blive sådan for nu da det lige nu gælder om at få shoppen til at virke, så må jeg samle trådene og gøre det mere effektivt.

Men jeg vilgerne have en hånd med at convertere money så jeg kan trække det ud af en tabel og skrive det ind igen.

Jeg ved ikke hvad du mener med lappeløsning ... du har/havde lavet en løsning som ikke virker. Uden dog at have kigget din kode *meget* grundigt igennem, vil jeg gætte på at du bare skulle have flyttet din sidse sql-sætning indenfor i loopen i stedet for at have den til sidst.

Men nu har du jo fået det til at virke på anden vis, og det er jo lige så godt. :^)

Lad os derfor ligge på dit sidset problem: Hvad mener du med at "konvertere money"?

Problemet med pris er, når jeg udskriver pris på siden kommer det frem sådan her 19,95 når jeg skal skrive det ind i databasen skal det være 19.95. Kan du forstå hvad jeg mener?

Noget i denne stil:

pris = 19,95
pris = "" & pris
pris = Replace(pris, ",", ".")

sql = "INSERT INTO dinTabel (prisFelt) VALUES (" & pris & ")"

skal den øverste pris have en record? altså pris = record ("pris")?

Dek kan komme hvor som helst fra: Som følge af at den er skrevet direkte ind i koden (som i eksemplet), som resultat af en udregning, eller den kan komme fra et databaseudtræk.

lad os sige at det kommer fra en form som skal skrive noget ind i min database.

Det kan den også gøre, ikke noget problem:

pris = Request.Form("pris")
pris = "" & pris
pris = Replace(pris, ",", ".")

sql = "INSERT INTO dinTabel (prisFelt) VALUES (" & pris & ")"

hvad så hvis det er fra en SELECT * FROM hvordan skal det så se ud?

sql1 = "SELECT prisFelt1 FROm dinTabel"
Set rs = Conn.Execute(sql1)

pris = rs("pris")
pris = "" & pris
pris = Replace(pris, ",", ".")

sql2 = "INSERT INTO dinTabel (prisFelt2) VALUES (" & pris & ")"

nielle for pokker, jeg har skoda helt glemt at takke dig for din hjælp. Gider du ikke ligge et svar så du kan få dine point.

Svar :^)

Takker for point :^)

det var så lidt, der kommer mok MEGET :( snart et nyt spørgsmål hvor du kan få nogle point.