Scripting.Dictionary

6 svar · 531 visningar · startad av Fraggel 13 feb. 2005

FraggelMedlem sedan sep. 2003301 inlägg

Frågan13 feb. 2005 14:34#1

groupID är Key i tabellen menuGroup.

    Dim objConn,objRs,SQL
    Set objConn = Server.CreateObject("ADODB.Connection")
    Set objRs = Server.CreateObject("ADODB.RecordSet")
    Dim objD
    Set objD = Server.CreateObject("Scripting.Dictionary")
    SQL = "SELECT * FROM menuGroup"
    objConn.Open strDatabase
    objRs.Open SQL,objConn
    While NOT objRs.EOF
      objD.Add objRs("groupID"),objRs("groupText")  '*****RAD 90*****
      objRs.MoveNext
    Wend

Detta ger fel:
Technical Information (for support personnel)

Error Type:
Microsoft VBScript runtime (0x800A01C9)
This key is already associated with an element of this collection
/artlog/config.asp, line 90

Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)

Page:
GET /artlog/Default.asp

Time:
den 13 februari 2005, 15:21:43

More information:
Microsoft Support

@ndersMedlem sedan juni 200032 967 inlägg

13 feb. 2005 15:54#2

Felmeddelandet är ganska tydligt?

Nyckeln du försöker lägga till finns redan i dictionaryobjektet. För att lägga till bara unika värden, antingen ställ en SELECT DISTINCT-fråga istället, eller kontrollera att inte nyckeln redan är använd.

FraggelMedlem sedan sep. 2003301 inlägg

13 feb. 2005 16:40#3

Den var inte använd...

Problemet var

objD.Add objRs("groupID"),objRs("groupText")

Löste det:

Dim strTMP1,strTMP2
strTMP1 = objRs("groupID")
strTMP2 = objRs("groupText")
objD.Add strTMP1,strTMP2

@ndersMedlem sedan juni 200032 967 inlägg

13 feb. 2005 18:23#4

Hmmm... Vad menar du att problemet var alltså?

FraggelMedlem sedan sep. 2003301 inlägg

13 feb. 2005 18:41#5

Hmm editerad mitt inlägg lite :)

@ndersMedlem sedan juni 200032 967 inlägg

13 feb. 2005 18:45#6

Ok...

Jag nöjer mig då, så länge du accepterar som slutgiltigt svar. ;)

mvh

FraggelMedlem sedan sep. 2003301 inlägg

13 feb. 2005 18:54#7

Fixat !!!
Vänner :bire ???