---

Hej

Jeg sidder og lege med lidt UPDATE af en tabel. (jeg anvender Access 2000)

Først har jeg en funktion der henter nogle liner og kaster dem ind i en
tabel. Det ser således ud:

While Not rs.EOF
Response.Write "<tr><td Bgcolor= bfbfbf>" & rs("Ordrenr") & "</td>"
Response.Write "<td><Input Type=""TEXT"" SIZE=""10"" NAME=Betalingkr
VALUE=""" & rs("Betalingkr") & """>"
Response.Write "<td><Input Type=""TEXT"" SIZE=""10"" NAME=Track VALUE=""" &
rs("Track") & """>"
rs.MoveNext
Wend

Så er meningen at jeg at brugerne skal have mulighed for at ændre data i den
2 inputboxe. Så er det problemet opstår. Hvordan får jeg enten glemt de data
den hentede iforbindelse med oprettelse af tabellen. Den skal gennemløbe
sammesæt som ovenfor, men hvor den skal lave en UPDATE sætning af de 2
variabler.

Håber det giver mening
--

Klaus

---

"Klaus Egebjerg" <klausegebjerg@get2net.dk> wrote in message
news:mAvz9.15879$oC3.1384671@news010.worldonline.dk...
> Hej
>
> Jeg sidder og lege med lidt UPDATE af en tabel. (jeg anvender Access 2000)
>
> Først har jeg en funktion der henter nogle liner og kaster dem ind i en
> tabel. Det ser således ud:
>
> While Not rs.EOF
> Response.Write "<tr><td Bgcolor= bfbfbf>" & rs("Ordrenr") & "</td>"
> Response.Write "<td><Input Type=""TEXT"" SIZE=""10"" NAME=Betalingkr
> VALUE=""" & rs("Betalingkr") & """>"
> Response.Write "<td><Input Type=""TEXT"" SIZE=""10"" NAME=Track VALUE="""
&
> rs("Track") & """>"
> rs.MoveNext
> Wend
>
> Så er meningen at jeg at brugerne skal have mulighed for at ændre data i
den
> 2 inputboxe. Så er det problemet opstår. Hvordan får jeg enten glemt de
data
> den hentede iforbindelse med oprettelse af tabellen. Den skal gennemløbe
> sammesæt som ovenfor, men hvor den skal lave en UPDATE sætning af de 2
> variabler.
>
> Håber det giver mening
> --
>
> Klaus
>
>
Du må kunne identificere hvert enkelt tekstfelt unikt - og det kan du f.eks.
gøre ved at sætte id på input-felterne til ID=BetalingKr & rs("Ordrenr")
forudsat at samme ordrenr ikke kan komme flere gange på samme side.

Håber det bringer dig videre

Jan

---

"Jan Rasmussen" <jan*fjern-dette*@rasmussen.ms> wrote in message
news:aqoc510215k@enews3.newsguy.com...
> "Klaus Egebjerg" <klausegebjerg@get2net.dk> wrote in message
> news:mAvz9.15879$oC3.1384671@news010.worldonline.dk...
> > Hej
> >
> > Jeg sidder og lege med lidt UPDATE af en tabel. (jeg anvender Access
2000)
> >
> > Først har jeg en funktion der henter nogle liner og kaster dem ind i en
> > tabel. Det ser således ud:
> >
> > While Not rs.EOF
> > Response.Write "<tr><td Bgcolor= bfbfbf>" & rs("Ordrenr") & "</td>"
> > Response.Write "<td><Input Type=""TEXT"" SIZE=""10"" NAME=Betalingkr
> > VALUE=""" & rs("Betalingkr") & """>"
> > Response.Write "<td><Input Type=""TEXT"" SIZE=""10"" NAME=Track
VALUE="""
> &
> > rs("Track") & """>"
> > rs.MoveNext
> > Wend
> >
> > Så er meningen at jeg at brugerne skal have mulighed for at ændre data i
> den
> > 2 inputboxe. Så er det problemet opstår. Hvordan får jeg enten glemt de
> data
> > den hentede iforbindelse med oprettelse af tabellen. Den skal gennemløbe
> > sammesæt som ovenfor, men hvor den skal lave en UPDATE sætning af de 2
> > variabler.
> >
> > Håber det giver mening
> > --
> >
> > Klaus
> >
> >
> Du må kunne identificere hvert enkelt tekstfelt unikt - og det kan du
f.eks.
> gøre ved at sætte id på input-felterne til ID=BetalingKr & rs("Ordrenr")
> forudsat at samme ordrenr ikke kan komme flere gange på samme side.
>
> Håber det bringer dig videre
>
> Jan
>
Hej Jan

Tak for dit svar. Jeg har et unikt felt i hverlinie, da et ordrenr. kun kan
optræde en gang. Jeg ved ikke hvilket felt der er rettet i, så jeg er nød
til at Update alle felter. Jeg har forsøgt følgende: (uden held)

Response.Write "<tr><td align=""Mid""><INPUT TYPE=SUBMIT NAME=""DO""
VALUE=""Opdater""></td>"
%>
</table>
</body>
</html>
<%
Select Case Trim(Request.Form("DO"))

Case "Opdater"
While Not rs.EOF
strStatus = "Afsendt"
strBetalingkr = Trim(Request.Form("Betalingkr"))
strOrdrenr = Trim(Request.Form("Ordrenr"))
strAA = "UPDATE Ordrenr SET Status ='"&strStatus&"' WHERE Ordrenr = " &
strOrdrenr & ""
Conn.Execute(strAA)

rs.MoveNext
Wend
End select