CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

ares Nybegynder

15. oktober 1999 - 13:14 Der 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.

alle forslag er velkomne.

Synes godt om

pingo Nybegynder

15. oktober 1999 - 13:32 #1

<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") & ">" & VareRs("vare") & "</option>"
rs.MoveNext
Loop

Response.Write "</select>"

tempConn.Close
Set tempConn = Nothing
%>
</form>

Synes godt om

pingo Nybegynder

15. oktober 1999 - 13:32 #2

prøv den

Synes godt om

ares Nybegynder

15. oktober 1999 - 13:55 #3

Jeg fik måske ikke forklaret problemet, men min database indholder en prisliste, men overskrifter se eksemple nedenfor:

Overskrift
vareart PrisInclMoms PrisEkslMoms

herud over har jeg selvfølgelig givet dem et kategorinr. Jeg vil så kun have overskriften i comboboxen, derfor mit skud i tåge med:

Response.Write "<option value=" & VareRs("art")=3 & ">" & VareRs("vare") & "</option>"

hvor art er værdien for hvorvidt det er en overskrift eller ej.

Synes godt om

pingo Nybegynder

15. oktober 1999 - 13:57 #4

Du kan ihvertfald ikke køre en VareRs("art")=3

Hvad er det du vil med den der =3?

Synes godt om

ares Nybegynder

15. oktober 1999 - 14:10 #5

Jeg indrømmer det var et vildt forsøg.

Jeg har en kolonnen art som bliver brugt til:
<Font Face="Verdana" size="<% =VareRs("art") %>">

Men det kunne være rart hvis jeg også kunne bruge feltet art til at bestemme hvilke felter i min db der skal hentes op i Comboboxen

Synes godt om

pingo Nybegynder

15. oktober 1999 - 14:16 #6

ares: jeg er ikke med på det med vilke felter der skal hentes derop? - det kan den godt bruges til - men ud fra hvilke kriterier?

Synes godt om

ares Nybegynder

15. oktober 1999 - 14:22 #7

Feltet "art" har 3 muligheder 1,2 eller 3

Hvilket giver 3 fontstørrelser. altså 1,2 eller 3. overskrifter har størrelse 3
undermenuer har 2

og "brødteksten" har 1

Nu vil jeg så trække alle 3'ere op i en combobox da de indikere et "sideskift"

Det burde kunne lade sig gøre

Synes godt om

ares Nybegynder

15. oktober 1999 - 14:24 #8

Jeg vil gerne lægge flere point oven i, hvis det er det kræver

Synes godt om

pingo Nybegynder

15. oktober 1999 - 14:26 #9

<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
If VareRs("art") = 3 Then
Response.Write "<option value=" & VareRs("art") & ">" & VareRs("vare") & "</option>"
End If
rs.MoveNext
Loop

Response.Write "</select>"

tempConn.Close
Set tempConn = Nothing
%>
</form>

Synes godt om

pingo Nybegynder

15. oktober 1999 - 14:27 #10

der

Synes godt om

ares Nybegynder

15. oktober 1999 - 14:36 #11

Det er det samme jeg får comboboxen men udeninhold, hvorfor ?

Synes godt om

ares Nybegynder

15. oktober 1999 - 14:41 #12

Jeg må skulle tilføje en kolonne mere til min db som henviser til det/de ID nummer i db'en som jeg vil hente, rigtigt ??????

Synes godt om

pingo Nybegynder

15. oktober 1999 - 14:45 #13

enten fordi at dit tekstfelt ikke er et tal eller at der ikke er nogen poster i tabellen 111 hvor art er 3.

prøv denne:

<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
If VareRs("art") = CInt(3) Then
Response.Write "<option value=" & VareRs("art") & ">" & VareRs("vare") & "</option>"
End If
rs.MoveNext
Loop

Response.Write "</select>"

tempConn.Close
Set tempConn = Nothing
%>
</form>

Synes godt om

pingo Nybegynder

15. oktober 1999 - 14:47 #14

<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 VareRs.EOF
If VareRs("art") = CInt(3) Then
Response.Write "<option value=" & VareRs("art") & ">" & VareRs("vare") & "</option>"
End If
VareRs.MoveNext
Loop

Response.Write "</select>"

tempConn.Close
Set tempConn = Nothing
%>
</form>

Synes godt om

pingo Nybegynder

15. oktober 1999 - 14:48 #15

hehe - jeg tror jeg fandt fejlen - du loopede omkring rs recordsæt - men dit recordsæt hed VareRS - og dermed fandtes rs ikke...

duh kan man sige..

Synes godt om

ares Nybegynder

15. oktober 1999 - 15:12 #16

Heheh tak,,, doooooohhhhhh.... : )

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 ???

Synes godt om

pingo Nybegynder

15. oktober 1999 - 15:40 #17

øhh - spørgsmål ikke forstået.

Synes godt om

ulrich Nybegynder

16. oktober 1999 - 00:27 #18

Hvad med bare at gøre sådan her:

<form>
<%
Set VrConn=Server.CreateObject("ADODB.Connection")
VrConn.Open "PROVIDER=MSDASQL;" & _
"DRIVER={Microsoft Access Driver (*.mdb)}; " & _
"DBQ=" & server.mappath("vare")

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 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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09
Vis detaljeret fejlkoder Af poulmadsen i ASP	6	09/03/202418:16	10/03/202417:59
IIS virker ikke på asp sider... Af bsn i ASP	10	15/10/202313:12	18/10/202308:48

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS