absoluteposition

Tja,

jag använder mig inte utav adovbs.inc och kör med chilisoft och skulle behöva byta ut följande kod:

		bookmark = rs.absoluteposition
		rs.requery
		rs.absoluteposition = bookmark

hur gör jag det? det är det med absolutposition som strular till det för mig

tidigare i koden kör jag följande:

	set rs = server.createobject("adodb.recordset")
	rs.cursorlocation = adUseClient
	rs.open sql, conn, 3, 3

adUserClient har värdet 3.
Byt bara ut mot den siffran:

	set rs = server.createobject("adodb.recordset")
	rs.cursorlocation = 3
	rs.open sql, conn, 3, 3

http://www.w3schools.com/ado/prop_cursorlocation.asp

det är ju inte där felet ligger, utan felet ligger här:

	bookmark = rs.absoluteposition
	rs.requery
	rs.absoluteposition = bookmark

jag vill ju peka på den senast postade raden i tabellen och det fungerar inte med rs.absolutposition, så undrar om man kunde byta ut den mot en siffra?

får att underlätta lite kanske, kan jag ändra hela funktionen så att den kör en vanlig insert into i en sql sats, istället för det här jobbiga sättet?

function AddForm(FormName, Descriptions)
	Dim sql, bookmark
	call openDB()
	sql = "tblForms"
	set rs = server.createobject("adodb.recordset")
	rs.cursorlocation = 3
	rs.open sql, conn, 3, 3
		rs.addNew
		rs("FormName") = FormName
		rs("Descriptions") = Descriptions	
		'rs("RoleID") = RoleID
		rs.update

		bookmark = rs.absoluteposition
		rs.requery
		rs.absoluteposition = bookmark

		AddForm = rs("FormID")
	rs.close
	set rs = nothing
	call closeDB()
end function

tacksam för alternativ kodning, som gör motsvarande fast utan att behöva använda absolutposition o hela faderullan

aja fick lösa det på ett halt annat sätt, men det funkar nu... so case closed