firstchoiceMedlem sedan okt. 2001605 inlägg
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
variabel = Split(recordset.GetString(, , ";"), ";")
[r]Kan kanske behövas:
ReDim variabel(recordset.RecordCount)
innan splittningen.
EitrazMedlem sedan sep. 2002385 inlägg
Förstår det mer som att du skulle vilja använda
variabel = Rs.GetRows()
firstchoiceMedlem sedan okt. 2001605 inlägg
Engine^Medlem sedan dec. 20002 861 inlägg
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
EitrazMedlem sedan sep. 2002385 inlägg
Har du dimensionerat variabel?
firstchoiceMedlem sedan okt. 2001605 inlägg
det blir "Type mismatch" på detta
variabel = Split(rsBindings.GetString(, , ";"), ";")
firstchoiceMedlem sedan okt. 2001605 inlägg
Har du dimensionerat variabel?
hur gör man det?
?? ReDim variabel(rsBindings.RecordCount)
EitrazMedlem sedan sep. 2002385 inlägg
testa Rs.GetRows() istället då ;)
EitrazMedlem sedan sep. 2002385 inlägg
Stämmer nog bra (dimensioneringen alltså)
Engine^Medlem sedan dec. 20002 861 inlägg
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
ReDim variabel(RecordSet.GetRows())
??
firstchoiceMedlem sedan okt. 2001605 inlägg
Engine^Medlem sedan dec. 20002 861 inlägg
firstchoiceMedlem sedan okt. 2001605 inlägg
eller inte! :) haha
det blir samma
variabel(0)
är samma som
variabel(1)
Engine^Medlem sedan dec. 20002 861 inlägg
ooops :r
glömde nog
rsBindings.MoveNext
innan Next
firstchoiceMedlem sedan okt. 2001605 inlägg
firstchoiceMedlem sedan okt. 2001605 inlägg
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
Du startar ju på 0!
NewBindings(0) = "något"
NewBindings(1) = "något annat hoppas jag"
NewBindings(2) = ""