Avatar billede havmaage Juniormester
03. februar 2003 - 20:31 Der er 1 kommentar og
1 løsning

comboboz hidden værdi

hej!

Jeg har en Combobox hvor jeg lister feltet type, som er det udtræk fra en mysql db, der er i sqludtrækket også en felt id som jeg gerne vil have værdien af på det jeg vælger i combo boksen.

SQLstring = "SELECT MEDIE.Name, MEDIE.description, MEDIETYPES.Type, MEDIE.id FROM MEDIE, " _
& " MEDIETYPES where MEDIE.TypeId=MEDIETYPES.id"
MsgBox SQLstring
rs.Open SQLstring, Conn, adOpenStatic, adLockReadOnly, adCmdText

Do While Not rs.EOF

Combo1.AddItem rs!Type
rs.MoveNext
DoEvents
Loop


Dette virker fint nok, men hvis jeg nu for et eksemple ville skrive tilhørende id ud med debug.print eller msgbox når en type vælges i combo boksen, findes der et smart trick til dette eller er det sql igen. Jeg vil geren derhen hvor jeg eksekvere så lidt sql som det nu er muligt.

Simon
Avatar billede knico Nybegynder
03. februar 2003 - 20:57 #1
Jeg vil bruge dictionary object fra MS Scripting runtime.

Set d = CreateObject("scripting.dictionary")
d.Add rs!type, rs!ID

...og hive det frem igen således:

msgbox d.Item(Combo1.Text)
Avatar billede ocp Nybegynder
03. februar 2003 - 21:51 #2
Do While Not rs.EOF
  Combo1.AddItem rs!Type
  combo1.itemdata(combo1.newindex) = rs!ID
  rs.MoveNext
  DoEvents
Loop


Ved klik:

msgbox(combo1.itemdata(combo1.listindex))
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester