15. oktober 1999 - 13:14Der er
17 kommentarer og 1 løsning
Combobox fra db
Okay jeg har en db med emne indeling så det jeg gerne vil er at trække overskrifterne ud(emnerne) og ind i en Combobox jeg er nået som langt som her til : <form> <% Set VrConn=Server.CreateObject("ADODB.Connection") VrConn.Open "PROVIDER=MSDASQL;" & _ "DRIVER={Microsoft Access Driver (*.mdb)}; " & _ "DBQ=" & server.mappath("vare") VrSQL="Select * from 111 " Set VrRs=VrConn.Execute(VrSQL) Response.Write "<select name=dropdown size=1>" Do While Not rs.EOF Response.Write "<option value=" & VareRs("art")=3 & ">" & VareRs("vare") & "</option>" rs.MoveNext Loop Response.Write "</select>" tempConn.Close Set tempConn = Nothing %> </form>
men dette giver mig bare en box uden indhold.
Så det jeg mangler er en del i scripte der trækker overskriften og dets "emne/kategori" ud og laver det om til et link.
VrSQL="Select * from 111 " Set VrRs=VrConn.Execute(VrSQL)
Response.Write "<select name=dropdown size=1>"
Do While Not rs.EOF If VareRs("art") = 3 Then Response.Write "<option value=" & VareRs("art") & ">" & VareRs("vare") & "</option>" End If rs.MoveNext Loop
VrSQL="Select * from 111 " Set VrRs=VrConn.Execute(VrSQL)
Response.Write "<select name=dropdown size=1>"
Do While Not rs.EOF If VareRs("art") = CInt(3) Then Response.Write "<option value=" & VareRs("art") & ">" & VareRs("vare") & "</option>" End If rs.MoveNext Loop
VrSQL="Select * from 111 " Set VrRs=VrConn.Execute(VrSQL)
Response.Write "<select name=dropdown size=1>"
Do While Not VareRs.EOF If VareRs("art") = CInt(3) Then Response.Write "<option value=" & VareRs("art") & ">" & VareRs("vare") & "</option>" End If VareRs.MoveNext Loop
er du enig med mig i at hvis jeg skal henvise til dele af db'en med comboboxen skal jeg lave et felt mere med henvisning til endnu en kategori indelling ???
VrSQL="Select * from 111 WHERE art = 3" Set VrRs=VrConn.Execute(VrSQL)
Response.Write "<select name=dropdown size=1>"
Do While Not VareRs.EOF Response.Write "<option value=" & VareRs("art") & ">" & VareRs("vare") & "</option>" VareRs.MoveNext Loop
Response.Write "</select>"
tempConn.Close Set tempConn = Nothing %> </form>
Så er der da færre records i dit recordsæt!
Synes godt om
Ny brugerNybegynder
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.
