---
title: "Få in ett record set i en textbox"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/14279-få-in-ett-record-set-i-en-textbox"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "hatti"
published: "2002-02-07T15:33:00.000Z"
updated: "2002-02-08T11:02:00.000Z"
replies: 9
views: 274
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/14279-få-in-ett-record-set-i-en-textbox"
---

# Få in ett record set i en textbox

## #1 — hatti, 2002-02-07T15:33Z

Jag vill att det som finns i databasen skall komma med i text boxen så man kan ändra infon men nått är fel och jag har suttit i 8 timmar nu och testat allt tycker jag snälla hjälp mig

sriptet

\-------change.asp--------------------------
\<!-- #include file="adovbs.inc" --\>

\<%

If Session("login") \<\> "ok" Then
	Session("meddelande") = "Du har blivit urloggad, var god logga in igen!"
	Response.Redirect "default.asp"
End If

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("forumet.mdb")&";pwd=losen"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select \* From personligt Where id = " &Session("id")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

%\>

\<html\>
\<head\>
	\<title\>add\</title\>

\</head\>

\<body bgcolor="#003399" text="#ff6600"\>

\<form name="forum" onSubmit="return verifiera()" method="post" action="do_change.asp"\>
  \<div align="left"\>\<font color="#ff6600" size="4" face="Verdana, Arial, Helvetica, sans-serif"\>\<b\>\<center\>Rappotera fel\</center\>\</b\>\<br\>
    \<br\>
		\<TABLE\>
  
  \<TR\>
    \<TD\>
	

		
		
		  \<select name="prio" class="table"\>
            \<option value="4"\>4\</option\>
            \<option value="3"\>3\</option\>
            \<option value="2"\>2\</option\>
            \<option value=1"\>1\</option\>
           
          \</select\>Prio
		\</TD\>
    \<TD\>
    Fel information\<br\>
    \<textarea name="inlagg" cols=30" rows="3" class="table"\>\<%=RecSet("inlagg")%\> \</textarea\>
    \<br\>
    \<input type="submit" name="submit" value="Skicka" class="knapp"\>
    \<input type="reset" name="Submit2" value="Rensa" class="knapp"\>
    \</font\> \</div\>\</TD\>\</TR\>\</TABLE\>
\</form\>
\<p\>\<font color="#ff6600" size="3" face="Verdana, Arial, Helvetica, sans-serif"\>\<a href="javascript:history.go(-1);"\>TILLBAKA\</a\>\</font\>\</p\>

\</body\>
\</html\>

do_change.asp------------------------------
\<!-- #include file="adovbs.inc" --\>

\<%

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("forumet.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select \* From personligt"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

	RecSet.update

	RecSet("namn") = Session("namn1")
	RecSet("inlagg") = Request.Form("inlagg")
			RecSet("prio") = Request.Form("prio")
	RecSet("datum") = Now
	
	

	RecSet.Update

RecSet.Close

Connect.Close

Set RecSet = nothing
Set Connect = nothing

Response.Redirect "forum.asp"

%\>

Permalänk: https://www.webforum.nu/p/14279

## #2 — doggelito, 2002-02-07T15:58Z

vad händer, får du några felmeddelanden?
när du uppdaterar en post måste du bestämma vilken post du ska uppdatera.
din do_change.asp ser inte helt korrekt ut.

```
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("forumet.mdb") & ";"

strsql = "Update personligt Set namn = '" & Session("namn1") & "', inlagg = '" & Request.Form("inlagg") & "', prio = '" & Request.Form("prio") & "', datum = " & Now() & " Where id = " & Session("id") & " ;"

Connect.Execute strsql,,128

Connect.Close()
Set Connect = Nothing 
Response.Redirect "forum.asp"
```

borde funka.

Permalänk: https://www.webforum.nu/p/309771

## #3 — Rinaldo, 2002-02-07T16:04Z

Orkar inte läsa igenom allt men kan det vara så enkelt att du glömt ett " i din textbox?

\<textarea name="inlagg" cols=30" rows="3" class="table"\>\<%=RecSet("inlagg")%\> \</textarea\>

istället:

\<textarea name="inlagg" cols="30" rows="3" class="table"\>\<%=RecSet("inlagg")%\> \</textarea\>

Permalänk: https://www.webforum.nu/p/309772

## #4 — LarsG, 2002-02-07T16:06Z

Din kod för uppdatering stämmer inte, du anger inte vilken post du vill uppdatera.

```
<%

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("forumet.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From personligt Where id = " & Session("id")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet("namn") = Session("namn1")
RecSet("inlagg") = Request.Form("inlagg")
RecSet("prio") = Request.Form("prio")
RecSet("datum") = Now

RecSet.Update
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing

Response.Redirect "forum.asp"

%>
```

Sen så saknas det ett " i din listbox på

```
value=1"
```

om du vill att det som låg i databasen skall bli selekterat så kan du göra så här.

```
<select name="prio" class="table">
<option value="4" <% if cint(rs("prio")) = 4 then response.write "selected" %> >4</option>
<option value="3" <% if cint(rs("prio")) = 3 then response.write "selected" %> >3</option>
<option value="2" <% if cint(rs("prio")) = 2 then response.write "selected"%> >2</option>
<option value="1" <% if cint(rs("prio")) = 1 then response.write "selected" %> >1</option>
```

Är textbox samma sak som listbox?

Permalänk: https://www.webforum.nu/p/309773

## #5 — hatti, 2002-02-08T09:50Z

fel meddelandet jag får är 

Feltyp:
ADODB.Field (0x80020009)
Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats. Den begärda åtgärden kräver en aktuell post.
/hdtest/change.asp

Permalänk: https://www.webforum.nu/p/309774

## #6 — doggelito, 2002-02-08T09:58Z

då har du fel på denna rad:

```
Addera = "Select * From personligt Where id = " &Session("id")
```

finns session("id")?

Permalänk: https://www.webforum.nu/p/309775

## #7 — hatti, 2002-02-08T10:40Z

ja session("id2) finns

Permalänk: https://www.webforum.nu/p/309776

## #8 — doggelito, 2002-02-08T10:44Z

prova å skriv:

```
Addera = "Select * From personligt Where id = " & int(Session("id"))
```

finns det ett id i databasen som stämmer överens med session("id")?

Permalänk: https://www.webforum.nu/p/309777

## #9 — Rinaldo, 2002-02-08T10:46Z

Grundfråga: Kommer texten ens ut i textfältet?

Permalänk: https://www.webforum.nu/p/309778

## #10 — doggelito, 2002-02-08T11:02Z

ops, fel av mig tidigare, det gick lite för fort!!
om du sätter komentartecken på:

```
<%'=RecSet("inlagg")%>
```

får du upp sidan då utan error?

Permalänk: https://www.webforum.nu/p/309779

---

Tråden på webben: https://www.webforum.nu/amne/asp/14279-få-in-ett-record-set-i-en-textbox
