---

Kan jeg på nogen måde lave en lykke med "Insert into"?


'*********Kan dette her laves om til en lykke?

strSQL = "Insert into svar ("
strSQL = strSQL & "Svar1, "
strSQL = strSQL & "svar2, "
strSQL = strSQL & "svar3, "
strSQL = strSQL & "svar4, "
strSQL = strSQL & "svar5)"


strSQL = strSQL & "values( "
strSQL = strSQL & "'" & Request.Form("1") & "', "
strSQL = strSQL & "'" & Request.Form("2") & "', "
strSQL = strSQL & "'" & Request.Form("3") & "', "
strSQL = strSQL & "'" & Request.Form("4") & "', "
strSQL = strSQL & "'" & Request.Form("5") & "') "



'****Jeg har prøvet forskellige løsninger men.....

'1**********Denne her sender kun det sidste svar med
For i = 1 to 3      
Sql = "Insert into svar (Svar"&i&") values('" &
Request.Form(""&i&"") & "')"
Next
Conn.Execute(SQL)

' Hivlket selvfølgelig skyldes at sætnigen bliver overskrevet
ind til den sidste



'2**********Den her sender alle tre svar men de ender i hver sin
række i databasen
For i = 1 to 3      
Sql = "Insert into svar (Svar"&i&") values('" &
Request.Form(""&i&"") & "')"
Conn.Execute(SQL)
Next

' Det er selvfølgelig en løsning, men ikke særlig
tilfredsstillende
' Findes der en bedre løsning???



Mvh John Hertz



--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Jeg glemte at sige, at der er tale om Asp og access
Hilsen John

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

John Hertz wrote:
> Kan jeg på nogen måde lave en lykke med "Insert into"?
>
>
> '*********Kan dette her laves om til en lykke?
>
> strSQL = "Insert into svar ("
> strSQL = strSQL & "Svar1, "
> strSQL = strSQL & "svar2, "
> strSQL = strSQL & "svar3, "
> strSQL = strSQL & "svar4, "
> strSQL = strSQL & "svar5)"
>
>
> strSQL = strSQL & "values( "
> strSQL = strSQL & "'" & Request.Form("1") & "', "
> strSQL = strSQL & "'" & Request.Form("2") & "', "
> strSQL = strSQL & "'" & Request.Form("3") & "', "
> strSQL = strSQL & "'" & Request.Form("4") & "', "
> strSQL = strSQL & "'" & Request.Form("5") & "') "

Du skal kun lave en løkke ved de linjer hvor tallene ændres. Eksempelvis:


strSQL = "Insert into svar ("

For i = 1 to 4
strSQL = strSQL & "Svar" & i & ", "
Next

strSQL = strSQL & "svar5)"

strSQL = strSQL & "values( "

For i = 1 to 4
strSQL = strSQL & "'" & Request.Form(i) & "', "
Next

strSQL = strSQL & "'" & Request.Form(5) & "') "
Conn.Execute(SQL)


Men i det her eksempel synes jeg ikke der er meget ide i det. Der skal
bruges mere processor-kraft hver eneste gang siden skal laves og du
sparer ikke særlig meget plads ved det.

---

Tak for hjælpen.
Jo det er til stor hjælp mit eksempel var et forkortet et. Min løkke er på
60 linjer.

Dog var der en enkelt fejl i dit forslag:
Conn.Execute(SQL) skal retttes til Conn.Execute(strSQL)

Men mange tak - man lærer jo noget nyt hver gang

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

John Hertz wrote:
> Dog var der en enkelt fejl i dit forslag:
> Conn.Execute(SQL) skal retttes til Conn.Execute(strSQL)

Jeg kopierede din egen kode og klippede i den, så du har selv skrevet
den fejl. ;)

> Men mange tak - man lærer jo noget nyt hver gang

Var da så lidt.