Ett problem jag ofta står inför när jag vill arbeta med vektorer är dess storlek.
Private minvektor(8) as string

hur gör jag om jag inte vet hur många värden som kommer att behöva lagras i min vektor då?

<code>
Dim Texter() As String

Redim Texter(2) 'Den går nu från 0 till 2
Redim Texter(5) 'Den går nu från 0 till 5

'Notera att variablerna töms, vill du spara innehållet så lägger du till Preserve
Redim Preserve Texter(4)
</code>


Thomas

så de finns inget sätt att göra att den automatiskt blir större när man lägger till ett värde?
eller då får man väl göra någon funktion liknande
Dim slinga as long
dim texter(1) as string

slinga = 0
Do until rs.eof
texter(slinga) = rs("något fält")
slinga = slinga + 1
Redim Preserve Texter(slinga)
Loop

Det går nog inte att få det automatiskt, inte vad jag vet just nu.
För att slippa ha en separat räknare så kan du använda UBound.
<code>
Redim Preserve Texter(UBound(Texter) +1)
</code>


Thomas

Klart att det går.Du får ta reda på hur många rader det finns i ditt RecordSet.

Sen finns det underbara bortglömda GetRows()

Jag skulle inte räkna det där som automatiskt på det sätt som (jag tror) Daniel syftar på.
Men ska han enbart lägga in data från en RS till en array så fungerar säkert GetRows bra.


Thomas

Daniel.

Har du inte möjlighet att använda en collection istället för en vektor?

//
Janne

har bara hört om begreppet men vet inte hur det funkar eller vad det innebär till 100%
Lust att förklara hur det fungerar?

Vad menar du att man vinner på att använda en mängd? Han ska ju inte infoga objekt eller skapa en klass. En mängd är en logisk storhet vars minnesområde definieras på ett helt annat sätt än en vektor.

Med vänliga hälsningar
EBCDIC