---
title: "INSERT INTO"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/56261-insert-into"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "firstchoice"
published: "2002-10-17T07:04:34.000Z"
updated: "2002-10-17T07:29:16.000Z"
replies: 9
views: 256
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/56261-insert-into"
---

# INSERT INTO

## #1 — firstchoice, 2002-10-17T07:04Z

set rs = Server.createobject("ADODB.Recordset")			
 		sql1 = "select max(katid) AS MAXTAL from kategorier"
 		set rs = dbconn.execute(sql1)
		katid = cint(rs("MAXTAL"))
		katid = katid + 1
		rs.close
		set rs = nothing

		set rs = Server.createobject("ADODB.Recordset")	
 		sql = "insert into kategorier values (" & katid & ",'" & katnamn &"')"
 		set rs = dbconn.execute(sql)

' insert into kategorier values(1, 'hej')			

	rs.close
	set rs = nothing
	dbconn.close
	set dbconn = nothing

den lägger till datan i databasen, men jag får upp ett felmedelande på förljande "rs.close" raden här i slutet

vad kan vara fel? behöver jag rs när jag skall köra insert?

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

## #2 — m_soderlund, 2002-10-17T07:14Z

Du behöver inte använda ett RecordSet om du ska lägga in data i en databas.. Dessutom har du skapat två identiska RecordSets.. Använd denna kod i stället:

Dim dbConn, Rs, Rs2
set Rs = dbconn.execute("select max(katid) AS MAXTAL from kategorier") 
katid = cint(rs("MAXTAL")) 
katid = katid + 1 

set Rs2 = dbconn.execute("insert into kategorier values (" & katid & ",'" & katnamn &"')") 

' insert into kategorier values(1, 'hej') 

Rs.close : set Rs = nothing 
rs2.Close : Set Rs2 = Nothing
dbconn.close : set dbconn = nothing

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

## #3 — icaaq, 2002-10-17T07:17Z

> **firstchoise skrev:**
>
> vad kan vara fel? behöver jag rs när jag skall köra insert?

Nej

```
[red]
sql1 = "select max(katid) AS MAXTAL from kategorier" 
set rs = dbconn.execute(sql1) 
katid = cint(rs("MAXTAL")) 
katid = katid + 1 
set rs = nothing 

sql = "insert into kategorier values (" & katid & ",'" & katnamn &"')" 
dbconn.execute(sql),,128

' insert into kategorier values(1, 'hej') 

set dbconn = nothing [/red]
```

Så kanske går bättre :)

mvh icaaq

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

## #4 — @nders, 2002-10-17T07:17Z

> **m_soderlund skrev:**
>
> Du behöver inte använda ett RecordSet om du ska lägga in data i en databas..

```
[b]set Rs2 = [/b]dbconn.execute("insert into kategorier values (" & katid & ",'" & katnamn &"')") 

' insert into kategorier values(1, 'hej') 

Rs.close : set Rs = nothing 
[b]rs2.Close : Set Rs2 = Nothing[/b]
dbconn.close : set dbconn = nothing
```

Varför skapar du recordsets då? :)

Ta bort det fetmarkerade.

(Har redigerat ett par gånger, det var svårt att få det tydligt)

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

## #5 — m_soderlund, 2002-10-17T07:19Z

Jag skapar inte Recordsets @nders, utan jag använder Rs och Rs2 som variabler bara.. De är ju inte ett Recordset.

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

## #6 — @nders, 2002-10-17T07:20Z

Jo, du skapar ett tomt recordset när du exekverar insert-satsen.

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

## #7 — icaaq, 2002-10-17T07:21Z

Håller med @nders kolla min kod istället med ,,128 ;)

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

## #8 — firstchoice, 2002-10-17T07:25Z

funkar ej!

så här ser det ut just nu

	dim dbconn
	set dbconn = server.createobject("ADODB.Connection")
	dbconn.open "mobile","mobile","pw"

	dim rs, sql, maxtal, id, rs2 
	set Rs = dbconn.execute("select max(katid) AS MAXTAL from kategorier") 
	katid = cint(rs("MAXTAL")) 
	katid = katid + 1 

	set Rs2 = dbconn.execute("insert into kategorier values (" & katid & ",'" & katnamn &"')") 

	Rs.close : set Rs = nothing 
	rs2.Close : Set Rs2 = Nothing 
	dbconn.close : set dbconn = nothing

fel i "rs2.Close : Set Rs2 = Nothing "

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

## #9 — @nders, 2002-10-17T07:27Z

```
dim dbconn 
set dbconn = server.createobject("ADODB.Connection") 
dbconn.open "mobile","mobile","pw" 

dim rs, sql, maxtal, id
set Rs = dbconn.execute("select max(katid) AS MAXTAL from kategorier") 
katid = cint(rs("MAXTAL")) 
katid = katid + 1 

dbconn.execute("insert into kategorier values (" & katid & ",'" & katnamn &"')") ,,128

Rs.close : set Rs = nothing 
dbconn.close : set dbconn = nothing
```

Varför kan du läsa om ovan. :)

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

## #10 — icaaq, 2002-10-17T07:29Z

> **icaaq skrev:**
>
> Håller med @nders kolla min kod istället med ,,128 ;)

 x(

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/56261-insert-into