INSERT INTO

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?

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

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

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)

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

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

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

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 "

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. :)

icaaq skrev:

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

x(