webForumDet fria alternativet

recordset till array

22 svar · 385 visningar · startad av firstchoice

firstchoiceMedlem sedan okt. 2001605 inlägg
#1

nu börjar jag bli tokig
lopar jag ut mitt recordset får jag följande into:

:80:test.incordia.se
192.168.100.100:80:test2.incordia.se

nu vill jag ha in detta i en array, ex:

variabel(0) = :80:test.incordia.se
variabel(1) = 192.168.100.100:80:test2.incordia.se

hur gör jag...får det inte att funka

Engine^Medlem sedan dec. 20002 861 inlägg
#2
variabel = Split(recordset.GetString(, , ";"), ";")

[r]Kan kanske behövas:

ReDim variabel(recordset.RecordCount)

innan splittningen.

EitrazMedlem sedan sep. 2002385 inlägg
#3

Förstår det mer som att du skulle vilja använda

variabel = Rs.GetRows()

firstchoiceMedlem sedan okt. 2001605 inlägg
#4

tack! :)

Engine^Medlem sedan dec. 20002 861 inlägg
#5

Eitraz skrev:

Förstår det mer som att du skulle vilja använda

variabel = Rs.GetRows()

Ahh... tänkte inte ens på GetRows()-funktionen :r

Resultatet blir väl detsamma ändå om jag inte misstar mig.

firstchoiceMedlem sedan okt. 2001605 inlägg
#6

funkar ju inte!!! :(

EitrazMedlem sedan sep. 2002385 inlägg
#7

Har du dimensionerat variabel?

firstchoiceMedlem sedan okt. 2001605 inlägg
#8

det blir "Type mismatch" på detta

variabel = Split(rsBindings.GetString(, , ";"), ";")
firstchoiceMedlem sedan okt. 2001605 inlägg
#9

Har du dimensionerat variabel?

hur gör man det?

?? ReDim variabel(rsBindings.RecordCount)

EitrazMedlem sedan sep. 2002385 inlägg
#10

testa Rs.GetRows() istället då ;)

EitrazMedlem sedan sep. 2002385 inlägg
#11

Stämmer nog bra (dimensioneringen alltså)

Engine^Medlem sedan dec. 20002 861 inlägg
#12

testa detta då

ReDim variabel(rsBindings.RecordCount)

If Not rsBindings.EOF Then
  For i = 0 To rsBindings.RecordCount - 1
    variabel(i) = rsBindings(0)
  Next
End If
firstchoiceMedlem sedan okt. 2001605 inlägg
#13
ReDim variabel(RecordSet.GetRows())

??

firstchoiceMedlem sedan okt. 2001605 inlägg
#14

nu så! tack!

Engine^Medlem sedan dec. 20002 861 inlägg
#15

[r] :)

firstchoiceMedlem sedan okt. 2001605 inlägg
#16

eller inte! :) haha
det blir samma

variabel(0)
är samma som
variabel(1)

Engine^Medlem sedan dec. 20002 861 inlägg
#17

ooops :r

glömde nog

rsBindings.MoveNext

innan Next

firstchoiceMedlem sedan okt. 2001605 inlägg
#18

så ja! :)

firstchoiceMedlem sedan okt. 2001605 inlägg
#19

får loopningen att funka
men det skapar ett extra värde i NewBindings

For i = 0 To rs.RecordCount - 1
  NewBindings(i) = rs("ServerBindingsIp") & ":" & rs("ServerBindingsPort") & ":" & rs("ServerBindingsHHN")
  rs.MoveNext
Next

recordestet innehåller 2 rader
men jag får NewBindings(2) = ""

varför?

solbulleMedlem sedan mars 20014 998 inlägg
#20

Du startar ju på 0!

NewBindings(0) = "något"
NewBindings(1) = "något annat hoppas jag"
NewBindings(2) = ""

Genererad på 369 ms · cache AV · v20260730165559-full.f96bc7eb