---
title: "Fylla 2-dimensionell array"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/69730-fylla-2-dimensionell-array"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "solbulle"
published: "2003-03-01T01:57:56.000Z"
updated: "2003-03-01T17:25:48.000Z"
replies: 9
views: 330
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/69730-fylla-2-dimensionell-array"
---

# Fylla 2-dimensionell array

## #1 — solbulle, 2003-03-01T01:57Z

Hm... jag gör en massa inserts i db med hjälp av en sub och plockar ut ID med "SELECT @@IDENTITY", detta ID samt en annan variabel måste jag sen använda vidare.
Jag tänkte att jag skulle lägga dom i en 2-dimensionell array, men hur gör jag det?
(Tidigare la jag allt i en kommaseparerad sträng, är det det som gäller?)

Typ kod:

```
Sub in(firstname,lastname,bio,occupation)
strSQL =  ("INSERT INTO tbl_person (fld_p_firstname, fld_p_lastname, fld_p_bio) VALUES ('"&firstname&"','"&lastname&"','"&bio&"')")
connect.Execute strSQL,,128
set RS = connect.execute("SELECT @@IDENTITY")

intpID=RS(0)

'ocupation ska ju då vara med i arrayen...

End Sub
```

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

## #2 — @nders, 2003-03-01T07:14Z

Varför ska du ha en tvådimensionell array? Räcker det inte med en vanlig array med två fält?

```
myArray = Array(detena, detandra)
```

Mvh

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

## #3 — solbulle, 2003-03-01T13:04Z

Vet inte riktigt om det är jag som snubblar lite eller om du missuppfattar mig.
Jag vill köra min lilla sub några gånger (ca 1-10ggr, olika värden) och på något sätt hålla ordning på vad den har lagt in i databasen så att jag sen kan peta in det i en annan tabell.
Min tanke var alltså att en Arraay skulle "byggas" upp, och varje plats i den skulle motsvara värdet i occupation samt vilket intpID den fick.

Cyklar jag nu igen?

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

## #4 — @nders, 2003-03-01T13:14Z

> **solbulle skrev:**
>
> Vet inte riktigt om det är jag som snubblar lite eller om du missuppfattar mig.

Kanske lite både och? :)

Först och främst: 

```
Dim myArray(1,0)
```

Sedan, i din sub, när du ska fylla på med värden, prova med något sånt härnt:

```
intUpperBound = Ubound(myArray,2) + 1
redim preserve myArray(1, intUpperBound)
myArray (0, intUpperBound) = "nånting"
myArray (1, intUpperBound) = "nåt annat"
```

När du sedan loopar ut din array igen, så kom ihåg att det ligger en tom rad nederst. (Om du inte flyttar på värdena vill säga. :) )

Mvh

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

## #5 — solbulle, 2003-03-01T13:19Z

Jag testar :)
Jag har strulat runt som attans med det jag håller på med, vad som är bästa lösningen, det vette gudarna...

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

## #6 — solbulle, 2003-03-01T14:03Z

Microsoft VBScript runtime (0x800A000A)
This array is fixed or temporarily locked

 :( Fixar inte att Redimma...

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

## #7 — @nders, 2003-03-01T14:04Z

Hur ser din kod ut nu?

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

## #8 — solbulle, 2003-03-01T14:07Z

Asch!

ReDim myArray(1,0)

Löste det ju. Om jag gör den "dynamisk från start verkar det fungera.

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

## #9 — @nders, 2003-03-01T14:33Z

Ah!

My bad!

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

## #10 — solbulle, 2003-03-01T17:25Z

"No hard feelings" ;)

Btw, nu skriver jag så här:

```
ReDim myArray(1,0) 'utanför subben

'detta i subben
redim preserve myArray(1,intUpperBound)
myArray(0,intUpperBound) = occupation
myArray(1,intUpperBound) = intpID
intUpperBound = Ubound(myArray,2) + 1

'testutskrift utanför subben:
For b = 0 to Ubound(myArray,2)
	response.write myArray(0,b) & " - - - " &  myArray(1,b) & "<br>"
Next
```

Verkar fungera helt strålande.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/69730-fylla-2-dimensionell-array