SQL streng på flere linier

du kan bruge &_ til at dele linien op

strSQL = "update respond1 set sp1='" & Request.Form("r1") & "', " &_
    "sp2='" & Request.Form("r2") & "', " &_
    "sp3='" & Request.Form("r3") & "', " &_
    "sp4='" & Request.Form("r4") & "', " &_
    "sp5='" & Request.Form("r5") & "' " &_
    "where id = '" & Request.Form("id") &"'"

andre fortrækker denne måde:

strSQL = "update respond1 set sp1='" & Request.Form("r1") & "', "
strSQL = strSQL & "sp2='" & Request.Form("r2") & "', "
strSQL = strSQL & "sp3='" & Request.Form("r3") & "', "
...

Eller lave noget kode som genererer din sql..

strSQL = "update respond1 set "

For i=1 To 50
    strSQL = strSQL & "sp" & i & "='" & Request.Form("r" & i) & "' "
Next

strSQL = strSQL & "where id = '" & Request.Form("id") &"'"

Det virker fint med &_ til at dele linien med - takker.

Idéen med at generere min SQL lyder genial, men jeg får desværre en fejl:

Syntax error (missing operator) in query expression ''5' sp2='5' sp3='5' sp4='5' sp5='1''.

jep, der mangler nogle kommaer

antal = 50

For i=1 To antal
    strSQL = strSQL & "sp" & i & "='" & Request.Form("r" & i) & "' "
    If i < antal Then strSQL = strSQL & ", "
Next

Nu virker den sørme - :)
Er der muligt at addere til den? Jeg har spørgsmål fra nr 1 til 44 som ovenstående virker på, men de sidste 5 spørgsmål er tekst felter.

Du kan sagtens tilføje flere linjer selv.
antal = 44
For i=1 To antal
  if i>1 then
    strSQL = strSQL & ", sp" & i & "='" & Request.Form("r" & i) & "' "
  else
    strSQL = strSQL & "sp" & i & "='" & Request.Form("r" & i) & "' "
  end if 
Next
strSQL = strSQL &", sp45='"& Request.Form("r45") &"'"
strSQL = strSQL &", sp46='"& Request.Form("r46") &"'"
strSQL = strSQL &", sp47='"& Request.Form("r47") &"'"

Takker for hjælpen :) - Poster i begge et svar?

De må gå til plx...

Plx - poster du et svar :)

Svar??? ellers lukker jeg

Giv ham et par dage til. Det er jo ferie for nogen :o)

Lukker