---
title: "Skapa nytt i DB och hämta ID"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/46517-skapa-nytt-i-db-och-hämta-id"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "roady"
published: "2002-06-24T11:45:47.000Z"
updated: "2002-06-24T13:04:48.000Z"
replies: 6
views: 242
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/46517-skapa-nytt-i-db-och-hämta-id"
---

# Skapa nytt i DB och hämta ID

## #1 — roady, 2002-06-24T11:45Z

Jag försöker med en Upload där jag vill byta namn och sedan lägga till i DB och ladda upp filen...

Så först måste jag veta vilket unikt ID min fil kommer att ha, men hur gör jag detta?

Testat med:

```
Dim objRS, objConnect, newID, SQLopen
	Set objRS = Server.CreateObject("ADODB.Recordset")
	Set objConnect = Server.CreateObject("ADODB.Connection")
	
	SQLopen = "SELECT galleryID, userID FROM gallery;"
	objConnect.Open "DSN=webportal"
	objRS.Open SQLopen, objConnect, adOpenStatic, adLockOptimistic 
		objRS.MoveLast
		objRS.AddNew
			objRS("userID") = MyID
			newID = objRS("galleryID")
		objRS.Update
	objRS.Close: Set objRS = Nothing
	objConnect.Close: Set objConnect = Nothing
```

Men jag får inte ut något värde till **newID**

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

## #2 — @nders, 2002-06-24T11:48Z

Provat att flytta ner tilldelningen av newID till under .Update?

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

## #3 — roady, 2002-06-24T11:50Z

Det ville sig inte :(

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

## #4 — roady, 2002-06-24T12:20Z

Någon måste väll kunna det här?
Kan det inte vara något med **objRS.Open SQLopen, objConnect, adOpenStatic, adLockOptimistic**  ??

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

## #5 — roady, 2002-06-24T12:28Z

Det verkar vara något helmysko här...

Testade med:

```
Dim objRS, objConnect, newID, SQLopen, SQLinsert
	Set objRS = Server.CreateObject("ADODB.Recordset")
	Set objConnect = Server.CreateObject("ADODB.Connection")
	
	SQLinsert = "INSERT INTO gallery (userID) VALUES ("& MyID &");"
	SQLopen = "SELECT galleryID FROM gallery;"
	
	objConnect.Open "DSN=webportal"
	objConnect.Execute SQLinsert
	
	objRS.Open SQLopen, objConnect, adOpenStatic, adLockReadOnly, adCmdText
		objRS.MoveLast
			newID = objRS("galleryID")
	objRS.Close: Set objRS = Nothing
	objConnect.Close: Set objConnect = Nothing
```

Men jag får inget värde där heller  :(

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

## #6 — @nders, 2002-06-24T12:39Z

Kör du Access? I så fall, under förutsättning att versionen är nyare än 97, och under förutsättning att galleryID är en räknare, borde detta funka:

```
Dim objRS, objConnect, newID, SQLopen, SQLinsert
	Set objConnect = Server.CreateObject("ADODB.Connection")
	
	SQLinsert = "INSERT INTO gallery (userID) VALUES ("& MyID &");"
	SQLopen = "SELECT @@IDENTITY"
	
	objConnect.Open "DSN=webportal"
	objConnect.Execute SQLinsert
	set objRS = objConnect.Execute(SQLopen)
	newID = objRS(0)
	objRS.Close: Set objRS = Nothing
	objConnect.Close: Set objConnect = Nothing
```

Mvh,

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

## #7 — roady, 2002-06-24T13:04Z

haha....
Fan va jag är dålig!!!

Klart att jag inte kan se någon eftersom jag skickar vidare och uppdaterar på samma sajt!!! Känner mig fruktansvärt dum ibland!!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/46517-skapa-nytt-i-db-och-hämta-id