indset i db

http://www.mysql.com/doc/en/INSERT_SELECT.html

INSERT INTO tblTemp2 (fldID) SELECT tblTemp1.fldOrder_ID FROM tblTemp1 WHERE
tblTemp1.fldOrder_ID > 100;

hmm. ja ok. det er jo ikke mysql, men det burde være det samme.

kan ikke helt få det til at virke...

kan du forklare den lidt mere...

Prøv sådan her:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN
strSQL = "SELECT * from indkob where sessionid = (" & session.sessionid & ")"
Set rs = Conn.Execute(strSQL)

insertSQL = ""
' OPBYG EN SQL STRENG MED ALLE INSERT
do while not rs.eof
    insertSQL = insertSQL & "INSERT INTO Order (felt1,felt2,felt3,etc.) VALUES (værdi1,værdi2,værdi3,etc.) "
    rs.movenext
loop
Set insertrs = Conn.Execute(insertSQL)
Set insertrs = nothing

rs.Close
Conn.Close
%>

Er dog ikke helt sikker på at Access kan klar en streng med flere insert i men ellers må du bare fyre dem af hvergang.

/Rasmus :-)

order er reserveret ord i SQL så du skal også havde [] omkring eks på koden kunne være:


Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN
strSQL = "SELECT * from indkob where sessionid = (" & session.sessionid & ")"
Set rs = Conn.Execute(strSQL)

do while not rs.eof

  SQL = "INSERT INTO [Order] (kolonne1,kolonne2,kolonne3,...) VALUES ("
  SQL = SQL "'" & rs("gammel_kolonne1") & "', "
  SQL = SQL "'" & rs("gammel_kolonne2") & "', "
  SQL = SQL "'" & rs("gammel_kolonne3") & "', "
  ... tilføj flere her do skal der ikke være , før )
  SQL = SQL & ")"
  Conn.Execute(SQL)

  rs.movenext
loop


Hvis det er tal kolonner så skal der ikke ' omkring eks:
  SQL = SQL & rs("gammel_tal_kolonneX") & ", "

Hvis det er defineret som dato/tids felt skal der # men måske virker ' også til dato..:
Hvis det er tal kolonner så skal der ikke ' omkring eks:
  SQL = SQL & "#" & rs("gammel_dato_kolonneX") & "#, "

tak for hjælpen alle sammen - jeg kunne få eagleeye til at virke :-) takker